Reconfigure for GIT

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.Designer.vb

@@ -0,0 +1,144 @@
+Partial Class CertificateOfContractVC
+
+	<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.aFinalCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintCertificateOfContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStornoCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMakeEditableCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewRegistry_COC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aViewAttachments_COC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aRecalculateCOC = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aFinalCOC
+        '
+        Me.aFinalCOC.Caption = "Final COC"
+        Me.aFinalCOC.Category = "ObjectsCreation"
+        Me.aFinalCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aFinalCOC.Id = "aFinalCOC"
+        Me.aFinalCOC.ImageName = "MenuBar_SaveAndClose"
+        Me.aFinalCOC.Shortcut = Nothing
+        Me.aFinalCOC.Tag = Nothing
+        Me.aFinalCOC.TargetObjectsCriteria = Nothing
+        Me.aFinalCOC.TargetViewId = Nothing
+        Me.aFinalCOC.ToolTip = Nothing
+        Me.aFinalCOC.TypeOfView = Nothing
+        '
+        'aPrintCertificateOfContract
+        '
+        Me.aPrintCertificateOfContract.Caption = "aPrint Certificate Of Contract"
+        Me.aPrintCertificateOfContract.Category = "View"
+        Me.aPrintCertificateOfContract.ConfirmationMessage = "Do you want to execute command?"
+        Me.aPrintCertificateOfContract.Id = "aPrintCertificateOfContract"
+        Me.aPrintCertificateOfContract.ImageName = Nothing
+        Me.aPrintCertificateOfContract.Shortcut = Nothing
+        Me.aPrintCertificateOfContract.Tag = Nothing
+        Me.aPrintCertificateOfContract.TargetObjectsCriteria = Nothing
+        Me.aPrintCertificateOfContract.TargetViewId = ""
+        Me.aPrintCertificateOfContract.ToolTip = Nothing
+        Me.aPrintCertificateOfContract.TypeOfView = Nothing
+        '
+        'aStornoCOC
+        '
+        Me.aStornoCOC.Caption = "Storno COC"
+        Me.aStornoCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aStornoCOC.Id = "aStornoCOC"
+        Me.aStornoCOC.ImageName = Nothing
+        Me.aStornoCOC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStornoCOC.Shortcut = Nothing
+        Me.aStornoCOC.Tag = Nothing
+        Me.aStornoCOC.TargetObjectsCriteria = Nothing
+        Me.aStornoCOC.TargetViewId = Nothing
+        Me.aStornoCOC.ToolTip = Nothing
+        Me.aStornoCOC.TypeOfView = Nothing
+        '
+        'aMakeEditableCOC
+        '
+        Me.aMakeEditableCOC.Caption = "Make editable COC"
+        Me.aMakeEditableCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aMakeEditableCOC.Id = "aMakeEditableCOC"
+        Me.aMakeEditableCOC.ImageName = Nothing
+        Me.aMakeEditableCOC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMakeEditableCOC.Shortcut = Nothing
+        Me.aMakeEditableCOC.Tag = Nothing
+        Me.aMakeEditableCOC.TargetObjectsCriteria = Nothing
+        Me.aMakeEditableCOC.TargetViewId = Nothing
+        Me.aMakeEditableCOC.ToolTip = Nothing
+        Me.aMakeEditableCOC.TypeOfView = Nothing
+        '
+        'aViewRegistry_COC
+        '
+        Me.aViewRegistry_COC.Caption = "View registry"
+        Me.aViewRegistry_COC.ConfirmationMessage = Nothing
+        Me.aViewRegistry_COC.Id = "aViewRegistry_COC"
+        Me.aViewRegistry_COC.ImageName = "document_pinned"
+        Me.aViewRegistry_COC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewRegistry_COC.Shortcut = Nothing
+        Me.aViewRegistry_COC.Tag = Nothing
+        Me.aViewRegistry_COC.TargetObjectsCriteria = Nothing
+        Me.aViewRegistry_COC.TargetViewId = ""
+        Me.aViewRegistry_COC.ToolTip = Nothing
+        Me.aViewRegistry_COC.TypeOfView = Nothing
+        '
+        'aViewAttachments_COC
+        '
+        Me.aViewAttachments_COC.Caption = "View attachments"
+        Me.aViewAttachments_COC.ConfirmationMessage = Nothing
+        Me.aViewAttachments_COC.Id = "aViewAttachments_COC"
+        Me.aViewAttachments_COC.ImageName = "printer_view"
+        Me.aViewAttachments_COC.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aViewAttachments_COC.Shortcut = Nothing
+        Me.aViewAttachments_COC.Tag = Nothing
+        Me.aViewAttachments_COC.TargetObjectsCriteria = Nothing
+        Me.aViewAttachments_COC.TargetViewId = ""
+        Me.aViewAttachments_COC.ToolTip = Nothing
+        Me.aViewAttachments_COC.TypeOfView = Nothing
+        '
+        'aRecalculateCOC
+        '
+        Me.aRecalculateCOC.Caption = "Recalculate COC"
+        Me.aRecalculateCOC.Category = "ObjectsCreation"
+        Me.aRecalculateCOC.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aRecalculateCOC.Id = "aRecalculateCOC"
+        Me.aRecalculateCOC.Shortcut = Nothing
+        Me.aRecalculateCOC.Tag = Nothing
+        Me.aRecalculateCOC.TargetObjectsCriteria = Nothing
+        Me.aRecalculateCOC.TargetViewId = Nothing
+        Me.aRecalculateCOC.ToolTip = Nothing
+        Me.aRecalculateCOC.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aFinalCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintCertificateOfContract As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStornoCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMakeEditableCOC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewRegistry_COC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aViewAttachments_COC As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aRecalculateCOC As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.resx

@@ -0,0 +1,144 @@
+<?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="aFinalCOC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aPrintCertificateOfContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aStornoCOC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aMakeEditableCOC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aViewRegistry_COC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aViewAttachments_COC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aRecalculateCOC.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>174, 212</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateOfContractVC.vb

@@ -0,0 +1,227 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Xpo
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class CertificateOfContractVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        Dim _CertificateofContractHeader As CertificateofContractHeader
+        MyBase.OnActivated()
+        '-- Általános letiltás --------------------------------------------------------------------------------------------------------------------------
+        Frame.GetController(Of CertificateOfContractVC).aFinalCOC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", False) ' -- Teljesítési igazolás nyomtatása
+        Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", False)
+        Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", False)
+        '------------------------------------------------------------------------------------------------------------------------------------------------
+
+        If View.Id = "CertificateofContractHeader_ListView_NotEditable" Then
+            Frame.GetController(Of CertificateOfContractVC).aPrintCertificateOfContract.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aMakeEditableCOC.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aStornoCOC.Active.SetItemValue("", True)
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CertificateOfContractVC).aRecalculateCOC.Active.SetItemValue("", True)
+        End If
+        If View.Id = "CertificateofContractHeader_DetailView" Then
+            Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+            _CertificateofContractHeader = View.SelectedObjects(0)
+            If _CertificateofContractHeader IsNot Nothing Then
+                If _CertificateofContractHeader.IsEditable = True Then
+                    Frame.GetController(Of CertificateOfContractVC).aFinalCOC.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
+                Else
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
+                End If
+            End If
+        End If
+        If View.Id = "CertificateofContractHeader_CertificateofContractRows_ListView" Then
+            Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
+
+            If TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject IsNot Nothing Then
+                _CertificateofContractHeader = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, CertificateofContractHeader)
+                If _CertificateofContractHeader IsNot Nothing Then
+                    If _CertificateofContractHeader.IsEditable = False Then
+                        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+                        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                        Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+                    Else
+                        Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
+                        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                        Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+                    End If
+                End If
+            End If
+        End If
+        If View.Id = "Contracts_LookupListView" Then
+            'Frame.GetController(Of NewObjectViewController).NewObjectAction.Active.SetItemValue("", False)
+        End If
+        If View.Id = "CertificateofContractRows_DetailView" Then
+            Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
+            If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
+                Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+                Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
+            Else
+                Frame.GetController(Of NewItemRowListViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+                Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
+            End If
+            Frame.GetController(Of CertificateOfContractVC).aViewAttachments_COC.Active.SetItemValue("", True)
+            Frame.GetController(Of CertificateOfContractVC).aViewRegistry_COC.Active.SetItemValue("", True)
+            If _CertificateofContractRows.CertificateofContractHeader IsNot Nothing Then
+                If _CertificateofContractRows.CertificateofContractHeader.IsEditable = False Then
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", False)
+                Else
+                    Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndCloseAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of ModificationsController).SaveAndNewAction.Active.SetItemValue("", True)
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
+        Frame.GetController(Of ModificationsController).SaveAction.Active.SetItemValue("", True)
+    End Sub
+    Private Sub aPrintCertificateOfContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintCertificateOfContract.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader
+
+        Dim _ReportData As ReportData
+        If e.SelectedObjects.Count > 0 Then
+            _CertificateofContractHeader = e.SelectedObjects.Item(0)
+            _ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _CertificateofContractHeader.Contracts.ContractTemplate.COC_ReportData.Oid), True)
+            If _ReportData Is Nothing Or _CertificateofContractHeader Is Nothing Then
+            Else
+                Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("CertificateofContractHeader.DocumentNumber =?", _CertificateofContractHeader.DocumentNumber), True)
+            End If
+        End If
+    End Sub
+
+    Private Sub aFinalCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalCOC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader)
+
+        If _CertificateofContractHeader IsNot Nothing Then
+            _CertificateofContractHeader.IsEditable = False
+            _CertificateofContractHeader.IsStorno = False
+            _ocur.CommitChanges()
+            View.Close()
+        End If
+
+    End Sub
+
+    Private Sub aMakeEditableCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aMakeEditableCOC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader)
+
+        If _CertificateofContractHeader IsNot Nothing Then
+            If _CertificateofContractHeader.IsEditable = False And _CertificateofContractHeader.IsStorno = False Then
+                _CertificateofContractHeader.IsEditable = True
+                _ocur.CommitChanges()
+                View.Refresh()
+            End If
+        End If
+    End Sub
+
+    Private Sub aStornoCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStornoCOC.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _CertificateofContractHeader As CertificateofContractHeader = TryCast(View.SelectedObjects(0), CertificateofContractHeader)
+        Dim _CertificateofContractRows As CertificateofContractRows
+
+
+        If _CertificateofContractHeader IsNot Nothing Then
+            If _CertificateofContractHeader.IsEditable = False And _CertificateofContractHeader.IsStorno = False Then
+                For Each _CertificateofContractRows In _CertificateofContractHeader.CertificateofContractRows
+                    _CertificateofContractRows.ContractRows = Nothing
+                Next
+                _CertificateofContractHeader.IsStorno = True
+                _CertificateofContractHeader.IsEditable = False
+            End If
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+
+    Private Sub aViewRegistry_COC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewRegistry_COC.Execute
+        Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
+
+        If _CertificateofContractRows IsNot Nothing Then
+            If _CertificateofContractRows.ContractRows IsNot Nothing Then
+                If _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then
+                    Dim _CustomersFrom As CustomersFrom = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    Dim _Customers As Customers = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.Customers
+                    Dim _DocumentNumber As String = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber
+                    ViewRegistry.ViewRegistry(View.ObjectSpace, Application, e, _CustomersFrom, _Customers, _DocumentNumber)
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Private Sub aViewAttachments_COC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aViewAttachments_COC.Execute
+        Dim _CertificateofContractRows As CertificateofContractRows = TryCast(View.SelectedObjects(0), CertificateofContractRows)
+        If _CertificateofContractRows IsNot Nothing Then
+            If _CertificateofContractRows.ContractRows IsNot Nothing Then
+                If _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling IsNot Nothing Then
+                    Dim _CustomersFrom As CustomersFrom = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
+                    Dim _Customers As Customers = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.Customers
+                    Dim _DocumentNumber As String = _CertificateofContractRows.ContractRows.RegistryRowsFinancialControlling.RegistryHeader.DocumentNumber
+                    ViewAttachments.ViewAttachments(View.ObjectSpace, Frame, _CustomersFrom, _Customers, _DocumentNumber, "")
+                End If
+            End If
+        End If
+    End Sub
+
+    Private Sub aRecalculateCOC_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRecalculateCOC.Execute
+        Dim _CertificateofContractHeader As CertificateofContractHeader
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _uow As New UnitOfWork(_ocur.Session.DataLayer)
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _CertificateofContractHeader In View.SelectedObjects
+            RaiseEvent DoWork()
+            _CertificateofContractHeader.Recalculate(_uow, _CertificateofContractHeader, False)
+        Next
+        _uow.CommitChanges()
+        RaiseEvent FinalWork
+        View.Refresh()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractHeader.vb

@@ -0,0 +1,185 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<Appearance("Hide ReportHeader in COC when IsEditable=False", AppearanceItemType:="ViewItem", TargetItems:="ReportHeader;ReportFooter", Criteria:="IsEditable=False", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+Public Class CertificateofContractHeader
+    Inherits BaseObject
+    Private _Contracts As Contracts
+    Private _DateExecution As Date
+    Private _DocumentNumber As String
+    Private _IsStorno As Boolean = False
+    Private _IsEditable As Boolean = True
+    Private _DateCreated As Date
+    Private _ReportHeader As String
+    Private _ReportFooter As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If DocumentNumber Is Nothing Then
+            If _Contracts IsNot Nothing Then
+                If _Contracts.ContractTemplate.COC_NumberGenerator IsNot Nothing Then
+                    _DocumentNumber = _Contracts.ContractTemplate.COC_NumberGenerator.GetNewNumber(_Contracts.ContractTemplate.COC_NumberGenerator)
+                End If
+            End If
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <RuleRequiredField("CertificateofContractHeader-Contracts", DefaultContexts.Save)> _
+    <DataSourceCriteria("ContractTemplate.PartnerType=1 AND ContractTemplate.IsTechnical=False AND (State = 1 OR State = 2)")> _
+    Property Contracts() As Contracts
+        Get
+            Return _Contracts
+
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <RuleRequiredField("CertificateofContractHeader-DateExecution", DefaultContexts.Save)> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property IsStorno As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    Property IsEditable As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ReportHeader As String
+        Get
+            Return _ReportHeader
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ReportHeader", _ReportHeader, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property ReportFooter As String
+        Get
+            Return _ReportFooter
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ReportFooter", _ReportFooter, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+
+    ReadOnly Property DisplayName As String
+        Get
+            If Contracts IsNot Nothing Then
+                Return DocumentNumber & ", " & Contracts.DisplayName
+            Else
+                Return "<>"
+            End If
+        End Get
+    End Property
+    <Association("CertificateofContractHeader-CertificateofContractRows", GetType(CertificateofContractRows)), VisibleInListView(False)> _
+    ReadOnly Property CertificateofContractRows As XPCollection(Of CertificateofContractRows)
+        Get
+            Return GetCollection(Of CertificateofContractRows)("CertificateofContractRows")
+        End Get
+    End Property
+    Sub Recalculate(_uow As UnitOfWork, _CertificateofContractHeader As CertificateofContractHeader, Optional _WidthCommit As Boolean = False)
+        Dim _CertificateofContractRows As CertificateofContractRows
+        Dim _AmountHUF As Double = 0
+        Dim _AmountDEV As Double = 0
+        On Error GoTo CheckError
+
+        _CertificateofContractHeader.AmountHUF = 0
+        _CertificateofContractHeader.AmountDEV = 0
+        For Each _CertificateofContractRows In _CertificateofContractHeader.CertificateofContractRows
+            _AmountHUF += _CertificateofContractRows.ContractRows.QTT * _CertificateofContractRows.ContractRows.NettoPriceHUF
+            _AmountDEV += _CertificateofContractRows.ContractRows.QTT * _CertificateofContractRows.ContractRows.NettoPriceDEV
+        Next
+        _CertificateofContractHeader.AmountHUF = _AmountHUF
+        _CertificateofContractHeader.AmountDEV = _AmountDEV
+
+        If _WidthCommit Then _uow.CommitChanges()
+        Exit Sub
+
+CheckError:
+
+        If Err.Number = 13 Then Resume Next
+        If Err.Number = 91 Then Resume Next
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Certificate/CertificateofContractRows.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
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("DisplayName")> _
+Public Class CertificateofContractRows
+    Inherits BaseObject
+    Private _CertificateofContractHeader As CertificateofContractHeader
+    Private _ContractRows As ContractRows
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Association("CertificateofContractHeader-CertificateofContractRows", GetType(CertificateofContractHeader))> _
+    Property CertificateofContractHeader() As CertificateofContractHeader
+        Get
+            Return _CertificateofContractHeader
+        End Get
+        Set(ByVal value As CertificateofContractHeader)
+            SetPropertyValue("CertificateofContractHeader", _CertificateofContractHeader, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Contracts='@This.CertificateofContractHeader.Contracts' and isnull(CertificateofContractRows)=True")> _
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+
+        End Set
+    End Property
+    ReadOnly Property DisplayName
+        Get
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Return _CertificateofContractHeader.Contracts.CustomersFrom.FullName & ", " & _CertificateofContractHeader.DateExecution
+            Else
+                Return ""
+            End If
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractGroup.vb

@@ -0,0 +1,39 @@
+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 ContractGroup
+    Inherits BaseObject
+
+    Private _ShortName 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 ShortName As String
+        Get
+            Return _ShortName
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.Designer.vb

@@ -0,0 +1,32 @@
+Partial Class ContractPayablesVC
+
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Public Sub New(ByVal Container As System.ComponentModel.IContainer)
+		MyClass.New()
+
+		'Required for Windows.Forms Class Composition Designer support
+		Container.Add(Me)
+
+	End Sub
+
+	'Component overrides dispose to clean up the component list.
+	<System.Diagnostics.DebuggerNonUserCode()> _
+	Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+		If disposing AndAlso components IsNot Nothing Then
+			components.Dispose()
+		End If
+		MyBase.Dispose(disposing)
+	End Sub
+
+	'Required by the Component Designer
+	Private components As System.ComponentModel.IContainer
+
+	'NOTE: The following procedure is required by the Component Designer
+	'It can be modified using the Component Designer.
+	'Do not modify it using the code editor.
+	<System.Diagnostics.DebuggerStepThrough()> _
+	Private Sub InitializeComponent()
+		components = New System.ComponentModel.Container()
+	End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractPayablesVC.vb

@@ -0,0 +1,33 @@
+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
+Public Class ContractPayablesVC
+	Inherits DevExpress.ExpressApp.ViewController
+
+	Public Sub New()
+		MyBase.New()
+
+        'Hello world !
+		'This call is required by the Component Designer.
+		InitializeComponent()
+		RegisterActions(components) 
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractProductsCredit.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 ContractProductsCredit
+    Inherits BaseObject
+
+    Private _Contracts As Contracts
+    Private _ProductsCredit As ProductsCredit
+    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("Contracts-ContractProductsCredit", GetType(Contracts))> _
+    Property Contract As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    Property ProductsCredit As ProductsCredit
+        Get
+            Return _ProductsCredit
+        End Get
+        Set(value As ProductsCredit)
+            SetPropertyValue("ProductsCredit", _ProductsCredit, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.Designer.vb

@@ -0,0 +1,51 @@
+Partial Class ContractReceivablesVC
+
+    <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.aCreateInvoicefromContractRowsReceivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aCreateInvoicefromContractRowsReceivables
+        '
+        Me.aCreateInvoicefromContractRowsReceivables.AcceptButtonCaption = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.CancelButtonCaption = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.Caption = "Create Invoicefrom Contract Rows Receivables"
+        Me.aCreateInvoicefromContractRowsReceivables.ConfirmationMessage = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.Id = "aCreateInvoicefromContractRowsReceivables"
+        Me.aCreateInvoicefromContractRowsReceivables.ImageName = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCreateInvoicefromContractRowsReceivables.Shortcut = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.Tag = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.TargetObjectsCriteria = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.TargetViewId = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.ToolTip = Nothing
+        Me.aCreateInvoicefromContractRowsReceivables.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aCreateInvoicefromContractRowsReceivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractReceivablesVC.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="aCreateInvoicefromContractRowsReceivables.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/BusinessTransactions/Contract/ContractReceivablesVC.vb

@@ -0,0 +1,322 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.CloneObject
+Imports DevExpress.Persistent.BaseImpl
+
+Public Class ContractReceivablesVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Protected _selection As ArrayList
+    Protected _InvoiceRowsSelection As ArrayList = New ArrayList
+    Protected _InvoiceHeaderCreated As ArrayList = New ArrayList
+    Protected _noselect As Boolean = False
+    Public Sub New()
+        MyBase.New()
+
+        _selection = New ArrayList()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", False)
+
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then
+            AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
+            Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ContractRows_ListView_Invoice_IsProforma" Or View.Id = "ContractRows_ListView_Invoice_Finalized" Then
+            Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
+            Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
+            Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
+
+        End If
+
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then
+            RemoveHandler View.SelectionChanged, AddressOf view_SelectionChanged
+            Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Private Sub view_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs)
+        Dim i As Long = 0
+        Dim _ContractRows As ContractRows
+
+        If View Is Nothing Then Exit Sub
+
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Then
+            If _noselect = False Then
+                _selection.Clear()
+                For Each _ContractRows In View.SelectedObjects
+                    If i = 0 Then
+                        _selection.Add(_ContractRows)
+                        Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Enabled.SetItemValue("", True)
+                    Else
+                        If _ContractRows.Contracts.CurrencyName_Invoice.Oid = TryCast(_selection(0), ContractRows).Contracts.CurrencyName_Invoice.Oid Then
+                            _selection.Add(_ContractRows)
+                            i += 1
+                        Else
+                            _selection.Clear()
+                            Frame.GetController(Of ContractReceivablesVC).aCreateInvoicefromContractRowsReceivables.Enabled.SetItemValue("", False)
+                        End If
+                    End If
+                Next
+            End If
+        End If
+    End Sub
+
+    Private Sub aCreateInvoicefromContractRowsReceivables_Cancel(sender As Object, e As System.EventArgs) Handles aCreateInvoicefromContractRowsReceivables.Cancel
+        _noselect = False
+    End Sub
+
+    Private Sub aCreateInvoicefromContractRowsReceivables_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateInvoicefromContractRowsReceivables.CustomizePopupWindowParams
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = _ocur.CreateObject(Of ContractsRowsToInvoice)()
+        Dim _ContractsRowsToInvoice_New As ContractsRowsToInvoice
+
+        _ContractsRowsToInvoice.Description = ""
+        _ContractsRowsToInvoice.CurrencyRate = 1
+        _ContractsRowsToInvoice.DateExecution = GetSQLTime(_ocur.Session)
+        _ContractsRowsToInvoice.BankInformation = Nothing
+        _ContractsRowsToInvoice.ContractRows = _selection(0)
+
+        _noselect = True
+        _ContractsRowsToInvoice.Save()
+        _ocur.CommitChanges()
+
+        _ContractsRowsToInvoice_New = _onew.GetObject(_ContractsRowsToInvoice)
+
+        e.View = Application.CreateDetailView(_onew, "ContractsRowsToInvoice_DetailView_Receivables", False, _ContractsRowsToInvoice_New)
+    End Sub
+    Private Sub aCreateInvoicefromContractRowsReceivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateInvoicefromContractRowsReceivables.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRowsCollection As New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("1=2"))
+
+        Dim _ContractsRowsToInvoice As ContractsRowsToInvoice = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice)
+
+        Dim _ContractRows As ContractRows
+        Dim _ContractRows_Selection As ContractRows
+        Dim _InvoiceRows_new As InvoiceRows
+        Dim _InvoiceRows_Array As New ArrayList()
+
+        Dim i As Long = 0
+        Dim _IsHeaderCreated As Boolean = False
+        Dim _IsNextWhile As Boolean = True
+        Dim _NG As NumberGenerator
+
+        On Error GoTo CheckError
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        ' -- létrehozunk egy kollekciót a kiválasztott elemek tömbjébol
+        _InvoiceHeaderCreated.Clear()
+
+        For Each _ContractRows_Selection In _selection
+            _ContractRows = _ocur.GetObject(_ContractRows_Selection)
+            _ContractRowsCollection.Add(_ContractRows)
+        Next
+        _InvoiceRows_Array.Clear()
+
+        _noselect = False
+        ' -- rendezési feltételeket adunk a létrehozott kollekciónak
+        Dim sortCollection As SortingCollection = New SortingCollection()
+        sortCollection.Add(New SortProperty("Contracts.CustomersFrom.Name", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("Contracts.Customers.Name", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("Contracts.BankInformation", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("Contracts.CurrencyName_Invoice.ShortName", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("DateExecution", DB.SortingDirection.Ascending))
+        sortCollection.Add(New SortProperty("PaymentOption.ShortName", DB.SortingDirection.Ascending))
+
+        _ContractRowsCollection.Sorting = sortCollection
+
+        Do While _IsNextWhile
+            Dim _InvoiceHeader As InvoiceHeader
+            Dim _InvoiceRows As InvoiceRows = _ocur.CreateObject(Of InvoiceRows)()
+            _InvoiceHeader = _ocur.CreateObject(GetType(InvoiceHeader))
+
+            _InvoiceHeader.PaymentOption = _ContractRowsCollection(i).PaymentOption
+            _InvoiceHeader.ShipmentOption = _ContractRowsCollection(i).ShipmentOption
+
+            'Ha a sor típusa előleg akkor az előleg számla típusát kell vennünk a szerz.sablonnak egyébként a rendeset
+            If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eAdvance Then
+                _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceTypeAdvanced
+            Else
+                _InvoiceHeader.InvoiceType = _ContractRowsCollection(i).Contracts.ContractTemplate.InvoiceType
+            End If
+            If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then
+                _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma
+                _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG)
+            End If
+
+
+            _InvoiceHeader.IsProforma = _ContractsRowsToInvoice.IsProforma
+            _InvoiceHeader.IsEditable = False
+            _InvoiceHeader.CustomersFrom = _ContractRowsCollection(i).Contracts.CustomersFrom
+            _InvoiceHeader.Customers = _ContractRowsCollection(i).Contracts.Customers
+            _InvoiceHeader.Description = _ocur.GetObject(_ContractsRowsToInvoice.Description)
+            _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).Contracts.CurrencyName_Invoice
+            _InvoiceHeader.CurrencyRate = _ContractsRowsToInvoice.CurrencyRate
+            _InvoiceHeader.BankInformation = _ContractRowsCollection(i).Contracts.BankInformation
+
+            '-- Próbaszámla miatt el kell menteni a tényleges adatokat --------------------------------------------------------
+            _InvoiceHeader.Saved_Customers_Name = _ContractRowsCollection(i).Contracts.Customers.Name.ToString
+            _InvoiceHeader.Saved_Customers_Address_Country = _ContractRowsCollection(i).Contracts.Customers.Address1.Country.ToString
+            _InvoiceHeader.Saved_Customers_Address_ZipPostal = _ContractRowsCollection(i).Contracts.Customers.Address1.ZipPostal.ToString
+            _InvoiceHeader.Saved_Customers_Address_Street = _ContractRowsCollection(i).Contracts.Customers.Address1.Street.ToString
+            _InvoiceHeader.Saved_Customers_Address_City = _ContractRowsCollection(i).Contracts.Customers.Address1.City.ToString
+            _InvoiceHeader.Saved_Customers_Address_StateProvince = _ContractRowsCollection(i).Contracts.Customers.Address1.StateProvince.ToString
+            _InvoiceHeader.Saved_Customers_VATNumber = _ContractRowsCollection(i).Contracts.Customers.VATNumber.ToString
+            _InvoiceHeader.Saved_Customers_VATNumberEU = _ContractRowsCollection(i).Contracts.Customers.VATNumberEU.ToString
+
+            _InvoiceHeader.Saved_CustomersFrom_Name = _ContractRowsCollection(i).Contracts.CustomersFrom.Name.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_ZipPostal = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.ZipPostal.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_Street = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.Street.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_City = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.City.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Address_StateProvince = _ContractRowsCollection(i).Contracts.CustomersFrom.Address1.StateProvince.ToString
+            _InvoiceHeader.Saved_CustomersFrom_VATNumber = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumber.ToString
+            _InvoiceHeader.Saved_CustomersFrom_VATNumberEU = _ContractRowsCollection(i).Contracts.CustomersFrom.VATNumberEU.ToString
+
+            _InvoiceHeader.Saved_CustomersFrom_Bank_ShortName = _InvoiceHeader.BankInformation.FullBankAccount.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Bank_IBAN = _InvoiceHeader.BankInformation.IBAN.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Bank_SWIFT = _InvoiceHeader.BankInformation.SWIFT.ToString
+            _InvoiceHeader.Saved_CustomersFrom_Bank_AccountNumber = _InvoiceHeader.BankInformation.AccountNumber.ToString
+            '------------------------------------------------------------------------------------------------------------------
+            If _ContractRowsCollection(i).ContractRowsType = eContractRowsType.eMileStone Then
+                _InvoiceHeader.DateExecution = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractsRowsToInvoice).DateExecution
+            Else
+                _InvoiceHeader.DateExecution = _ContractRowsCollection(i).DateExecution
+            End If
+            If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution
+            Else
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay)
+            End If
+            _InvoiceHeader.CurrencyName = _ContractRowsCollection(i).Contracts.CurrencyName_Invoice
+
+            If _InvoiceHeader.IsProforma = False Then
+                _InvoiceHeader.ConnectInfo = _InvoiceHeader.InvoiceType.NumberGenerator.GetNewNumber(_InvoiceHeader.InvoiceType.NumberGenerator)
+            End If
+
+            _InvoiceHeader.DocumentNumber = _InvoiceHeader.ConnectInfo
+            _InvoiceHeader.DateCreated = GetSQLTime(TryCast(View.ObjectSpace, Xpo.XPObjectSpace).Session)
+
+            ' -- Ha folyamatos teljesítésű számla akkor a fizetési határidő megegyezik a teljesítés dátumával
+            If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution
+            Else
+                ' -- Egyébként számolja ki a fizetési opcióból, hogy hány nap van a kiállítás dátuma és a fizetési határidő között
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay)
+            End If
+
+            '-- A következő sorok vizsgálata és hozzáadása a fenti fejléchez amíg az ezt engedélyezo feltételek teljesülnek
+            Do
+                _InvoiceRows_new = _ocur.CreateObject(Of InvoiceRows)()
+                _InvoiceRows_new.InvoiceHeader = _InvoiceHeader
+                _InvoiceHeader.InvoicePeriod = _ContractRowsCollection(i).InvoicePeriod
+                _InvoiceRows_new.InvoicePeriod = _ContractRowsCollection(i).InvoicePeriod
+
+                _InvoiceRows_new.CustomsTariffs = _ContractRowsCollection(i).CustomsTariffs
+                _InvoiceRows_new.Description = _ContractRowsCollection(i).Description
+                _InvoiceRows_new.QTT = _ContractRowsCollection(i).QTT
+                _InvoiceRows_new.QualityOption = _ContractRowsCollection(i).QualityOption
+                _InvoiceRows_new.VAT = _ContractRowsCollection(i).VAT
+                _InvoiceRows_new.Units = _ContractRowsCollection(i).Units
+                _InvoiceRows_new.ShortName = _ContractRowsCollection(i).ShortName
+
+                If _ContractRowsCollection(i).Contracts.CurrencyName.ShortName <> "HUF" Then
+                    _InvoiceRows_new.ListPriceHUF = Math.Round(_ContractRowsCollection(i).NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                Else
+                    _InvoiceRows_new.ListPriceHUF = _ContractRowsCollection(i).NettoPriceHUF
+                End If
+                _InvoiceRows_new.ListPriceDEV = _ContractRowsCollection(i).NettoPriceDEV
+                _InvoiceRows_new.ContractRows = _ContractRowsCollection(i)
+
+                _InvoiceRows_new.Save()
+                _InvoiceRows_Array.Add(_InvoiceRows_new)
+                If i = _ContractRowsCollection.Count - 1 Then
+                    _IsNextWhile = False
+                    Exit Do
+                End If
+                i += 1
+            Loop While _ContractRowsCollection(i - 1).Contracts.CustomersFrom Is _ContractRowsCollection(i).Contracts.CustomersFrom And _
+                    _ContractRowsCollection(i - 1).Contracts.Customers Is _ContractRowsCollection(i).Contracts.Customers And _
+                    _ContractRowsCollection(i - 1).Contracts.BankInformation Is _ContractRowsCollection(i).Contracts.BankInformation And _
+                    _ContractRowsCollection(i - 1).DateExecution = _ContractRowsCollection(i).DateExecution And _
+                    _ContractRowsCollection(i - 1).CurrencyName Is _ContractRowsCollection(i).CurrencyName And _
+                    _ContractRowsCollection(i - 1).PaymentOption Is _ContractRowsCollection(i).PaymentOption
+
+            _InvoiceHeader.Save()
+            _ocur.CommitChanges()
+            _InvoiceHeader.RecalculateInvoice(_InvoiceHeader, _ocur)
+            _ocur.CommitChanges()
+
+            _InvoiceHeaderCreated.Add(_InvoiceHeader)
+        Loop
+
+        For Each _InvoiceRows_new In _InvoiceRows_Array
+            _ContractRows = _InvoiceRows_new.ContractRows
+            _ContractRows.InvoiceRows = _InvoiceRows_new
+            If _ContractRows.Contracts.CurrencyName.ShortName <> "HUF" Then
+                _ContractRows.NettoPriceHUF = Math.Round(_ContractRows.NettoPriceDEV * _ContractsRowsToInvoice.CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                _ContractRows.CurrencyRate = _ContractsRowsToInvoice.CurrencyRate
+            End If
+
+            _ContractRows.Save()
+        Next
+        _ocur.CommitChanges()
+        _noselect = False
+
+        Me.PrintSelectedInvoices()
+
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        Exit Sub
+CheckError:
+        If Err.Number = 91 Then Resume Next
+        If Err.Number = 13 Then Resume Next
+
+    End Sub
+
+    Sub PrintSelectedInvoices()
+        'Meg kell állapítani, hogy a vevő belföldi vagy külföldi.
+
+        Dim _ReportData As ReportData
+        Dim _ReportData_DEV As ReportData
+        Dim _ReportData_DEV_EU As ReportData
+        Dim _InvoiceHeader As InvoiceHeader
+        Dim _CurrencyName As CurrencyName
+        If _InvoiceHeaderCreated.Count > 0 Then
+            _InvoiceHeader = TryCast(_InvoiceHeaderCreated(0), InvoiceHeader)
+
+            _CurrencyName = _InvoiceHeader.CurrencyName
+            If _InvoiceHeader IsNot Nothing Then
+                _ReportData = _InvoiceHeader.InvoiceType.ReportData
+                _ReportData_DEV = _InvoiceHeader.InvoiceType.ReportData_DEV
+                _ReportData_DEV_EU = _InvoiceHeader.InvoiceType.ReportData_DEV_EU
+                If _ReportData IsNot Nothing Or _InvoiceHeader Is Nothing Then
+                    Dim _inoperator As New InOperator("InvoiceHeader", _InvoiceHeaderCreated)
+                    If _CurrencyName.ShortName = "HUF" Then
+                        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, _inoperator, True)
+                    Else
+                        Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData_DEV, _inoperator, True)
+                    End If
+                End If
+            End If
+        End If
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRows.vb

@@ -0,0 +1,542 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<Appearance("Disable ContractRows-CurrencyName when IsNull(CurrencyName)=False", AppearanceItemType.ViewItem, "IsNull(CurrencyName)=False", TargetItems:="CurrencyName", Enabled:=False)> _
+'<EditorStateRule("Hide DEV when DEV is HUF", "NettoPriceDEV;CurrencyRate", EditorState.Hidden, "CurrencyName.ShortName='HUF'", ViewType.DetailView)> _
+'<EditorStateRule("Hide MileStone when DEV ContractRowsType<>1", "MileStone", EditorState.Hidden, "ContractRowsType<>1", ViewType.DetailView)> _
+'<EditorStateRule("Disable edit when invoicerow not nothing", _
+'    "MileStone;DateExecution;Controlling;UniqueObjects;ShortName;Description;QTT;Units;NettoPriceHUF;NettoPriceDEV;CurrencyName;CurrencyRate;PaymentOption;ShipmentOption;QualityOption;VAT;ContractRowsType;CostHolder;CostPlace;InvoicePeriod", _
+'    EditorState.Disabled, "IsNull(InvoiceRows)=False", DevExpress.ExpressApp.ViewType.Any)> _
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide DEV when DEV is HUF", TargetItems:="NettoPriceDEV;CurrencyRate", Criteria:="CurrencyName.ShortName='HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide MileStone when DEV ContractRowsType<>1", TargetItems:="MileStone", Criteria:="ContractRowsType<>1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Disable edit when invoicerow not nothing", _
+    TargetItems:="MileStone;DateExecution;Controlling;UniqueObjects;ShortName;Description;QTT;Units;NettoPriceHUF;NettoPriceDEV;CurrencyName;CurrencyRate;PaymentOption;ShipmentOption;QualityOption;VAT;ContractRowsType;CostHolder;CostPlace;InvoicePeriod", _
+    Criteria:="IsNull(InvoiceRows)=False", Enabled:=False, Context:="Any")>
+<Appearance("Disable delete and modifications if Controlled Or Invoiced", AppearanceItemType:="Action", TargetItems:="Delete,aDivideContractRows,aMergeContractRows", Enabled:=False, Criteria:="IsNull(RegistryRowsFinancialControlling)=False OR IsNull(InvoiceRows)=False OR IsNull(InvoiceRowsAdvance)=False", Context:="Any")> _
+<Appearance("Disable open coc if not certificated", AppearanceItemType:="Action", TargetItems:="aOpenCOCFromContractRows", Enabled:=False, Criteria:="IsNull(CertificateofContractRows)", Context:="Any")> _
+<Appearance("Disable open invoice if not invoiced", AppearanceItemType:="Action", TargetItems:="aOpenInvoiceFromContractRows", Enabled:=False, Criteria:="IsNull(InvoiceRows)", Context:="Any")> _
+<Appearance("Disable open registry invoice if not controlled", AppearanceItemType:="Action", TargetItems:="aOpenRegistryInvoiceFromContractRows", Enabled:=False, Criteria:="IsNull(RegistryRowsFinancialControlling)", Context:="Any")> _
+<Appearance("Status in rows in PartnerType=0", AppearanceItemType:="ViewItem", TargetItems:="eContractRowsCOCState;eContractRowsRRFCState", Enabled:=False, Criteria:="Contracts.ContractTemplate.PartnerType=0", Context:="Any")> _
+<Appearance("Status in rows in PartnerType=1", AppearanceItemType:="ViewItem", TargetItems:="eContractRowsInvoiceState", Enabled:=False, Criteria:="Contracts.ContractTemplate.PartnerType=1", Context:="Any")> _
+<Appearance("Disable ContractRows-RowGroup1, RowGroup2 when Contracts.ContractTemplate.IsCRM=False", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.IsCRM=False", TargetItems:="RowGroup1;RowGroup2", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ContractRows-ShipmentOption, QualityOption when Contracts.ContractTemplate.IsCRM=False", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.IsCRM=False", TargetItems:="ShipmentOption;QualityOption", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ContractRows-InvoiceRows;eContractRowsInvoiceState;InvoiceRowsAdvance;CustomsTariffs when Contracts.ContractTemplate.PartnerType=1", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.PartnerType=1", TargetItems:="InvoiceRows;eContractRowsInvoiceState;InvoiceRowsAdvance;CustomsTariffs", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ContractRows-eContractRowsCOCState;eContractRowsRRFCState; when Contracts.ContractTemplate.PartnerType=0", AppearanceItemType.ViewItem, "Contracts.ContractTemplate.PartnerType=0", TargetItems:="eContractRowsCOCState;eContractRowsRRFCState", visibility:=Editors.ViewItemVisibility.Hide)> _
+<DefaultProperty("DisplayName")> _
+<RuleCriteria("RuleCriteria ContactRows-Controlling", DefaultContexts.Save, _
+    "(Controlling.IsParent=False) or (Contracts.ContractTemplate.Rule5DMatrix.RequireControlling=False and isnull(Controlling)=True) or (IsNull(Contracts.ContractTemplate.Rule5DMatrix)=True)", _
+    "Gyüjtõ kontrollszám nem választható ki!", SkipNullOrEmptyValues:=False)> _
+Public Class ContractRows 'Szerzõdési sorok
+    Inherits BaseObject
+    Private _Contracts As Contracts '-- Szerzõdés fejléc
+    Private _MileStone As ContractMileStone '-- Mérföldkõ
+    Private _DateExecution As Date '-- Teljesítési dátum
+    Private _ShortName As String '-- Megnevezés
+    Private _Description As String '-- Leírás
+    Private _QTT As Double '-- Mennyiség
+    Private _Units As Units '-- Mennyiségi egység
+    Private _NettoPriceHUF As Double '-- Nettó egységár (HUF)
+    Private _NettoPriceDEV As Double '-- Nettó egységár (DEV)
+
+    Private _SumNettoPriceHUF As Double '-- Nettó sorérték (HUF)
+    Private _SumNettoPriceDEV As Double '-- Nettó sorérték (DEV)
+    Private _SumBruttoPriceHUF As Double '-- Nettó sorérték (HUF)
+    Private _SumBruttoPriceDEV As Double '-- Nettó sorérték (DEV)
+
+    Private _CurrencyName As CurrencyName '-- Deviza
+    Private _CurrencyRate As Double = 1 '-- Árfolyam
+    Private _PaymentOption As PaymentOption '--Fizetési opció
+    Private _ShipmentOption As ShipmentOption '-- Szállítási opció
+    Private _QualityOption As QualityOption '-- Minõségi opció
+    Private _VAT As VAT 'ÁFA kód
+    Private _InvoiceRows As InvoiceRows '-- Milyen soron lett kiszámlázva<NonCloneable()> _
+    Private _InvoiceRowsAdvance As InvoiceRows ' --Ez a szerzõdés sor, ha ki van állítva számlán akkor milyen számlán lett visszaminuszolva.<NonCloneable()> _
+    Private _ContractRowsType As eContractRowsType ' -- A szerzõdés sorának a típusa
+    '-- Jelölõ adatok -------------------------------------------------------------------------------
+    Private _Controlling As Controlling '-- Controlling szám
+    Private _CostHolder As CostHolder ' -- Költségviselõ
+    Private _CostPlace As CostPlace '-- Költséghely
+    Private _JobNumberObjects As JobNumberObjects '-- Projekt amihez a sor tartozik
+    Private _UniqueObjects As UniqueObjects ' -- Egyedi azonosító
+    '------------------------------------------------------------------------------------------------
+    Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling ' -- Iktatási teljesítésre bontás sora (le van e teljesítési igazolva a sor)<NonCloneable()> _
+    Private _RowGroup1 As String
+    Private _RowGroup2 As String
+    Private _CustomsTariffs As CustomsTariffs
+    Private _InvoicePeriod As String 'Számlázási idõszak
+    Private _CertificateofContractRows As CertificateofContractRows '<NonCloneable()> _
+    Private _eContractRowsInvoiceState As eContractRowsInvoiceState 'Ki van-e számlázva az aktuális sor?<NonCloneable()> _
+    Private _eContractRowsCOCState As eContractRowsCOCState 'Le van-e teljesítési igazolva az aktuális sor?<NonCloneable()> _
+    Private _eContractRowsRRFCState As eContractRowsRRFCState 'Le van-e számla igazolva az aktuális sor?<NonCloneable()> _
+    Private _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
+
+    Private _Apartments As Apartments '-- Lakás
+    Private _Garages As Garages '-- Garázs
+    Private _Container As Container '-- Tároló
+    Private _Offices As Offices '-- Üzletek
+    Private _XLSGuid As String ' XLS sorban lévõ saját guid
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Units = Session.FindObject(Of Units)(1, CriteriaOperator.Parse("ShortName='DB'"))
+        QTT = 1
+        CurrencyName = Session.FindObject(Of CurrencyName)(PersistentCriteriaEvaluationBehavior.InTransaction, Session.ParseCriteria("ShortName='HUF'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If VAT Is Nothing Then
+            SumNettoPriceHUF = Math.Round(QTT * NettoPriceHUF, 0, MidpointRounding.AwayFromZero)
+            SumBruttoPriceHUF = SumNettoPriceHUF
+            SumNettoPriceDEV = Math.Round(QTT * NettoPriceDEV, 2, MidpointRounding.AwayFromZero)
+            SumBruttoPriceDEV = SumNettoPriceDEV
+        Else
+            SumNettoPriceHUF = Math.Round(QTT * NettoPriceHUF, 0, MidpointRounding.AwayFromZero)
+            SumBruttoPriceHUF = Math.Round(SumNettoPriceHUF * (1 + VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+            SumNettoPriceDEV = Math.Round(QTT * NettoPriceDEV, 2, MidpointRounding.AwayFromZero)
+            SumBruttoPriceDEV = Math.Round(SumNettoPriceDEV * (1 + VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+        End If
+    End Sub
+    <Association("Contracts-ContractRows", GetType(Contracts))> _
+    Property Contracts() As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows-MileStone", DefaultContexts.Save, TargetCriteria:="ContractRowsType=1")> _
+    Property MileStone As ContractMileStone
+        Get
+            Return _MileStone
+        End Get
+        Set(ByVal value As ContractMileStone)
+            SetPropertyValue("MileStone", _MileStone, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-DateExecution", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.IsProducts=False and ContractRowsType<>1")> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    ' <DataSourceCriteria("Controlling.Controllingdirection=-1 AND Contracts.ContractTemplate.PartnerType=0")> _
+    <RuleRequiredField("ContactRows-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 QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows_Units", DefaultContexts.Save)> _
+    Property Units() As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows_NettoPriceHUF", DefaultContexts.Save, TargetCriteria:="CurrencyName.ShortName='HUF'")> _
+    Property NettoPriceHUF() As Double
+        Get
+            Return _NettoPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows_NettoPriceDEV", DefaultContexts.Save, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    Property NettoPriceDEV() As Double
+        Get
+            Return _NettoPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                If CurrencyName IsNot Nothing Then
+                    If CurrencyName.ShortName <> "HUF" Then
+                        NettoPriceHUF = Math.Round(CurrencyRate * value, 0, MidpointRounding.AwayFromZero)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumNettoPriceHUF As Double
+        Get
+            Return _SumNettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumNettoPriceHUF", _SumNettoPriceHUF, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumNettoPriceDEV As Double
+        Get
+            Return _SumNettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumNettoPriceDEV", _SumNettoPriceDEV, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumBruttoPriceHUF As Double
+        Get
+            Return _SumBruttoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumBruttoPriceHUF", _SumBruttoPriceHUF, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    Property SumBruttoPriceDEV As Double
+        Get
+            Return _SumBruttoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumBruttoPriceDEV", _SumBruttoPriceDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    '<RuleValueComparison("ContractRows-CurrencyRate <>1", DefaultContexts.Save, ValueComparisonType.NotEquals, 1, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    <RuleValueComparison("ContractRows-CurrencyRate 0<", DefaultContexts.Save, ValueComparisonType.GreaterThan, 0, TargetCriteria:="CurrencyName.ShortName<>'HUF'")> _
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+            If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
+                If CurrencyName IsNot Nothing Then
+                    If CurrencyName.ShortName <> "HUF" Then
+                        NettoPriceHUF = Math.Round(NettoPriceDEV * value, 0, MidpointRounding.AwayFromZero)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContractRows.PaymentOptions", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.PartnerType = 0")> _
+    Property PaymentOption() As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <RuleRequiredField("VAT is required if ContractsTemplate receiveables", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.PartnerType=0")> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property InvoiceRows As InvoiceRows
+        Get
+            Return _InvoiceRows
+        End Get
+        Set(ByVal value As InvoiceRows)
+            SetPropertyValue("InvoiceRows", _InvoiceRows, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property InvoiceRowsAdvance As InvoiceRows
+        Get
+            Return _InvoiceRowsAdvance
+        End Get
+        Set(ByVal value As InvoiceRows)
+            SetPropertyValue("InvoiceRowsAdvance", _InvoiceRowsAdvance, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property ContractRowsType As eContractRowsType
+        Get
+            Return _ContractRowsType
+        End Get
+        Set(ByVal value As eContractRowsType)
+            SetPropertyValue("ContractRowsType", _ContractRowsType, value)
+        End Set
+    End Property
+    Property InvoicePeriod As String
+        Get
+            Return _InvoicePeriod
+        End Get
+        Set(value As String)
+            SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
+        Get
+            Return _ImmovablesCostRecordEvents
+        End Get
+        Set(value As ImmovablesCostRecordEvents)
+            SetPropertyValue("ImmovablesCostRecordEvents", _ImmovablesCostRecordEvents, value)
+        End Set
+    End Property
+
+    'Rule5DMatrix ! ---------------------------------
+    <RuleRequiredField("ContactRows-Controlling", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireControlling=True")> _
+    Property Controlling() As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.Controlling IsNot value Then
+                    _RegistryRowsFinancialControlling.Controlling = value
+                    _RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostHolder=True")> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.CostHolder IsNot value Then
+                    Me.RegistryRowsFinancialControlling.CostHolder = value
+                    Me.RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostPlace=True")> _
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")> _
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.JobNumberObjects IsNot value Then
+                    Me.RegistryRowsFinancialControlling.JobNumberObjects = value
+                    Me.RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("ContactRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(ByVal value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                If Me.RegistryRowsFinancialControlling.UniqueObjects IsNot value Then
+                    _RegistryRowsFinancialControlling.UniqueObjects = value
+                    _RegistryRowsFinancialControlling.Save()
+                End If
+            End If
+        End Set
+    End Property
+
+    <NonCloneable()> _
+    Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Get
+            Return _RegistryRowsFinancialControlling
+        End Get
+        Set(ByVal value As RegistryRowsFinancialControlling)
+            SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
+        End Set
+    End Property
+    Property RowGroup1 As String
+        Get
+            Return _RowGroup1
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup1", _RowGroup1, value)
+        End Set
+    End Property
+    Property RowGroup2 As String
+        Get
+            Return _RowGroup2
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("RowGroup2", _RowGroup2, value)
+        End Set
+    End Property
+    Property CustomsTariffs As CustomsTariffs
+        Get
+            Return _CustomsTariffs
+        End Get
+        Set(value As CustomsTariffs)
+            SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property CertificateofContractRows As CertificateofContractRows
+        Get
+            Return _CertificateofContractRows
+        End Get
+        Set(value As CertificateofContractRows)
+            SetPropertyValue("CertificateofContractRows", _CertificateofContractRows, value)
+        End Set
+    End Property
+    'Readonly
+    ReadOnly Property DisplayName() As String
+        Get
+            If Me.Contracts Is Nothing Then
+                Return ShortName & ", " & DateExecution
+            ElseIf Me.Contracts.Customers Is Nothing Then
+                Return Contracts.DocumentNumber & ", " & ShortName & ", " & DateExecution
+            Else
+                Return Contracts.DocumentNumber & ", " & ShortName & ", " & DateExecution & ", " & Contracts.Customers.FullName
+            End If
+        End Get
+    End Property
+    ReadOnly Property eContractRowsCOCState As eContractRowsCOCState
+        Get
+            If Me.CertificateofContractRows IsNot Nothing Then
+                Return [Module].eContractRowsCOCState.eCertificated
+            Else
+                Return [Module].eContractRowsCOCState.eNotCertificated
+            End If
+        End Get
+    End Property
+    ReadOnly Property eContractRowsInvoiceState As eContractRowsInvoiceState
+        Get
+            If Me.InvoiceRows IsNot Nothing Or Me.InvoiceRowsAdvance IsNot Nothing Then
+                Return [Module].eContractRowsInvoiceState.eInvoiced
+            Else
+                Return [Module].eContractRowsInvoiceState.eNotInvoiced
+            End If
+        End Get
+    End Property
+    ReadOnly Property eContractRowsRRFCState As eContractRowsRRFCState
+        Get
+            If Me.RegistryRowsFinancialControlling IsNot Nothing Then
+                Return [Module].eContractRowsRRFCState.eControlled
+            Else
+                Return [Module].eContractRowsRRFCState.eNotControlled
+            End If
+        End Get
+    End Property
+
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Apartments As Apartments
+        Get
+            Return _Apartments
+        End Get
+        Set(value As Apartments)
+            SetPropertyValue("Apartments", _Apartments, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Garages As Garages
+        Get
+            Return _Garages
+        End Get
+        Set(value As Garages)
+            SetPropertyValue("Garages", _Garages, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Container As Container
+        Get
+            Return _Container
+        End Get
+        Set(value As Container)
+            SetPropertyValue("Container", _Container, value)
+        End Set
+    End Property
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property Offices As Offices
+        Get
+            Return _Offices
+        End Get
+        Set(value As Offices)
+            SetPropertyValue("Offices", _Offices, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property XLSGuid As String
+        Get
+            Return _XLSGuid
+        End Get
+        Set(value As String)
+            SetPropertyValue("XLSGuid", _XLSGuid, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.Designer.vb

@@ -0,0 +1,106 @@
+Partial Class ContractRowsVC
+
+	<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.aDescriptionChanger_ContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aShortNameChanger_ContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aModifyContractRowsData = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aConnectContractRowToInvoiceRow = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aDescriptionChanger_ContractRows
+        '
+        Me.aDescriptionChanger_ContractRows.AcceptButtonCaption = Nothing
+        Me.aDescriptionChanger_ContractRows.CancelButtonCaption = Nothing
+        Me.aDescriptionChanger_ContractRows.Caption = "Description Changer"
+        Me.aDescriptionChanger_ContractRows.Category = "aDescriptionChanger_ContractRows"
+        Me.aDescriptionChanger_ContractRows.ConfirmationMessage = Nothing
+        Me.aDescriptionChanger_ContractRows.Id = "aDescriptionChanger_ContractRows"
+        Me.aDescriptionChanger_ContractRows.ImageName = Nothing
+        Me.aDescriptionChanger_ContractRows.Shortcut = Nothing
+        Me.aDescriptionChanger_ContractRows.Tag = Nothing
+        Me.aDescriptionChanger_ContractRows.TargetObjectsCriteria = Nothing
+        Me.aDescriptionChanger_ContractRows.TargetViewId = ""
+        Me.aDescriptionChanger_ContractRows.ToolTip = Nothing
+        Me.aDescriptionChanger_ContractRows.TypeOfView = Nothing
+        '
+        'aShortNameChanger_ContractRows
+        '
+        Me.aShortNameChanger_ContractRows.AcceptButtonCaption = Nothing
+        Me.aShortNameChanger_ContractRows.CancelButtonCaption = Nothing
+        Me.aShortNameChanger_ContractRows.Caption = "Description Changer"
+        Me.aShortNameChanger_ContractRows.Category = "aShortNameChanger_ContractRows"
+        Me.aShortNameChanger_ContractRows.ConfirmationMessage = Nothing
+        Me.aShortNameChanger_ContractRows.Id = "aShortNameChanger_ContractRows"
+        Me.aShortNameChanger_ContractRows.ImageName = Nothing
+        Me.aShortNameChanger_ContractRows.Shortcut = Nothing
+        Me.aShortNameChanger_ContractRows.Tag = Nothing
+        Me.aShortNameChanger_ContractRows.TargetObjectsCriteria = Nothing
+        Me.aShortNameChanger_ContractRows.TargetViewId = ""
+        Me.aShortNameChanger_ContractRows.ToolTip = Nothing
+        Me.aShortNameChanger_ContractRows.TypeOfView = Nothing
+        '
+        'aModifyContractRowsData
+        '
+        Me.aModifyContractRowsData.AcceptButtonCaption = Nothing
+        Me.aModifyContractRowsData.CancelButtonCaption = Nothing
+        Me.aModifyContractRowsData.Caption = "aModify Contract Rows Data"
+        Me.aModifyContractRowsData.ConfirmationMessage = Nothing
+        Me.aModifyContractRowsData.Id = "aModifyContractRowsData"
+        Me.aModifyContractRowsData.ImageName = Nothing
+        Me.aModifyContractRowsData.Shortcut = Nothing
+        Me.aModifyContractRowsData.Tag = Nothing
+        Me.aModifyContractRowsData.TargetObjectsCriteria = Nothing
+        Me.aModifyContractRowsData.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aModifyContractRowsData.TargetViewId = Nothing
+        Me.aModifyContractRowsData.ToolTip = Nothing
+        Me.aModifyContractRowsData.TypeOfView = Nothing
+        '
+        'aConnectContractRowToInvoiceRow
+        '
+        Me.aConnectContractRowToInvoiceRow.AcceptButtonCaption = Nothing
+        Me.aConnectContractRowToInvoiceRow.CancelButtonCaption = Nothing
+        Me.aConnectContractRowToInvoiceRow.Caption = "aConnect Contract Row To Invoice Row"
+        Me.aConnectContractRowToInvoiceRow.ConfirmationMessage = Nothing
+        Me.aConnectContractRowToInvoiceRow.Id = "aConnectContractRowToInvoiceRow"
+        Me.aConnectContractRowToInvoiceRow.ImageName = Nothing
+        Me.aConnectContractRowToInvoiceRow.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aConnectContractRowToInvoiceRow.Shortcut = Nothing
+        Me.aConnectContractRowToInvoiceRow.Tag = Nothing
+        Me.aConnectContractRowToInvoiceRow.TargetObjectsCriteria = Nothing
+        Me.aConnectContractRowToInvoiceRow.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aConnectContractRowToInvoiceRow.TargetViewId = ""
+        Me.aConnectContractRowToInvoiceRow.ToolTip = Nothing
+        Me.aConnectContractRowToInvoiceRow.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aDescriptionChanger_ContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aShortNameChanger_ContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aModifyContractRowsData As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aConnectContractRowToInvoiceRow As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.resx

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractRowsVC.vb

@@ -0,0 +1,250 @@
+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 System.Linq
+Imports System.Linq.Expressions
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+
+Public Class ContractRowsVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+    Public Sub New()
+
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aConnectContractRowToInvoiceRow.Active.SetItemValue("", False)
+        If View.Id = "ContractRows_DetailView" Then
+            Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ContractRows_ListView_Invoice_Not_MileStone" Or _
+           View.Id = "ContractRows_ListView_Invoice_MileStone" Or _
+           View.Id = "ContractRows_ListView_Invoice_CustomRate" Or _
+           View.Id = "ContractRows_ListView_Invoice_Advance" Then
+            Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractRowsVC).aConnectContractRowToInvoiceRow.Active.SetItemValue("", True)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        Frame.GetController(Of ContractRowsVC).aDescriptionChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aShortNameChanger_ContractRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractRowsVC).aModifyContractRowsData.Active.SetItemValue("", False)
+    End Sub
+
+    Private Sub aDescriptionChanger_ContractRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescriptionChanger_ContractRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows_DescriptionChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp
+        Dim _CS_Description As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp))
+
+        Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_ocur.Session)
+        Dim query = From _ContractRows In _ContractRows_xpquery _
+                    Where _ContractRows.Description IsNot Nothing _
+        Group _ContractRows By _ContractRows.Description Into g = Group _
+        Select New With {Key .Description = Description}
+        For Each item In query
+            _ContractRows_DescriptionChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)()
+            _ContractRows_DescriptionChanger_PopUp.Description = item.Description
+            _CS_Description.Add(_ContractRows_DescriptionChanger_PopUp)
+        Next
+        e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_Description, False)
+    End Sub
+    Private Sub aDescriptionChanger_ContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescriptionChanger_ContractRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        For Each _Description In e.PopupWindow.View.SelectedObjects
+            If _ContractRows.Description Is Nothing Then
+                _ContractRows.Description = TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description
+            Else
+                _ContractRows.Description += vbNewLine & TryCast(_Description, InvoiceHeader_DescriptionChanger_PopUp).Description
+            End If
+        Next
+    End Sub
+
+    Private Sub aShortNameChanger_ContractRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aShortNameChanger_ContractRows.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows_ShortNameChanger_PopUp As InvoiceHeader_DescriptionChanger_PopUp
+        Dim _CS_ShortName As New CollectionSource(_onew, GetType(InvoiceHeader_DescriptionChanger_PopUp))
+
+        Dim _ContractRows_xpquery = New XPQuery(Of ContractRows)(_ocur.Session)
+        Dim query = From _ContractRows In _ContractRows_xpquery _
+                    Where _ContractRows.Description IsNot Nothing _
+        Group _ContractRows By _ContractRows.ShortName Into g = Group _
+        Select New With {Key .ShortName = ShortName}
+        For Each item In query
+            _ContractRows_ShortNameChanger_PopUp = _onew.CreateObject(Of InvoiceHeader_DescriptionChanger_PopUp)()
+            _ContractRows_ShortNameChanger_PopUp.Description = item.ShortName
+            _CS_ShortName.Add(_ContractRows_ShortNameChanger_PopUp)
+        Next
+        e.View = Application.CreateListView("InvoiceHeader_DescriptionChanger_PopUp_ListView", _CS_ShortName, False)
+    End Sub
+    Private Sub aShortNameChanger_ContractRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aShortNameChanger_ContractRows.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        For Each _ShortName In e.PopupWindow.View.SelectedObjects
+            If _ContractRows.ShortName Is Nothing Then
+                _ContractRows.ShortName = TryCast(_ShortName, InvoiceHeader_DescriptionChanger_PopUp).Description
+            Else
+                _ContractRows.ShortName += " " & TryCast(_ShortName, InvoiceHeader_DescriptionChanger_PopUp).Description
+            End If
+        Next
+    End Sub
+
+    Private Sub aModifyContractRowsData_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aModifyContractRowsData.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+        Dim _ContractRowsModifyData As ContractRowsModifyData = _onew.CreateObject(Of ContractRowsModifyData)()
+
+        e.View = Application.CreateDetailView(_onew, "ContractRowsModifyData_DetailView", False, _ContractRowsModifyData)
+    End Sub
+    Private Sub aModifyContractRowsData_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aModifyContractRowsData.Execute
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRowsModifyData As ContractRowsModifyData = e.PopupWindow.View.SelectedObjects(0)
+        Dim _ArrayList As ArrayList = New ArrayList()
+        Dim _uow_lock As New UnitOfWork(_ocur.Session.DataLayer)
+        Dim _User As DevExpress.Persistent.BaseImpl.User = _ocur.GetObject(TryCast(SecuritySystem.CurrentUser, DevExpress.Persistent.BaseImpl.User))
+        Try
+            Dim _ContractRows As ContractRows
+            For Each _ContractRows In e.SelectedObjects
+                If Not LockingModule.LockObject(_uow_lock, GetType(ContractRows), _ContractRows.Oid.ToString(), _User) Then
+                    Dim _LockingObject As LockingObject = _ocur.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(ContractRows).Name + "-" + _ContractRows.Oid.ToString()))
+                    _ArrayList.Add(_ContractRows)
+                End If
+            Next
+
+            If _ArrayList.Count = 0 Then
+                For Each _ContractRows In e.SelectedObjects
+                    If _ContractRowsModifyData.IsDateExecution Then _ContractRows.DateExecution = _ContractRowsModifyData.DateExecution
+                    If _ContractRowsModifyData.IsPaymentOption Then _ContractRows.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ContractRowsModifyData.PaymentOption.Oid)
+                    If _ContractRowsModifyData.IsNettoPriceHUF Then _ContractRows.NettoPriceHUF = _ContractRowsModifyData.NettoPriceHUF
+                    If _ContractRowsModifyData.IsNettoPriceDEV Then _ContractRows.NettoPriceDEV = _ContractRowsModifyData.NettoPriceDEV
+                    If _ContractRowsModifyData.IsDescription Then _ContractRows.Description = _ContractRowsModifyData.Description
+                    If _ContractRowsModifyData.IsShortName Then _ContractRows.ShortName = _ContractRowsModifyData.ShortName
+                    If _ContractRowsModifyData.IsInvoicePeriod Then _ContractRows.InvoicePeriod = _ContractRowsModifyData.InvoicePeriod
+                    If _ContractRowsModifyData.IsVAT = True Then _ContractRows.VAT = _ocur.GetObjectByKey(Of VAT)(_ContractRowsModifyData.VAT.Oid)
+                    If _ContractRowsModifyData.IsJobNumberObjects Then _ContractRows.JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_ContractRowsModifyData.JobNumberObjects.Oid)
+                    If _ContractRowsModifyData.IsUniqueObjects Then _ContractRows.UniqueObjects = _ocur.GetObjectByKey(Of UniqueObjects)(_ContractRowsModifyData.UniqueObjects.Oid)
+                    If _ContractRowsModifyData.IsControlling Then _ContractRows.Controlling = _ocur.GetObjectByKey(Of Controlling)(_ContractRowsModifyData.Controlling.Oid)
+                    If _ContractRowsModifyData.IsCostHolder Then _ContractRows.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_ContractRowsModifyData.CostHolder.Oid)
+                Next
+                _ocur.CommitChanges()
+            End If
+
+            If Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.Enabled Then
+                Frame.GetController(Of DevExpress.ExpressApp.SystemModule.RefreshController).RefreshAction.DoExecute()
+            End If
+            ' View.Refresh()
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            If _ArrayList.Count > 0 Then
+                Dim ModifyError As String = "Objektum(ok) zárolva van(nak) :" + vbNewLine + vbNewLine
+
+                For Each item As ContractRows In _ArrayList
+                    ModifyError += item.Contracts.DocumentNumber.ToString() + " " + item.ShortName.ToString() + vbNewLine
+                Next
+                ModifyError += vbNewLine + "Ezért a csoportos módosítás nem lett végrehajtva!"
+
+                Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")
+                MsgBox(String.Format(ModifyError), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+            End If
+            For Each _ContractRows In e.SelectedObjects
+                LockingModule.UnLockObject(_uow_lock, GetType(ContractRows), _ContractRows.Oid.ToString(), _User)
+            Next
+        End Try
+    End Sub
+
+    Private Sub aConnectContractRowToInvoiceRow_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aConnectContractRowToInvoiceRow.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        Dim _CS As CollectionSource = New CollectionSource(_onew, GetType(InvoiceRows))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Add("Criteria", CriteriaOperator.Parse("isnull(ContractRows)=True and InvoiceHeader.CustomersFrom.Oid=? and InvoiceHeader.Customers.Oid=? and InvoiceHeader.IsEditable=False and InvoiceHeader.IsStorno=False and InvoiceHeader.IsProforma=False", _
+                                                            _ContractRows.Contracts.CustomersFrom.Oid, _ContractRows.Contracts.Customers.Oid))
+        _CS.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("InvoiceRows_ListView_ContractRows", _CS, False)
+
+    End Sub
+    Private Sub aConnectContractRowToInvoiceRow_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aConnectContractRowToInvoiceRow.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractRows As ContractRows = TryCast(View.SelectedObjects(0), ContractRows)
+        Dim _InvoiceRows As InvoiceRows = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), InvoiceRows))
+
+        If _InvoiceRows IsNot Nothing Then
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", False)
+            _InvoiceRows.ContractRows = _ContractRows
+            _ContractRows.InvoiceRows = _InvoiceRows
+            _ocur.CommitChanges()
+
+            Frame.GetController(Of Validation.PersistenceValidationController).Active.SetItemValue("", True)
+        End If
+    End Sub
+
+    Private Sub aSyncImmovables_Execute(sender As Object, e As SimpleActionExecuteEventArgs)
+        'Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        'Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("isnull(UniqueObjects)=False"))
+        'Dim _ContractRows As ContractRows
+
+        'Dim _Apartments As Apartments
+        'Dim _Garages As Garages
+        'Dim _Offices As Offices
+        'Dim _Container As Container
+
+        'RaiseEvent InitWork(1, 1, _ContractRows_Collection.Count)
+
+        'For Each _ContractRows In _ContractRows_Collection
+        '    RaiseEvent DoWork()
+        '    _Apartments = _onew.FindObject(Of Apartments)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Apartments IsNot Nothing Then
+        '        _ContractRows.Apartments = _Apartments
+        '    End If
+
+        '    _Garages = _onew.FindObject(Of Garages)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Garages IsNot Nothing Then
+        '        _ContractRows.Garages = _Garages
+        '    End If
+
+        '    _Offices = _onew.FindObject(Of Offices)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Offices IsNot Nothing Then
+        '        _ContractRows.Offices = _Offices
+        '    End If
+
+        '    _Container = _onew.FindObject(Of Container)(CriteriaOperator.Parse("UniqueObjects=?", _ContractRows.UniqueObjects))
+        '    If _Container IsNot Nothing Then
+        '        _ContractRows.Container = _Container
+        '    End If
+        '    _onew.CommitChanges()
+        'Next
+        'RaiseEvent FinalWork
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate.vb

@@ -0,0 +1,280 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRule("Hide COC when PartnerType=0", "COC_ReportHeader;COC_ReportFooter;COC_ReportData;COC_NumberGenerator", EditorState.Hidden, "PartnerType=0", ViewType.DetailView)> _
+'<EditorStateRule("Hide InvoiceType when PartnerType=1", "InvoiceType;InvoiceTypeAdvanced;InvoiceTypeCustomRate", EditorState.Hidden, "PartnerType=1", ViewType.DetailView)> _
+'<Appearance("Hide ContractTemplate-IsCRM;IsProducts;IsImmovables when PartnerType=1", AppearanceItemType.ViewItem, "PartnerType=1", TargetItems:="IsCRM;IsProducts;IsImmovables", visibility:=Editors.ViewItemVisibility.Hide)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<Appearance("Hide COC when PartnerType=0", TargetItems:="COC_ReportHeader;COC_ReportFooter;COC_ReportData;COC_NumberGenerator", Criteria:="PartnerType=0", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide InvoiceType when PartnerType=1", TargetItems:="InvoiceType;InvoiceTypeAdvanced;InvoiceTypeCustomRate", Criteria:="PartnerType=1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Disable ContractTemplate-PartnerType when PartnerType<>-1", AppearanceItemType.ViewItem, "PartnerType<>-1", TargetItems:="PartnerType", Enabled:=False)> _
+<Appearance("Disable ContractTemplate-CustomersFrom when IsNull(CustomersFrom)=False", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("Hide ContractTemplate-IsTechnical when PartnerType=0", AppearanceItemType.ViewItem, "PartnerType=0", TargetItems:="IsTechnical", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractTemplate-Controlling when IsProducts=False", AppearanceItemType.ViewItem, "IsProducts=False", TargetItems:="Controlling", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class ContractTemplate 'Szerzõdési sablonok
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ShortName As String 'Megnevezés
+    Private _CreatedBy As User ' Ki csinálta a szerzõdési sablont
+    Private _PartnerType As ePartnerType = -1 'Szállítói vagy vevõi a szerzõdés
+    Private _DocumentBody As String 'Dokumentum törzs
+    Private _NumberGenerator As NumberGenerator 'Sorszám generálása
+    Private _COC_ReportHeader As String 'Teljesítési igazolás fejléc sablon
+    Private _COC_ReportFooter As String 'Teljesítési igazolás lábléc sablon
+    Private _COC_ReportData As ReportData 'Teljesítési igazolás nyomtatvány
+    Private _COC_NumberGenerator As NumberGenerator 'Teljesítési igazolás szigorú sorszáma
+    Private _InvoiceType As InvoiceType 'Ha vevõi a szerzõdés akkor milyen a kimenõ számla tipusa
+    Private _InvoiceTypeAdvanced As InvoiceType 'Ha vevõi a szerzõdés akkor milyen az elõleg vagy foglaló számla tipusa
+    Private _InvoiceTypeCustomRate As InvoiceType 'Egyéb bekérõ dijakhoz számla szerû dolgok
+    Private _IsTechnical As Boolean = False 'Technikai szerződés
+    Private _IsCRM As Boolean = False 'CRM tipusú szerződés
+    Private _IsProducts As Boolean = False 'Termékes FIFO szerződési sor
+    Private _IsImmovables As Boolean = False 'Ingatlanos szerződési tipus
+    Private _IsAPCSheet As Boolean 'Mezőgazdasági termeltéshez kapcsolódó sablon
+    Private _Rule5DMatrix As Rule5DMatrix
+    Private _Controlling As Controlling
+    Private _ContractsProperties As String
+    Private _APCSheetByProductsProperties As String
+    Private _ReportData As ReportData 'Szerződés nyomtatvány, amit ki lehet nyomtatni.
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Not SecuritySystem.CurrentUser Is Nothing Then
+            Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            _CreatedBy = currentUser
+        End If
+        IsCRM = False
+        IsProducts = False
+        IsTechnical = False
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If Not IsDeleted Then
+            If Me.IsTechnical = True Then
+                Dim _ContractTemplate As ContractTemplate = Session.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("IsTechnical=? AND CustomersFrom=?", True, Me.CustomersFrom))
+
+                If _ContractTemplate.Oid.ToString() <> Me.Oid.ToString() Then
+                    '---------------------------TESZT MIATT---------------------------------------->>>
+                    Throw New Exception("*Adott saját céghez csak egy technikai szerzõdés sablon tartozhat!")
+                    '---------------------------TESZT MIATT----------------------------------------<<<
+                End If
+            End If
+        End If
+    End Sub
+    <RuleRequiredField("RuleRequiredField for CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for ContratctTemplate.ShortName", DefaultContexts.Save)> _
+    Public Property ShortName() As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+
+    Public Property CreatedBy() As User
+        Get
+            Return _CreatedBy
+        End Get
+        Set(ByVal value As User)
+            SetPropertyValue("CreatedBy", _CreatedBy, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <RuleValueComparison("ContractTemplate-ePartnerType <>-1", DefaultContexts.Save, ValueComparisonType.NotEquals, ePartnerType.eNotSet)> _
+    Property PartnerType() As ePartnerType
+        Get
+            Return _PartnerType
+        End Get
+        Set(ByVal value As ePartnerType)
+            SetPropertyValue("PartnerType", _PartnerType, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBody() As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractTemplate-NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property COC_ReportHeader As String
+        Get
+            Return _COC_ReportHeader
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("COC_ReportHeader", _COC_ReportHeader, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property COC_ReportFooter As String
+        Get
+            Return _COC_ReportFooter
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("COC_ReportFooter", _COC_ReportFooter, value)
+        End Set
+    End Property
+    Property COC_ReportData As ReportData
+        Get
+            Return _COC_ReportData
+        End Get
+        Set(ByVal value As ReportData)
+            SetPropertyValue("COC_ReportData", _COC_ReportData, value)
+        End Set
+    End Property
+    Property COC_NumberGenerator As NumberGenerator
+        Get
+            Return _COC_NumberGenerator
+        End Get
+        Set(ByVal value As NumberGenerator)
+            SetPropertyValue("COC_NumberGenerator", _COC_NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("InvoiceType", DefaultContexts.Save, targetcriteria:="PartnerType=0")> _
+    Property InvoiceType As InvoiceType
+        Get
+            Return _InvoiceType
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceType", _InvoiceType, value)
+        End Set
+    End Property
+    Property InvoiceTypeAdvanced As InvoiceType
+        Get
+            Return _InvoiceTypeAdvanced
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceTypeAdvanced", _InvoiceTypeAdvanced, value)
+        End Set
+    End Property
+    Property InvoiceTypeCustomRate As InvoiceType
+        Get
+            Return _InvoiceTypeCustomRate
+        End Get
+        Set(ByVal value As InvoiceType)
+            SetPropertyValue("InvoiceTypeCustomRate", _InvoiceTypeCustomRate, value)
+        End Set
+    End Property
+    Property IsTechnical As Boolean
+        Get
+            Return _IsTechnical
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsTechnical", _IsTechnical, value)
+        End Set
+    End Property
+    Property IsCRM As Boolean
+        Get
+            Return _IsCRM
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsCRM", _IsCRM, value)
+        End Set
+    End Property
+    Property IsImmovables As Boolean
+        Get
+            Return _IsImmovables
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsImmovables", _IsImmovables, value)
+        End Set
+    End Property
+    Property IsAPCSheet As Boolean
+        Get
+            Return _IsAPCSheet
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsAPCSheet", _IsAPCSheet, value)
+        End Set
+    End Property
+    Property Rule5DMatrix As Rule5DMatrix
+        Get
+            Return _Rule5DMatrix
+        End Get
+        Set(value As Rule5DMatrix)
+            SetPropertyValue("Rule5DMatrix", _Rule5DMatrix, value)
+        End Set
+    End Property
+    Property IsProducts As Boolean
+        Get
+            Return _IsProducts
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsProducts", _IsProducts, value)
+        End Set
+    End Property
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInLookupListView(False)> _
+    <VisibleInListView(False)> _
+    Property ContractsProperties As String
+        Get
+            Return _ContractsProperties
+        End Get
+        Set(value As String)
+            SetPropertyValue("ContractsProperties", _ContractsProperties, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInLookupListView(False)> _
+    <VisibleInListView(False)> _
+    Property APCSheetByProductsProperties As String
+        Get
+            Return _APCSheetByProductsProperties
+        End Get
+        Set(value As String)
+            SetPropertyValue("APCSheetByProductsProperties", _APCSheetByProductsProperties, 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
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.Designer.vb

@@ -0,0 +1,32 @@
+Partial Class ContractTemplate_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()
+
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.resx

@@ -0,0 +1,123 @@
+<?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="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractTemplate_VC.vb

@@ -0,0 +1,20 @@
+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 ContractTemplate_VC
+	Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb

@@ -0,0 +1,519 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+Public Enum State
+    <ImageName("certificate_add")> Preparation = 0 'Előkészítés alatt
+    <ImageName("certificate_new")> Ready = 1 'Aláírásra kész
+    <ImageName("certificate_ok")> Signed = 2 'Aláírt
+    <ImageName("certificate_delete")> Terminating = 3 'Felmondás alatt
+    <ImageName("certificate_broken")> Closed = 4 'Lezárt szerződés
+    <ImageName("certificate_warning")> Waiting = 5 'Felfüggesztett, várakozik valamire
+End Enum
+Public Enum eDayOfWeek
+    eMonday = 1
+    eTuesday = 2
+    eWednesday = 3
+    eThursday = 4
+    eFriday = 5
+    eSaturday = 6
+    eSunday = 7
+End Enum
+Public Enum eDayOfMonth
+    eLastDay = -1
+    e1 = 1
+    e2 = 2
+    e3 = 3
+    e4 = 4
+    e5 = 5
+    e6 = 6
+    e7 = 7
+    e8 = 8
+    e9 = 9
+    e10 = 10
+    e11 = 11
+    e12 = 12
+    e13 = 13
+    e14 = 14
+    e15 = 15
+    e16 = 16
+    e17 = 17
+    e18 = 18
+    e19 = 19
+    e20 = 20
+    e21 = 21
+    e22 = 22
+    e23 = 23
+    e24 = 24
+    e25 = 25
+    e26 = 26
+    e27 = 27
+    e28 = 28
+    e29 = 29
+    e30 = 30
+    e31 = 31
+End Enum
+Public Enum eActionFrequency
+    eDaily = 0 'Minden nap
+    eWeekly = 1 '-- Minden héten
+    eTwoWeekly = 5 '-- Minen második héten
+    eMonthly = 2 ' -- Minden hónapban
+    eQuarter = 3 '-- Minden negyedévben
+    eYear = 4 '-- Minden évben
+End Enum
+Public Enum eContractRowsType
+    <ImageName("")> eFix = 0 'Fix számlázandó sor
+    <ImageName("")> eMileStone = 1 'Fix számlázandó, de meg kell adni számlázáskor a teljesítés dátumát
+    <ImageName("")> eVariable = 2 ' Változó érték, a számlázás előtt meg kell adni és lehet kézileg módosítani
+    <ImageName("")> eAdvance = 3 ' Előleg sortípus, előleg számla kiállításához
+    <ImageName("")> eCustomRate = 4 'Dijbekérő !!!
+End Enum
+Public Enum eDefinite
+    eFixedTerm = 0 'Határozott időtartamú
+    eIndefinite = 1 'Határozatlan időtartamú
+End Enum
+
+'<EditorStateRuleAttribute("Disable ContractTemplate", "ContractTemplate", EditorState.Disabled, "(IsNull(ContractTemplate))=False", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateClosed", "DateClosed", EditorState.Hidden, "State != 4", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateWaiting", "DateWaiting", EditorState.Hidden, "State != 5", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateTerminating", "DateTerminating", EditorState.Hidden, "State != 3", ViewType.DetailView)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<DefaultProperty("DisplayName")> _
+<FileAttachment("File")> _
+<Appearance("Disable ContractTemplate", TargetItems:="ContractTemplate", Criteria:="(IsNull(ContractTemplate))=False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Hide DateClosed", TargetItems:="DateClosed", Criteria:="State != 4", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateWaiting", TargetItems:="DateWaiting", Criteria:="State != 5", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateTerminating", TargetItems:="DateTerminating", Criteria:="State != 3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide BankInformation, CurrencyName_Invoice when ContractTemplate.PartnerType=1", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=1", TargetItems:="BankInformation;CurrencyName_Invoice", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractRows;AuditTrail property when DocumentNumber is nothing", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=True", TargetItems:="ContractRows;AuditTrail", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable Contracts-DocumentBody when IsNull(DocumentNumber)=True", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=True", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("Disable Contracts-CustomersFrom when is not nothing", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("Disable Contracts-Customers when is not nothing", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("Disable CRM_Opportunities,OrderInAcknowledgementHeader, OfferInHeader when ContractTemplate.IsCRM=False", AppearanceItemType.ViewItem, "ContractTemplate.IsCRM=False", TargetItems:="CRM_Opportunities;OrderInAcknowledgementHeader;OfferInHeader", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable CRMEstate_Opportunity_Immovables, DatePreContractSigned, DateWaiting, DateTerminating when ContractTemplate.IsImmovables=False", AppearanceItemType.ViewItem, "ContractTemplate.IsImmovables=False", TargetItems:="CRMEstate_Opportunity_Immovables;DatePreContractSigned;DateWaiting;DateTerminating", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable Contract any property when State<>0", AppearanceItemType.ViewItem, "State<>0", TargetItems:="CustomersFrom;Customers;DateCreated;" & _
+    "DatePreContractSigned;DateClosed;DateWaiting;DateExecution;DateExpectClose;ContractTemplate;State;DocumentNumber;ObjectCreated;" & _
+    "UserCreated;CurrencyName;CurrencyName_Invoice;BankInformation;JobNumberObjects;UniqueObjects;ShortName;HRResponsible;CRMEstate_Opportunity_Immovables;" & _
+    "CRM_Opportunities;OfferInHeader;OrderInAcknowledgementHeader;Definite;TerminateDay", Enabled:=False)> _
+<Appearance("Disable Contracts-File when State<>0 and State<>1", AppearanceItemType.ViewItem, "State<>0 AND State<>1", TargetItems:="File", Enabled:=False)> _
+Public Class Contracts 'Szerződések
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Partner
+    Private _ContractGroup As ContractGroup
+    Private _DateCreated As Date 'Aláírás dátuma
+    Private _DatePreContractSigned As Date 'Előszerződés aláírásának dátuma
+    Private _DateClosed As Date 'Szerződés lezárás dátuma
+    Private _DateWaiting As Date 'Felfüggesztés dátuma
+    Private _DateTerminating As Date 'Felmondás dátuma
+    Private _DateExecution As Date 'Hatálybalépés dátuma
+    Private _DateExpectClose As Date 'Várható lezárás dátuma
+    Private _ContractTemplate As ContractTemplate 'Szerződési sablon
+    Private _File As FileData ' Csatolt fájl
+    Private _State As State = State.Preparation
+    Private _DocumentNumber As String
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _CurrencyName As CurrencyName 'A szerződés deviza neme
+    Private _CurrencyName_Invoice As CurrencyName 'A vevői szerződéshez kapcsolódó számla deviza nem
+    Private _BankInformation As BankInformation 'A vevői szerződéshez kapcsolódó számlára felkerülő bankszámlaszám SAJÁT CÉG!!!
+    Private _CustomerBankAccounts As CustomerBankAccounts 'ÜGYFÉL bankszámla
+    Private _DocumentBody As String
+    Private _JobNumberObjects As JobNumberObjects 'Munkaszám, project
+    Private _UniqueObjects As UniqueObjects 'Egyedi azonosító
+    Private _ShortName As String ' A szerződés tárgya
+    Private _HRResponsible As HRPerson 'A szerződés felelőse
+    Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables 'Milyen ingatlanértékesítéshez tartozik
+    Private _CRM_Opportunities As CRM_Opportunities 'Milyen CRM ügyhöz tartozik a szerződés
+    Private _OfferInHeader As OfferInHeader 'Bejövő  ajánlat
+    Private _OfferOutHeader As OfferOutHeader
+    Private _OrderInAcknowledgementHeader As OrderInAcknowledgementHeader 'Kimenő rendelés visszaigazolása
+
+    Private _Definite As eDefinite 'Határozott vagy határozatlan időtartamú
+    Private _TerminateDay As Long 'Felmondási nap, ha határozatlan
+
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then
+            If ContractTemplate IsNot Nothing Then
+                If ContractTemplate.NumberGenerator IsNot Nothing Then
+                    _DocumentNumber = ContractTemplate.NumberGenerator.GetNewNumber(ContractTemplate.NumberGenerator)
+                End If
+            End If
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        CurrencyName = Session.FindObject(Of CurrencyName)(1, CriteriaOperator.Parse("ShortName='HUF'"))
+    End Sub
+    <RuleRequiredField("Contracts-CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("Contracts-Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    
+    Property ContractGroup As ContractGroup
+        Get
+            Return _ContractGroup
+        End Get
+        Set(value As ContractGroup)
+            SetPropertyValue("ContractGroup", _ContractGroup, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property DateCreated_ShortDate As String
+        Get
+            Return String.Format(DateCreated, "Short Date")
+        End Get
+    End Property
+    Property DatePreContractSigned As Date
+        Get
+            Return _DatePreContractSigned
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePreContractSigned", _DatePreContractSigned, value)
+        End Set
+    End Property
+    Property DateClosed As Date
+        Get
+            Return _DateClosed
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateClosed", _DateClosed, value)
+        End Set
+    End Property
+    Property DateWaiting As Date
+        Get
+            Return _DateWaiting
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateWaiting", _DateWaiting, value)
+        End Set
+    End Property
+    Property DateTerminating As Date
+        Get
+            Return _DateTerminating
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateTerminating", _DateTerminating, value)
+        End Set
+    End Property
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DateExpectClose As Date
+        Get
+            Return _DateExpectClose
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExpectClose", _DateExpectClose, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("Contracts.ContractTemplate", "aMarkAsReady_Context")> _
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' And IsTechnical = False")> _
+    Property ContractTemplate() As ContractTemplate
+        Get
+            Return _ContractTemplate
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate", _ContractTemplate, value)
+        End Set
+    End Property
+    <Aggregated()> _
+    <ExpandObjectMembers(ExpandObjectMembers.Never)>
+    Property File() As FileData
+        Get
+            Return _File
+        End Get
+        Set(ByVal value As FileData)
+            SetPropertyValue("File", _File, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, 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
+    <ImmediatePostData(True)> _
+    <RuleRequiredField("Contracts.CurrencyName", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType = 1")> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property CurrencyName_Invoice As CurrencyName
+        Get
+            Return _CurrencyName_Invoice
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName_Invoice", _CurrencyName_Invoice, value)
+        End Set
+    End Property
+    <DataSourceProperty("ContractsBankInformation")> _
+    Property BankInformation As BankInformation
+        Get
+            Return _BankInformation
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Customers='@This.Customers'")> _
+    Property CustomerBankAccounts As CustomerBankAccounts
+        Get
+            Return _CustomerBankAccounts
+        End Get
+        Set(value As CustomerBankAccounts)
+            SetPropertyValue("CustomerBankAccounts", _CustomerBankAccounts, value)
+        End Set
+    End Property
+    Property State() As State
+        Get
+            Return _State
+        End Get
+        Set(ByVal value As State)
+            SetPropertyValue("State", _State, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    Property DocumentBody() As String
+        Get
+            If Session.IsNewObject(Me) = True Then
+                If Not _ContractTemplate Is Nothing Then
+                    _DocumentBody = _ContractTemplate.DocumentBody
+                End If
+            End If
+            Return _DocumentBody
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    Property JobNumberObjects() As JobNumberObjects
+        Get
+
+            Return _JobNumberObjects
+        End Get
+        Set(ByVal value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    <RuleRequiredField("Contract-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
+    Property HRResponsible As HRPerson
+        Get
+            Return _HRResponsible
+        End Get
+        Set(ByVal value As HRPerson)
+            SetPropertyValue("HRResponsible", _HRResponsible, value)
+        End Set
+    End Property
+    Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+        Get
+            Return _CRMEstate_Opportunity_Immovables
+        End Get
+        Set(value As CRMEstate_Opportunity_Immovables)
+            SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
+        End Set
+    End Property
+    <Association("CRM_Opportunities-Contract", GetType(CRM_Opportunities))> _
+    <DataSourceCriteria("CRM_Opportunities.CustomersFrom='@This.CustomersFrom' AND Customers='@This.Customers'")> _
+    Property CRM_Opportunities As CRM_Opportunities
+        Get
+            Return _CRM_Opportunities
+        End Get
+        Set(value As CRM_Opportunities)
+            SetPropertyValue("CRM_Opportunities", _CRM_Opportunities, value)
+        End Set
+    End Property
+    Property OfferInHeader As OfferInHeader
+        Get
+            Return _OfferInHeader
+        End Get
+        Set(value As OfferInHeader)
+            SetPropertyValue("OfferInHeader", _OfferInHeader, value)
+        End Set
+    End Property
+    Property OfferOutHeader As OfferOutHeader
+        Get
+            Return _OfferOutHeader
+        End Get
+        Set(value As OfferOutHeader)
+            SetPropertyValue("OfferOutHeader", _OfferOutHeader, value)
+        End Set
+    End Property
+    Property OrderInAcknowledgementHeader As OrderInAcknowledgementHeader
+        Get
+            Return _OrderInAcknowledgementHeader
+        End Get
+        Set(value As OrderInAcknowledgementHeader)
+            SetPropertyValue("OrderInAcknowledgementHeader", _OrderInAcknowledgementHeader, value)
+        End Set
+    End Property
+
+    Property Definite As eDefinite
+        Get
+            Return _Definite
+        End Get
+        Set(value As eDefinite)
+            SetPropertyValue("Definite", _Definite, value)
+        End Set
+    End Property
+
+    Property TerminateDay As Long
+        Get
+            Return _TerminateDay
+        End Get
+        Set(value As Long)
+            SetPropertyValue("TerminateDay", _TerminateDay, value)
+        End Set
+    End Property
+    ReadOnly Property DateEstimatedTermination As Date
+        Get
+            Return DateAdd(DateInterval.Day, TerminateDay, Now)
+        End Get
+    End Property
+    'Readonly
+    ReadOnly Property DisplayName() As String
+        Get
+            If Customers Is Nothing Then
+                Return DocumentNumber & ", " & ShortName
+            Else
+                Return DocumentNumber & ", " & Customers.FullName & ", " & ShortName
+            End If
+        End Get
+    End Property
+    <Aggregated(), Association("Contracts-DocumentFileData", GetType(DocumentFileData)), VisibleInListView(False)> _
+    ReadOnly Property DocumentFile() As XPCollection(Of DocumentFileData)
+        Get
+            Return GetCollection(Of DocumentFileData)("DocumentFile")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property AuditTrail() As XPCollection(Of AuditDataItemPersistent)
+        Get
+            Return AuditedObjectWeakReference.GetAuditTrail(Session, Me)
+        End Get
+    End Property
+    <Association("Contracts-ContractRows", GetType(ContractRows)), VisibleInListView(False)> _
+    ReadOnly Property ContractRows() As XPCollection(Of ContractRows)
+        Get
+            Return GetCollection(Of ContractRows)("ContractRows")
+        End Get
+    End Property
+    ReadOnly Property ContractsBankInformation As XPCollection(Of BankInformation)
+        Get
+            If Me.CustomersFrom IsNot Nothing Then
+                Dim _BankInformation_Collection As New XPCollection(Of BankInformation)(Session, CriteriaOperator.Parse("1=2"))
+
+                Dim _LiquidAssets_Collection As New XPCollection(Of LiquidAssets)(Session, CriteriaOperator.Parse("CustomerFrom=? AND LiquidAssetsType=1", Me.CustomersFrom))
+
+                For Each _LiquidAssets As LiquidAssets In _LiquidAssets_Collection
+                    Dim _BankInformation As BankInformation = Session.FindObject(Of BankInformation)(CriteriaOperator.Parse("LiquidAssests=?", _LiquidAssets))
+                    If _BankInformation IsNot Nothing Then
+                        _BankInformation_Collection.Add(_BankInformation)
+                    End If
+                Next
+
+                Return _BankInformation_Collection
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+    <Association("Contracts-ContractProductsCredit", GetType(ContractProductsCredit)), VisibleInListView(False), VisibleInLookupListView(False)> _
+       ReadOnly Property ContractProductsCredit As XPCollection(Of ContractProductsCredit)
+        Get
+            Return GetCollection(Of ContractProductsCredit)("ContractProductsCredit")
+        End Get
+    End Property
+End Class
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsRTF.vb

@@ -0,0 +1,20 @@
+Public Class ContractsRTF
+
+    Property [Sajátcég_Teljesnév] As String
+    Property [Sajátcég_Irányítószám] As String
+    Property [Sajátcég_Város] As String
+    Property [Sajátcég_Utca] As String
+    Property [Sajátcég_Ország] As String
+    Property [Sajátcég_Adószám] As String
+    Property [Sajátcég_Adószám_EU] As String
+
+    Property [Partner_Teljesnév] As String
+    Property [Partner_Irányítószám] As String
+    Property [Partner_Város] As String
+    Property [Partner_Utca] As String
+    Property [Partner_Ország] As String
+    Property [Partner_Adószám] As String
+    Property [Partner_Adószám_EU] As String
+
+    Property [Szerződés_Dokumentum_Sorszám] As String
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.Designer.vb

@@ -0,0 +1,416 @@
+Partial Class ContractsVC
+
+	<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.aCloneContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGenerateInvoicefromContractsRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCloneSelectedContracts = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aGenerateInvoicefromContractsRowsCustomRate = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMarkAsReady = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSendBackToEdit = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsSigned = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsClosed = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsWaiting = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aMarkAsTerminating_Old = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateFinalInvoiceFromContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMergeContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aNewContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDivideContractRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aOpenCOCFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenInvoiceFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aOpenRegistryInvoiceFromContractRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToEditableSignedContract = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aModifyContractData = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aDescriptionSelect = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aMarkAsTerminating = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aCloneContractsRows
+        '
+        Me.aCloneContractsRows.AcceptButtonCaption = Nothing
+        Me.aCloneContractsRows.CancelButtonCaption = Nothing
+        Me.aCloneContractsRows.Caption = "aClone Contracts Rows"
+        Me.aCloneContractsRows.Category = "ObjectsCreation"
+        Me.aCloneContractsRows.ConfirmationMessage = Nothing
+        Me.aCloneContractsRows.Id = "aCloneContractsRows"
+        Me.aCloneContractsRows.ImageName = Nothing
+        Me.aCloneContractsRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCloneContractsRows.Shortcut = Nothing
+        Me.aCloneContractsRows.Tag = Nothing
+        Me.aCloneContractsRows.TargetObjectsCriteria = Nothing
+        Me.aCloneContractsRows.TargetViewId = ""
+        Me.aCloneContractsRows.ToolTip = Nothing
+        Me.aCloneContractsRows.TypeOfView = Nothing
+        '
+        'aGenerateInvoicefromContractsRows
+        '
+        Me.aGenerateInvoicefromContractsRows.AcceptButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRows.CancelButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRows.Caption = "Make invoices"
+        Me.aGenerateInvoicefromContractsRows.Category = "ObjectsCreation"
+        Me.aGenerateInvoicefromContractsRows.ConfirmationMessage = Nothing
+        Me.aGenerateInvoicefromContractsRows.Id = "aGenerateInvoicefromContractsRows"
+        Me.aGenerateInvoicefromContractsRows.ImageName = Nothing
+        Me.aGenerateInvoicefromContractsRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aGenerateInvoicefromContractsRows.Shortcut = Nothing
+        Me.aGenerateInvoicefromContractsRows.Tag = Nothing
+        Me.aGenerateInvoicefromContractsRows.TargetObjectsCriteria = Nothing
+        Me.aGenerateInvoicefromContractsRows.TargetViewId = ""
+        Me.aGenerateInvoicefromContractsRows.ToolTip = Nothing
+        Me.aGenerateInvoicefromContractsRows.TypeOfView = Nothing
+        '
+        'aCloneSelectedContracts
+        '
+        Me.aCloneSelectedContracts.AcceptButtonCaption = Nothing
+        Me.aCloneSelectedContracts.CancelButtonCaption = Nothing
+        Me.aCloneSelectedContracts.Caption = "aClone Selected Contracts"
+        Me.aCloneSelectedContracts.Category = "ObjectsCreation"
+        Me.aCloneSelectedContracts.ConfirmationMessage = Nothing
+        Me.aCloneSelectedContracts.Id = "aCloneSelectedContracts"
+        Me.aCloneSelectedContracts.ImageName = "Images.paragraph_clone"
+        Me.aCloneSelectedContracts.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCloneSelectedContracts.Shortcut = Nothing
+        Me.aCloneSelectedContracts.Tag = Nothing
+        Me.aCloneSelectedContracts.TargetObjectsCriteria = Nothing
+        Me.aCloneSelectedContracts.TargetViewId = Nothing
+        Me.aCloneSelectedContracts.ToolTip = Nothing
+        Me.aCloneSelectedContracts.TypeOfView = Nothing
+        '
+        'aGenerateInvoicefromContractsRowsCustomRate
+        '
+        Me.aGenerateInvoicefromContractsRowsCustomRate.AcceptButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.CancelButtonCaption = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Caption = "Make custom rate"
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Category = "ObjectsCreation"
+        Me.aGenerateInvoicefromContractsRowsCustomRate.ConfirmationMessage = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Id = "aGenerateInvoicefromContractsRowsCustomRate"
+        Me.aGenerateInvoicefromContractsRowsCustomRate.ImageName = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Shortcut = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.Tag = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.TargetObjectsCriteria = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.TargetViewId = ""
+        Me.aGenerateInvoicefromContractsRowsCustomRate.ToolTip = Nothing
+        Me.aGenerateInvoicefromContractsRowsCustomRate.TypeOfView = Nothing
+        '
+        'aMarkAsReady
+        '
+        Me.aMarkAsReady.Caption = "Mark As Ready"
+        Me.aMarkAsReady.Category = "RecordEdit"
+        Me.aMarkAsReady.ConfirmationMessage = "Do you really mark as ready this contract?"
+        Me.aMarkAsReady.Id = "aMarks as ready"
+        Me.aMarkAsReady.ImageName = Nothing
+        Me.aMarkAsReady.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsReady.Shortcut = Nothing
+        Me.aMarkAsReady.Tag = Nothing
+        Me.aMarkAsReady.TargetObjectsCriteria = Nothing
+        Me.aMarkAsReady.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsReady.ToolTip = Nothing
+        Me.aMarkAsReady.TypeOfView = Nothing
+        '
+        'aSendBackToEdit
+        '
+        Me.aSendBackToEdit.Caption = "aSend Back To Edit"
+        Me.aSendBackToEdit.Category = "RecordEdit"
+        Me.aSendBackToEdit.ConfirmationMessage = "Do you really send back to edit this contract?"
+        Me.aSendBackToEdit.Id = "aSendBackToEdit"
+        Me.aSendBackToEdit.ImageName = Nothing
+        Me.aSendBackToEdit.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aSendBackToEdit.Shortcut = Nothing
+        Me.aSendBackToEdit.Tag = Nothing
+        Me.aSendBackToEdit.TargetObjectsCriteria = Nothing
+        Me.aSendBackToEdit.TargetViewId = "Contracts_DetailView"
+        Me.aSendBackToEdit.ToolTip = Nothing
+        Me.aSendBackToEdit.TypeOfView = Nothing
+        '
+        'aMarkAsSigned
+        '
+        Me.aMarkAsSigned.Caption = "aMark As Signed"
+        Me.aMarkAsSigned.Category = "RecordEdit"
+        Me.aMarkAsSigned.ConfirmationMessage = "Do you really mark as signed this contract?"
+        Me.aMarkAsSigned.Id = "aMarkAsSigned"
+        Me.aMarkAsSigned.ImageName = Nothing
+        Me.aMarkAsSigned.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsSigned.Shortcut = Nothing
+        Me.aMarkAsSigned.Tag = Nothing
+        Me.aMarkAsSigned.TargetObjectsCriteria = Nothing
+        Me.aMarkAsSigned.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsSigned.ToolTip = Nothing
+        Me.aMarkAsSigned.TypeOfView = Nothing
+        '
+        'aMarkAsClosed
+        '
+        Me.aMarkAsClosed.Caption = "aMark As Closed"
+        Me.aMarkAsClosed.Category = "RecordEdit"
+        Me.aMarkAsClosed.ConfirmationMessage = "Do you really mark as closed this contract?"
+        Me.aMarkAsClosed.Id = "aMarkAsClosed"
+        Me.aMarkAsClosed.ImageName = Nothing
+        Me.aMarkAsClosed.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsClosed.Shortcut = Nothing
+        Me.aMarkAsClosed.Tag = Nothing
+        Me.aMarkAsClosed.TargetObjectsCriteria = Nothing
+        Me.aMarkAsClosed.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsClosed.ToolTip = Nothing
+        Me.aMarkAsClosed.TypeOfView = Nothing
+        '
+        'aMarkAsWaiting
+        '
+        Me.aMarkAsWaiting.Caption = "aMark As Waiting"
+        Me.aMarkAsWaiting.Category = "RecordEdit"
+        Me.aMarkAsWaiting.ConfirmationMessage = "Do you really mark as waiting this contract?"
+        Me.aMarkAsWaiting.Id = "aMarkAsWaiting"
+        Me.aMarkAsWaiting.ImageName = Nothing
+        Me.aMarkAsWaiting.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsWaiting.Shortcut = Nothing
+        Me.aMarkAsWaiting.Tag = Nothing
+        Me.aMarkAsWaiting.TargetObjectsCriteria = Nothing
+        Me.aMarkAsWaiting.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsWaiting.ToolTip = Nothing
+        Me.aMarkAsWaiting.TypeOfView = Nothing
+        '
+        'aMarkAsTerminating_Old
+        '
+        Me.aMarkAsTerminating_Old.Caption = "aMarkAsTerminating_Old"
+        Me.aMarkAsTerminating_Old.Category = "RecordEdit"
+        Me.aMarkAsTerminating_Old.ConfirmationMessage = "Do you really terminating this contract?"
+        Me.aMarkAsTerminating_Old.Id = "aMarkAsTerminating_Old"
+        Me.aMarkAsTerminating_Old.ImageName = Nothing
+        Me.aMarkAsTerminating_Old.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aMarkAsTerminating_Old.Shortcut = Nothing
+        Me.aMarkAsTerminating_Old.Tag = Nothing
+        Me.aMarkAsTerminating_Old.TargetObjectsCriteria = Nothing
+        Me.aMarkAsTerminating_Old.TargetViewId = "Contracts_DetailView"
+        Me.aMarkAsTerminating_Old.ToolTip = Nothing
+        Me.aMarkAsTerminating_Old.TypeOfView = Nothing
+        '
+        'aCreateFinalInvoiceFromContract
+        '
+        Me.aCreateFinalInvoiceFromContract.AcceptButtonCaption = Nothing
+        Me.aCreateFinalInvoiceFromContract.CancelButtonCaption = Nothing
+        Me.aCreateFinalInvoiceFromContract.Caption = "aCreateFinalInvoice"
+        Me.aCreateFinalInvoiceFromContract.Category = "ObjectsCreation"
+        Me.aCreateFinalInvoiceFromContract.ConfirmationMessage = Nothing
+        Me.aCreateFinalInvoiceFromContract.Id = "aCreateFinalInvoiceFromContract"
+        Me.aCreateFinalInvoiceFromContract.ImageName = Nothing
+        Me.aCreateFinalInvoiceFromContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateFinalInvoiceFromContract.Shortcut = Nothing
+        Me.aCreateFinalInvoiceFromContract.Tag = Nothing
+        Me.aCreateFinalInvoiceFromContract.TargetObjectsCriteria = Nothing
+        Me.aCreateFinalInvoiceFromContract.TargetViewId = Nothing
+        Me.aCreateFinalInvoiceFromContract.ToolTip = Nothing
+        Me.aCreateFinalInvoiceFromContract.TypeOfView = Nothing
+        '
+        'aMergeContractRows
+        '
+        Me.aMergeContractRows.Caption = "Merge Contract Rows"
+        Me.aMergeContractRows.Category = "ObjectsCreation"
+        Me.aMergeContractRows.ConfirmationMessage = Nothing
+        Me.aMergeContractRows.Id = "aMergeContractRows"
+        Me.aMergeContractRows.ImageName = Nothing
+        Me.aMergeContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aMergeContractRows.Shortcut = Nothing
+        Me.aMergeContractRows.Tag = Nothing
+        Me.aMergeContractRows.TargetObjectsCriteria = Nothing
+        Me.aMergeContractRows.TargetObjectsCriteriaMode = DevExpress.ExpressApp.Actions.TargetObjectsCriteriaMode.TrueForAll
+        Me.aMergeContractRows.TargetViewId = Nothing
+        Me.aMergeContractRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aMergeContractRows.ToolTip = Nothing
+        Me.aMergeContractRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aNewContractRows
+        '
+        Me.aNewContractRows.Caption = "aNewContractRows"
+        Me.aNewContractRows.Category = "ObjectsCreation"
+        Me.aNewContractRows.ConfirmationMessage = Nothing
+        Me.aNewContractRows.Id = "aNewContractRows"
+        Me.aNewContractRows.ImageName = Nothing
+        Me.aNewContractRows.Shortcut = Nothing
+        Me.aNewContractRows.Tag = Nothing
+        Me.aNewContractRows.TargetObjectsCriteria = Nothing
+        Me.aNewContractRows.TargetViewId = ""
+        Me.aNewContractRows.ToolTip = Nothing
+        Me.aNewContractRows.TypeOfView = Nothing
+        '
+        'aDivideContractRows
+        '
+        Me.aDivideContractRows.AcceptButtonCaption = Nothing
+        Me.aDivideContractRows.CancelButtonCaption = Nothing
+        Me.aDivideContractRows.Caption = "Divide Contract Rows"
+        Me.aDivideContractRows.Category = "ObjectsCreation"
+        Me.aDivideContractRows.ConfirmationMessage = Nothing
+        Me.aDivideContractRows.Id = "aDivideContractRows"
+        Me.aDivideContractRows.ImageName = Nothing
+        Me.aDivideContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDivideContractRows.Shortcut = Nothing
+        Me.aDivideContractRows.Tag = Nothing
+        Me.aDivideContractRows.TargetObjectsCriteria = Nothing
+        Me.aDivideContractRows.TargetViewId = Nothing
+        Me.aDivideContractRows.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aDivideContractRows.ToolTip = Nothing
+        Me.aDivideContractRows.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'aOpenCOCFromContractRows
+        '
+        Me.aOpenCOCFromContractRows.Caption = "Open COCFrom Contract Rows"
+        Me.aOpenCOCFromContractRows.Category = "View"
+        Me.aOpenCOCFromContractRows.ConfirmationMessage = Nothing
+        Me.aOpenCOCFromContractRows.Id = "aOpenCOCFromContractRows"
+        Me.aOpenCOCFromContractRows.ImageName = Nothing
+        Me.aOpenCOCFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenCOCFromContractRows.Shortcut = Nothing
+        Me.aOpenCOCFromContractRows.Tag = Nothing
+        Me.aOpenCOCFromContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenCOCFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aOpenCOCFromContractRows.TargetViewId = Nothing
+        Me.aOpenCOCFromContractRows.ToolTip = Nothing
+        Me.aOpenCOCFromContractRows.TypeOfView = Nothing
+        '
+        'aOpenInvoiceFromContractRows
+        '
+        Me.aOpenInvoiceFromContractRows.Caption = "Open Invoice From Contract Rows"
+        Me.aOpenInvoiceFromContractRows.Category = "View"
+        Me.aOpenInvoiceFromContractRows.ConfirmationMessage = Nothing
+        Me.aOpenInvoiceFromContractRows.Id = "aOpenInvoiceFromContractRows"
+        Me.aOpenInvoiceFromContractRows.ImageName = Nothing
+        Me.aOpenInvoiceFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenInvoiceFromContractRows.Shortcut = Nothing
+        Me.aOpenInvoiceFromContractRows.Tag = Nothing
+        Me.aOpenInvoiceFromContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenInvoiceFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aOpenInvoiceFromContractRows.TargetViewId = Nothing
+        Me.aOpenInvoiceFromContractRows.ToolTip = Nothing
+        Me.aOpenInvoiceFromContractRows.TypeOfView = Nothing
+        '
+        'aOpenRegistryInvoiceFromContractRows
+        '
+        Me.aOpenRegistryInvoiceFromContractRows.Caption = "Open Registry Invoice From Contract Rows"
+        Me.aOpenRegistryInvoiceFromContractRows.Category = "View"
+        Me.aOpenRegistryInvoiceFromContractRows.ConfirmationMessage = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.Id = "aOpenRegistryInvoiceFromContractRows"
+        Me.aOpenRegistryInvoiceFromContractRows.ImageName = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aOpenRegistryInvoiceFromContractRows.Shortcut = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.Tag = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.TargetObjectsCriteria = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.TargetObjectType = GetType(SISBusiness.[Module].ContractRows)
+        Me.aOpenRegistryInvoiceFromContractRows.TargetViewId = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.ToolTip = Nothing
+        Me.aOpenRegistryInvoiceFromContractRows.TypeOfView = Nothing
+        '
+        'aBackToEditableSignedContract
+        '
+        Me.aBackToEditableSignedContract.Caption = "aBackToEditableSignedContract"
+        Me.aBackToEditableSignedContract.Category = "RecordEdit"
+        Me.aBackToEditableSignedContract.ConfirmationMessage = Nothing
+        Me.aBackToEditableSignedContract.Id = "aBackToEditableSignedContract"
+        Me.aBackToEditableSignedContract.ImageName = Nothing
+        Me.aBackToEditableSignedContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToEditableSignedContract.Shortcut = Nothing
+        Me.aBackToEditableSignedContract.Tag = Nothing
+        Me.aBackToEditableSignedContract.TargetObjectsCriteria = Nothing
+        Me.aBackToEditableSignedContract.TargetObjectType = GetType(SISBusiness.[Module].Contracts)
+        Me.aBackToEditableSignedContract.TargetViewId = ""
+        Me.aBackToEditableSignedContract.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aBackToEditableSignedContract.ToolTip = Nothing
+        Me.aBackToEditableSignedContract.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aModifyContractData
+        '
+        Me.aModifyContractData.AcceptButtonCaption = Nothing
+        Me.aModifyContractData.CancelButtonCaption = Nothing
+        Me.aModifyContractData.Caption = "aModify Contract Data"
+        Me.aModifyContractData.ConfirmationMessage = Nothing
+        Me.aModifyContractData.Id = "aModifyContractData"
+        Me.aModifyContractData.ImageName = Nothing
+        Me.aModifyContractData.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aModifyContractData.Shortcut = Nothing
+        Me.aModifyContractData.Tag = Nothing
+        Me.aModifyContractData.TargetObjectsCriteria = Nothing
+        Me.aModifyContractData.TargetObjectType = GetType(SISBusiness.[Module].Contracts)
+        Me.aModifyContractData.TargetViewId = Nothing
+        Me.aModifyContractData.ToolTip = Nothing
+        Me.aModifyContractData.TypeOfView = Nothing
+        '
+        'aDescriptionSelect
+        '
+        Me.aDescriptionSelect.AcceptButtonCaption = Nothing
+        Me.aDescriptionSelect.CancelButtonCaption = Nothing
+        Me.aDescriptionSelect.Caption = "aDescription Select"
+        Me.aDescriptionSelect.Category = "aDescriptionSelect"
+        Me.aDescriptionSelect.ConfirmationMessage = Nothing
+        Me.aDescriptionSelect.Id = "aDescriptionSelect"
+        Me.aDescriptionSelect.ImageName = Nothing
+        Me.aDescriptionSelect.Shortcut = Nothing
+        Me.aDescriptionSelect.Tag = Nothing
+        Me.aDescriptionSelect.TargetObjectsCriteria = Nothing
+        Me.aDescriptionSelect.TargetObjectType = GetType(SISBusiness.[Module].ContractsRowsToInvoice)
+        Me.aDescriptionSelect.TargetViewId = Nothing
+        Me.aDescriptionSelect.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aDescriptionSelect.ToolTip = Nothing
+        Me.aDescriptionSelect.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aMarkAsTerminating
+        '
+        Me.aMarkAsTerminating.AcceptButtonCaption = Nothing
+        Me.aMarkAsTerminating.CancelButtonCaption = Nothing
+        Me.aMarkAsTerminating.Caption = "aMark As Terminating"
+        Me.aMarkAsTerminating.ConfirmationMessage = Nothing
+        Me.aMarkAsTerminating.Id = "aMarkAsTerminating"
+        Me.aMarkAsTerminating.ImageName = Nothing
+        Me.aMarkAsTerminating.Shortcut = Nothing
+        Me.aMarkAsTerminating.Tag = Nothing
+        Me.aMarkAsTerminating.TargetObjectsCriteria = Nothing
+        Me.aMarkAsTerminating.TargetObjectType = GetType(SISBusiness.[Module].Contracts)
+        Me.aMarkAsTerminating.TargetViewId = Nothing
+        Me.aMarkAsTerminating.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aMarkAsTerminating.ToolTip = Nothing
+        Me.aMarkAsTerminating.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aCloneContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateInvoicefromContractsRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCloneSelectedContracts As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aGenerateInvoicefromContractsRowsCustomRate As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMarkAsReady As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSendBackToEdit As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsSigned As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsClosed As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsWaiting As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aMarkAsTerminating_Old As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateFinalInvoiceFromContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDivideContractRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMergeContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenCOCFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenInvoiceFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aOpenRegistryInvoiceFromContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aNewContractRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToEditableSignedContract As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aModifyContractData As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDescriptionSelect As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aMarkAsTerminating As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/ContractsVC.resx

@@ -0,0 +1,186 @@
+<?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="aCloneContractsRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 758</value>
+  </metadata>
+  <metadata name="aGenerateInvoicefromContractsRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 719</value>
+  </metadata>
+  <metadata name="aCloneSelectedContracts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 680</value>
+  </metadata>
+  <metadata name="aGenerateInvoicefromContractsRowsCustomRate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aMarkAsReady.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 641</value>
+  </metadata>
+  <metadata name="aSendBackToEdit.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aMarkAsSigned.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 602</value>
+  </metadata>
+  <metadata name="aMarkAsClosed.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 563</value>
+  </metadata>
+  <metadata name="aMarkAsWaiting.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 524</value>
+  </metadata>
+  <metadata name="aMarkAsTerminating_Old.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aCreateFinalInvoiceFromContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aMergeContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aNewContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aDivideContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aOpenCOCFromContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aOpenInvoiceFromContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aOpenRegistryInvoiceFromContractRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aBackToEditableSignedContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aModifyContractData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aDescriptionSelect.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>665, 17</value>
+  </metadata>
+  <metadata name="aMarkAsTerminating.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>187, 758</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/BusinessTransactions/Contract/DocumentFileData.vb

@@ -0,0 +1,33 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DocumentFileData
+    Inherits FileAttachmentBase
+    Protected _Contracts As Contracts
+    Private _DocumentFileData As DocumentFileData
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <Persistent(), Association("Contracts-DocumentFileData")> _
+    Public Property Contracts() As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(ByVal value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsCOCState.vb

@@ -0,0 +1,17 @@
+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 eContractRowsCOCState
+    <ImageName("")> _
+    eNotCertificated = 0 'Nem teljesítési igazolt sor
+    <ImageName("document_certificate")> _
+    eCertificated = 1 'Teljesítési igazolt sor
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsInvoiceState.vb

@@ -0,0 +1,18 @@
+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 eContractRowsInvoiceState
+    <ImageName("")> _
+    eNotInvoiced = 0 'Még ki nem számlázott sor
+    <ImageName("document_lock")> _
+    eInvoiced = 1 'Kiszámlázott sor
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Enum/eContractRowsRRFCState.vb

@@ -0,0 +1,17 @@
+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 eContractRowsRRFCState
+    <ImageName("")> _
+    eNotControlled = 0 'Nincs számla bontáshoz rendelve
+    <ImageName("books")> _
+    eControlled = 1 'Számla bontáshoz rendelve
+End Enum

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractCloneView.vb

@@ -0,0 +1,72 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<Appearance("Hide Customers when IsMultipleSelection = True", AppearanceItemType:="ViewItem", criteria:="IsMultipleSelection = True", targetitems:="Customers", Context:="DetailView", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractsCloneView
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom ' Saját cég
+    Private _Customers As Customers ' Ügyfél
+    Private _ContractTemplate As ContractTemplate ' Szerződés sablon
+    Private _AreContractRowsClone As Boolean = False ' 
+    Private _IsMultipleSelection As Boolean = False
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <ImmediatePostData()> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom'")> _
+    Property ContractTemplate As ContractTemplate
+        Get
+            Return _ContractTemplate
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate", _ContractTemplate, value)
+        End Set
+    End Property
+    Property AreContractRowsClone As Boolean
+        Get
+            Return _AreContractRowsClone
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("AreContractRowsClone", _AreContractRowsClone, value)
+        End Set
+    End Property
+    Property IsMultipleSelection As Boolean
+        Get
+            Return _IsMultipleSelection
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsMultipleSelection", _IsMultipleSelection, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractDatePopup.vb

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractMileStone.vb

@@ -0,0 +1,33 @@
+Imports System
+Imports System.ComponentModel
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractMileStone
+    Inherits BaseObject
+    Private _ShortName As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    <RuleRequiredField("ContractMileStone.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
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb

@@ -0,0 +1,61 @@
+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 ContractModifyData
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property IsContractGroup As Boolean = False
+    Property ContractGroup As ContractGroup
+
+    Property IsDateCreated As Boolean = False
+    Property DateCreated As Date
+
+    Property IsDateClosed As Boolean = False
+    Property DateClosed As Date
+
+    Property IsState As Boolean = False
+    Property State As State
+
+    Property IsCurrencyName As Boolean = False
+    Property CurrencyName As CurrencyName
+
+    Property IsCurrencyName_Invoice As Boolean = False
+    Property CurrencyName_Invoice As CurrencyName
+
+    Property IsJobNumberObjects As Boolean = False
+    Property JobNumberObjects As JobNumberObjects
+
+    Property IsUniqueObjects As Boolean = False
+    Property UniqueObjects As UniqueObjects
+
+    Property IsHRResponsible As Boolean = False
+    Property HRResponsible As HRPerson
+
+    Property IsDefinite As Boolean
+    Property Definite As eDefinite
+
+    Property IsTerminateDay As Boolean
+    Property TerminateDay As Long
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsCloneView.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
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRule("Hide DayOfExecutionInWeek", "DayOfExecutionInWeek", DevExpress.ExpressApp.ViewType.Any, criteria:="ActionFrequency In(0,2,3,4)", Description:="Des", EditorState:=ConditionalEditorState.EditorState.Hidden)> _
+'<EditorStateRule("Hide DayOfExecution", "DayOfExecution", DevExpress.ExpressApp.ViewType.Any, criteria:="ActionFrequency In(0,1,3,4,5)", Description:="Des", EditorState:=ConditionalEditorState.EditorState.Hidden)> _
+
+<Appearance("Hide DayOfExecutionInWeek", TargetItems:="DayOfExecutionInWeek", Criteria:="ActionFrequency In(0,2,3,4)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="Any")> _
+<Appearance("Hide DayOfExecution", TargetItems:="DayOfExecution", Criteria:="ActionFrequency In(0,1,3,4,5)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="Any")> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractRowsCloneView
+    Inherits BaseObject
+    Private _DayOfExecutionInWeek As eDayOfWeek ' A hét valamelyik napja (1..7) Forduló nap, ezen a napon lesz a szerződési sor teljesítési dátuma
+    Private _DayOfExecution As eDayOfMonth ' A hónap valamelyik napja (1..31) Forduló nap, ezen a napon lesz a szerződési sor teljesítési dátuma
+    Private _ActionCount As Long ' Hányszor csinálja meg
+    Private _ActionFrequency As eActionFrequency ' A forduló időpontok intervalluma
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property DayOfExecutionInWeek As eDayOfWeek
+        Get
+            Return _DayOfExecutionInWeek
+        End Get
+        Set(ByVal value As eDayOfWeek)
+            SetPropertyValue("DayOfExecutionInWeek", _DayOfExecutionInWeek, value)
+        End Set
+    End Property
+    Property DayOfExecution As eDayOfMonth
+        Get
+            Return _DayOfExecution
+        End Get
+        Set(ByVal value As eDayOfMonth)
+            SetPropertyValue("DayOfExecution", _DayOfExecution, value)
+        End Set
+    End Property
+    Property ActionCount As Long
+        Get
+            Return _ActionCount
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("ActionCount", _ActionCount, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property ActionFrequency As eActionFrequency
+        Get
+            Return _ActionFrequency
+        End Get
+        Set(ByVal value As eActionFrequency)
+            SetPropertyValue("ActionFrequency", _ActionFrequency, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsDividePopup.vb

@@ -0,0 +1,71 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide DEV parameters if Currency is HUF", AppearanceItemType:="ViewItem", Criteria:="ContractRows.CurrencyName.ShortName = 'HUF'", TargetItems:="AmountDEV", Context:="Any", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide DEV parameters if Currency is not HUF", AppearanceItemType:="ViewItem", Criteria:="ContractRows.CurrencyName.ShortName != 'HUF'", TargetItems:="AmountHUF", Context:="Any", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+Public Class ContractRowsDividePopup
+    Inherits BaseObject
+    Private _Percent As Double
+    Private _AmountHUF As Double
+    Private _AmountDEV As Double
+    Private _ContractRows As ContractRows
+
+    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 Percent As Double
+        Get
+            Return _Percent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Percent", _Percent, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb

@@ -0,0 +1,239 @@
+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 ContractRowsModifyData
+    Inherits BaseObject
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+
+    Private _DateExecution As Date
+    Private _IsDateExecution As Boolean = False
+    Private _PaymentOption As PaymentOption
+    Private _IsPaymentOption As Boolean = False
+    Private _NettoPriceHUF As Double
+    Private _IsNettoPriceHUF As Boolean = False
+    Private _NettoPriceDEV As Double
+    Private _IsNettoPriceDEV As Boolean = False
+    Private _InvoicePeriod As String
+    Private _IsInvoicePeriod As Boolean = False
+    Private _Description As String
+    Private _IsDescription As Boolean = False
+    Private _ShortName As String
+    Private _IsShortName As Boolean = False
+    Private _VAT As VAT
+    Private _IsVAT As Boolean = False
+    Private _JobNumberObjects As JobNumberObjects
+    Private _IsJobNumberObjects As Boolean = False
+    Private _UniqueObjects As UniqueObjects
+    Private _IsUniqueObjects As Boolean = False
+    Private _Controlling As Controlling
+    Private _IsControlling As Boolean = False
+    Private _CostHolder As CostHolder
+    Private _IsCostHolder As Boolean = False
+
+
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property IsDateExecution As Boolean
+        Get
+            Return _IsDateExecution
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDateExecution", _IsDateExecution, value)
+        End Set
+    End Property
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Property IsPaymentOption As Boolean
+        Get
+            Return _IsPaymentOption
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPaymentOption", _IsPaymentOption, value)
+        End Set
+    End Property
+    Property NettoPriceHUF As Double
+        Get
+            Return _NettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
+        End Set
+    End Property
+    Property IsNettoPriceHUF As Boolean
+        Get
+            Return _IsNettoPriceHUF
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsNettoPriceHUF", _IsNettoPriceHUF, value)
+        End Set
+    End Property
+    Property NettoPriceDEV As Double
+        Get
+            Return _NettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceDEV", _NettoPriceDEV, value)
+        End Set
+    End Property
+    Property IsNettoPriceDEV As Boolean
+        Get
+            Return _IsNettoPriceDEV
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsNettoPriceDEV", _IsNettoPriceDEV, value)
+        End Set
+    End Property
+    Property InvoicePeriod As String
+        Get
+            Return _InvoicePeriod
+        End Get
+        Set(value As String)
+            SetPropertyValue("InvoicePeriod", _InvoicePeriod, value)
+        End Set
+    End Property
+    Property IsInvoicePeriod As Boolean
+        Get
+            Return _IsInvoicePeriod
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsInvoicePeriod", _IsInvoicePeriod, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property IsDescription As Boolean
+        Get
+            Return _IsDescription
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsDescription", _IsDescription, 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 IsShortName As Boolean
+        Get
+            Return _IsShortName
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsShortName", _IsShortName, value)
+        End Set
+    End Property
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property IsVAT As Boolean
+        Get
+            Return _IsVAT
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsVAT", _IsVAT, value)
+        End Set
+    End Property
+    Property JobNumberObjects As JobNumberObjects
+        Get
+            Return _JobNumberObjects
+        End Get
+        Set(value As JobNumberObjects)
+            SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
+        End Set
+    End Property
+    Property IsJobNumberObjects As Boolean
+        Get
+            Return _IsJobNumberObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsJobNumberObjects", _IsJobNumberObjects, value)
+        End Set
+    End Property
+    Property UniqueObjects As UniqueObjects
+        Get
+            Return _UniqueObjects
+        End Get
+        Set(value As UniqueObjects)
+            SetPropertyValue("UniqueObjects", _UniqueObjects, value)
+        End Set
+    End Property
+    Property IsUniqueObjects As Boolean
+        Get
+            Return _IsUniqueObjects
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsUniqueObjects", _IsUniqueObjects, value)
+        End Set
+    End Property
+    Property Controlling As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    Property IsControlling As Boolean
+        Get
+            Return _IsControlling
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsControlling", _IsControlling, value)
+        End Set
+    End Property
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property IsCostHolder As Boolean
+        Get
+            Return _IsCostHolder
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsCostHolder", _IsCostHolder, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsToInvoice.vb

@@ -0,0 +1,93 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRuleAttribute("Show CurrencyRate when CurrencyName != HUF", "CurrencyRate", EditorState.Hidden, "ContractRows.CurrencyName.ShortName = 'HUF'", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateExecution when ContractRowsType != 1", "DateExecution", EditorState.Hidden, "ContractRows.ContractRowsType In(0,2)", ViewType.DetailView)> _
+'<EditorStateRule("Hide DateCreated when ContractRowsType = 3", "DateCreated", EditorState.Hidden, "ContractRows.ContractRowsType = 3", ViewType.DetailView)> _
+
+<Appearance("Show CurrencyRate when CurrencyName != HUF", TargetItems:="CurrencyRate", Criteria:="ContractRows.CurrencyName.ShortName = 'HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateExecution when ContractRowsType != 1", TargetItems:="DateExecution", Criteria:="ContractRows.ContractRowsType In(0,2)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateCreated when ContractRowsType = 3", TargetItems:="DateCreated", Criteria:="ContractRows.ContractRowsType = 3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractsRowsToInvoice
+    Inherits BaseObject
+    Private _DateCreated As Date = Now ' A számla kiállításának dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _Description As String ' Megjegyzés
+    Private _CurrencyRate As Double = 1 ' Árfolyam
+    Private _ContractRows As ContractRows ' A Deviza típusához kell
+    Private _BankInformation As BankInformation
+    Private _IsProforma As Boolean = False
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    ReadOnly Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+    End Property
+    <RuleRequiredField("ContractsRowsToInvoice.DateExecution", DefaultContexts.Save, TargetCriteria:="ContractRows.ContractRowsType = 1")> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, 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 CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+    <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.ContractRows.Contracts.CustomersFrom' AND LiquidAssests.LiquidAssetsType = 1")> _
+    Property BankInformation As BankInformation
+        Get
+            Return (_BankInformation)
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    Property IsProforma As Boolean
+        Get
+            Return _IsProforma
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsProforma", _IsProforma, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractToFinalInvoice.vb

@@ -0,0 +1,94 @@
+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.SystemModule
+Imports DevExpress.Persistent.Base.Security
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+Imports DevExpress.ExpressApp.Filtering
+
+'<EditorStateRuleAttribute("Show CurrencyRate when CurrencyName != HUF in FINAL", "CurrencyRate", EditorState.Hidden, "ContractRows.CurrencyName.ShortName = 'HUF'", ViewType.DetailView)> _
+'<EditorStateRuleAttribute("Hide DateExecution when ContractRowsType != 1 in FINAL", "DateExecution", EditorState.Hidden, "ContractRows.ContractRowsType In(0,2)", ViewType.DetailView)> _
+'<EditorStateRule("Hide DateCreated when ContractRowsType = 3 in FINAL", "DateCreated", EditorState.Hidden, "ContractRows.ContractRowsType = 3", ViewType.DetailView)> _
+
+<Appearance("Show CurrencyRate when CurrencyName != HUF in FINAL", TargetItems:="CurrencyRate", Criteria:="ContractRows.CurrencyName.ShortName = 'HUF'", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateExecution when ContractRowsType != 1 in FINAL", TargetItems:="DateExecution", Criteria:="ContractRows.ContractRowsType In(0,2)", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide DateCreated when ContractRowsType = 3 in FINAL", TargetItems:="DateCreated", Criteria:="ContractRows.ContractRowsType = 3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractRowsToFinalInvoice
+    Inherits BaseObject
+    Private _DateCreated As Date = Now ' A számla kiállításának dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _Description As String ' Megjegyzés
+    Private _CurrencyRate As Double = 1 ' Árfolyam
+    Private _ContractRows As ContractRows ' A Deviza típusához kell
+    Private _BankInformation As BankInformation
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    ReadOnly Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+    End Property
+    <RuleRequiredField("ContractsRowsToFinalInvoice.DateExecution", DefaultContexts.Save, TargetCriteria:="ContractRows.ContractRowsType = 1")> _
+    Property DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, 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 CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+    <DataSourceCriteria("LiquidAssests.CustomerFrom = '@This.ContractRows.Contracts.CustomersFrom' AND LiquidAssests.LiquidAssetsType = 1")> _
+    Property BankInformation As BankInformation
+        Get
+            Return (_BankInformation)
+        End Get
+        Set(ByVal value As BankInformation)
+            SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property InvoiceRows As XPCollection(Of InvoiceRows)
+        Get
+            Dim _InvoiceRowsCollection As XPCollection(Of InvoiceRows) = New XPCollection(Of InvoiceRows) _
+                (Session, CriteriaOperator.Parse("InvoiceHeader.Customers=? And InvoiceHeader.CustomersFrom=? And InvoiceHeader.InvoiceType.InvoiceTypeBase in (0,1) " & _
+                                                 "And IsNull(InvoiceRowsAdvance)=True And InvoiceHeader.IsEditable=False And InvoiceHeader.IsStorno=False And InvoiceHeader.IsProforma=False AND ContractRows.Contracts=?", Me.ContractRows.Contracts.Customers, Me.ContractRows.Contracts.CustomersFrom, Me.ContractRows.Contracts))
+
+            Return _InvoiceRowsCollection
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductHeader.vb

@@ -0,0 +1,240 @@
+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
+
+
+'<EditorStateRuleAttribute("Disable Customers when is not empty in invoice ContractProductHeader", "Customers", ViewType.DetailView, "IsNull(Customers) = False", EditorState.Disabled)> _
+'<EditorStateRuleAttribute("Disable CustomersFrom when is not empty in invoice ContractProductHeader", "CustomersFrom", ViewType.DetailView, "IsNull(CustomersFrom) = False", EditorState.Disabled)> _
+'<EditorStateRuleAttribute("Disable CurrencyName when is not empty in invoice CurrencyName", "CurrencyName", ViewType.DetailView, "IsNull(CurrencyName) = False", EditorState.Disabled)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("Contracts")> _
+<DefaultProperty("DisplayName")> _
+<FileAttachment("File")> _
+<Appearance("Hide row_NettoPriceDEV when DEV is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName = 'HUF'", TargetItems:="row_NettoPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_NettoPriceHUF when DEV isnot HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName <> 'HUF'", TargetItems:="row_NettoPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_ContractProductRows when ContractTemplate.PartnerType=ePayabels", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=1", TargetItems:="row_ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide row_Products when ContractTemplate.PartnerType= eReceivables", AppearanceItemType.ViewItem, "ContractTemplate.PartnerType=0", TargetItems:="row_Products", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractProductRows when CurrencyName is nothing", AppearanceItemType.LayoutItem, "IsNull(CurrencyName) = True", TargetItems:="ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ContractProductRows when CurrencyName is nothingViewItem", AppearanceItemType.ViewItem, "IsNull(CurrencyName) = True", TargetItems:="ContractProductRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable ALL property when State = State.Ready", AppearanceItemType.ViewItem, "State = 1", TargetItems:="*", Enabled:=False)> _
+<Appearance("Disable Customers when is not empty in invoice ContractProductHeader", TargetItems:="Customers", Criteria:="IsNull(Customers) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable CustomersFrom when is not empty in invoice ContractProductHeader", TargetItems:="CustomersFrom", Criteria:="IsNull(CustomersFrom) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable CurrencyName when is not empty in invoice CurrencyName", TargetItems:="CurrencyName", Criteria:="IsNull(CurrencyName) = False", Enabled:=False, Context:="DetailView")> _
+<Appearance("Disable aTotable_ConProd_Payabels when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aTotable_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable aTotableD_ConProd when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aTotableD_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable aBackToRowEdit_ConProd_Payabels when State = State.Ready", AppearanceItemType.Action, "State = 1", TargetItems:="aBackToRowEdit_ConProd_Payabels", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class ContractProductHeader
+    Inherits Contracts
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.row_VAT = Session.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        Me.row_Units = Session.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        Me.HRResponsible = Session.FindObject(Of HRPerson) _
+            (CriteriaOperator.Parse("User=?", Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))))
+    End Sub
+    Private _CustomersStoreHouse As Customers 'Tároló tulajdonosa ha contract product-ról van szó
+    Private _AddressStoreHouse As Address 'Tárolási cím !
+    Private _Customers2 As Customers 'Az adásvétel vevõje, ha szállító, eladója ha vevõ
+    '---------------NonPersistent Propertys-----------------
+    Private _row_Products As Products
+    Private _row_ContractProductRows As ContractProductRows
+    Private _row_QTT As Double
+    Private _row_NettoPriceHUF As Double '-- Nettó egységár (HUF)
+    Private _row_NettoPriceDEV As Double '-- Nettó egységár (DEV)
+    Private _row_VAT As VAT 'ÁFA kód
+    Private _row_Units As Units '-- Mennyiségi egység
+    Private _row_RowGroup1 As String 'Csoportosító sor1
+    Private _row_RowGroup2 As String 'Csoportosító sor2
+    Private _row_PaymentOption As PaymentOption
+    Private _row_APCSheetByProducts As APCSheetByProducts 'Termeltetési szerzõdés
+    <RuleRequiredField("ContractProductHeader.CustomersStoreHouse", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType = 1")> _
+    Property CustomersStoreHouse As Customers
+        Get
+            Return _CustomersStoreHouse
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("CustomersStoreHouse", _CustomersStoreHouse, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractProductHeader.Customers2", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType='ePayabels'")> _
+    Property Customers2 As Customers
+        Get
+            Return _Customers2
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers2", _Customers2, value)
+        End Set
+    End Property
+    <RuleRequiredField("ContractProductHeader.AddressStoreHouse", DefaultContexts.Save, TargetCriteria:="ContractTemplate.PartnerType='ePayabels'")> _
+    Property AddressStoreHouse As Address
+        Get
+            Return _AddressStoreHouse
+        End Get
+        Set(value As Address)
+            SetPropertyValue("AddressStoreHouse", _AddressStoreHouse, value)
+        End Set
+    End Property
+    <Aggregated()> _
+    <Association("ContractProductHeader-ContractProductRows", GetType(ContractProductRows)), VisibleInListView(False)> _
+        ReadOnly Property ContractProductRows() As XPCollection(Of ContractProductRows)
+        Get
+            Return GetCollection(Of ContractProductRows)("ContractProductRows")
+        End Get
+    End Property
+
+    '---------------NonPersistent Propertys-----------------
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+            If value IsNot Nothing Then
+                Me.row_Units = value.Units
+                Me.row_VAT = value.VAT
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    <DataSourceCriteria("(QTT-QTT_Out)>0 AND ContractProductHeader.ContractTemplate.PartnerType=1")> _
+    Property row_ContractProductRows As ContractProductRows
+        Get
+            Return _row_ContractProductRows
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("row_ContractProductRows", _row_ContractProductRows, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value IsNot Nothing Then
+                    Me.row_Units = value.Units
+                    Me.row_VAT = value.VAT
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_NettoPriceHUF As Double
+        Get
+            Return _row_NettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_NettoPriceHUF", _row_NettoPriceHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_NettoPriceDEV As Double
+        Get
+            Return _row_NettoPriceDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_NettoPriceDEV", _row_NettoPriceDEV, value)
+        End Set
+    End Property
+    '<RuleRequiredField("ContractProductHeader-row_Customers", "aTotable_ConProd_Payabels_Contexts", TargetCriteria:="IsNull(row_VAT)=True")> _
+    <NonPersistent()> _
+    <ImmediatePostData()> _
+    <VisibleInListView(False)> _
+    Property row_VAT As VAT
+        Get
+            Return _row_VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("row_VAT", _row_VAT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <ImmediatePostData()> _
+   <VisibleInListView(False)> _
+    Property row_Units As Units
+        Get
+            Return _row_Units
+        End Get
+        Set(value As Units)
+            SetPropertyValue("row_Units", _row_Units, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <ImmediatePostData()> _
+   <VisibleInListView(False)> _
+    Property row_RowGroup1 As String
+        Get
+            Return _row_RowGroup1
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RowGroup1", _row_RowGroup1, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+  <ImmediatePostData()> _
+  <VisibleInListView(False)> _
+    Property row_RowGroup2 As String
+        Get
+            Return _row_RowGroup2
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_RowGroup2", _row_RowGroup2, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+<ImmediatePostData()> _
+<VisibleInListView(False)> _
+    Property row_PaymentOption As PaymentOption
+        Get
+            Return _row_PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("row_PaymentOption", _row_PaymentOption, value)
+        End Set
+    End Property
+    '<RuleRequiredField("ContractProductHeader-row_APCSheetByProducts", "aToTable_OrderIn", targetcriteria:="OrderInParameters.IsAPCSheet=True")> _
+    <NonPersistent> _
+    <DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom'")> _
+    Property row_APCSheetByProducts As APCSheetByProducts
+        Get
+            Return _row_APCSheetByProducts
+        End Get
+        Set(value As APCSheetByProducts)
+            SetPropertyValue("row_APCSheetByProducts", _row_APCSheetByProducts, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value.Products IsNot Nothing Then
+                    row_Products = value.Products
+                    row_QTT = value.SumContractQuantity
+                    row_Units = value.Products.Units
+                End If
+            End If
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductLINQ.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
+
+Imports System.Linq
+Imports SISBusiness.Module.Dennis.Linq
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractProductLINQ
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    <CustomQueryProperties("DisplayableProperties", "ProductNumber;ShortName;Unit;QTT_Free")> _
+    Public Shared Function ContractProductsRowsGroup(ByVal s As Session) As IQueryable
+        Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s)
+        Dim query = _
+         From e In _ContractProductsRowsGroup _
+         Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _
+         Group e By e.Products.Oid, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _
+         Select New With {Key .ProductNumber = ProductNumber, _
+                          Key .ShortName = ShortName, _
+                          Key .Unit = UnitShortName, _
+                          Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)}
+        Return query
+    End Function
+    <CustomQueryProperties("DisplayableProperties", "FullName;ProductNumber;ShortName;Unit;QTT_Free")> _
+    Public Shared Function ContractProductsRowsCustomersGroup(ByVal s As Session) As IQueryable
+        Dim _ContractProductsRowsGroup As New XPQuery(Of ContractProductRows)(s)
+        Dim query = _
+         From e In _ContractProductsRowsGroup _
+         Where e.ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.ePayabels _
+         Group e By e.ContractProductHeader.Customers.FullName, e.Products.ProductNumber, e.Products.ShortName, UnitShortName = e.Products.Units.ShortName Into gg = Group _
+         Select New With {Key .FullName = FullName, _
+                          Key .ProductNumber = ProductNumber, _
+                          Key .ShortName = ShortName, _
+                          Key .Unit = UnitShortName, _
+                          Key .QTT_Free = gg.Sum(Function(inv) inv.QTT) - gg.Sum(Function(inv) inv.QTT_Out)}
+        Return query
+    End Function
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRows.vb

@@ -0,0 +1,119 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports System.Linq
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractProductRows
+    Inherits ContractRows
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _Products As Products
+    Private _QTT_Out As Double
+    Private _ContractProductHeader As ContractProductHeader
+    Private _RowIndex As Long 'Sor index (mozgathatónak kell lennie !)
+    Private _APCSheetByProducts As APCSheetByProducts 'Termeltetési szerzõdési sor
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property QTT_Out As Double
+        Get
+            Return _QTT_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, value)
+        End Set
+    End Property
+    <Association("ContractProductHeader-ContractProductRows", GetType(ContractProductHeader))> _
+    Property ContractProductHeader() As ContractProductHeader
+        Get
+            Return _ContractProductHeader
+        End Get
+        Set(ByVal value As ContractProductHeader)
+            SetPropertyValue("ContractProductHeader", _ContractProductHeader, value)
+        End Set
+    End Property
+    Property RowIndex() As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property APCSheetByProducts As APCSheetByProducts
+        Get
+            Return _APCSheetByProducts
+        End Get
+        Set(value As APCSheetByProducts)
+            SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value)
+        End Set
+    End Property
+
+
+    Public Sub AddRows(ByVal _p_ContractProductHeader As ContractProductHeader)
+        ' Sor hozzáadása
+        Me.ContractProductHeader = _p_ContractProductHeader
+        If _p_ContractProductHeader.row_Products IsNot Nothing Then
+            Me.Products = _p_ContractProductHeader.row_Products
+        Else
+            Me.Products = _p_ContractProductHeader.row_ContractProductRows.Products
+        End If
+        Me.QTT = _p_ContractProductHeader.row_QTT
+        Me.Units = _p_ContractProductHeader.row_Units
+        Me.VAT = _p_ContractProductHeader.row_VAT
+        Me.RowGroup1 = _p_ContractProductHeader.row_RowGroup1
+        Me.RowGroup2 = _p_ContractProductHeader.row_RowGroup2
+        Me.NettoPriceDEV = _p_ContractProductHeader.row_NettoPriceDEV
+        Me.NettoPriceHUF = _p_ContractProductHeader.row_NettoPriceHUF
+        Me.DateExecution = _p_ContractProductHeader.DateExecution
+        Me.ContractRowsType = eContractRowsType.eFix
+        Me.Controlling = _ContractProductHeader.ContractTemplate.Controlling
+
+        Dim _PaymentOption As PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
+        Me.Contracts = TryCast(_p_ContractProductHeader, Contracts)
+        If _p_ContractProductHeader.row_PaymentOption IsNot Nothing Then
+            Me.PaymentOption = _p_ContractProductHeader.row_PaymentOption
+        Else
+            If _PaymentOption IsNot Nothing Then
+                Me.PaymentOption = _PaymentOption
+            End If
+        End If
+        'Me.Controlling = _p_ContractProductHeader.row_Controlling
+        If _p_ContractProductHeader.row_Products IsNot Nothing Then
+            Me.ShortName = _p_ContractProductHeader.row_Products.ShortName
+        Else
+            Me.ShortName = _p_ContractProductHeader.row_ContractProductRows.ShortName
+        End If
+        ' Indexelés
+        If _p_ContractProductHeader.ContractProductRows.Count = 0 Then
+            Me.RowIndex = 0
+        Else
+            Me.RowIndex = _p_ContractProductHeader.ContractProductRows.Count - 1
+        End If
+        Me.APCSheetByProducts = _p_ContractProductHeader.row_APCSheetByProducts
+        Me.Contracts.ContractRows.Add(TryCast(Me, ContractRows))
+    End Sub
+    Public Sub RemoveRows()
+        Me.Delete()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsEvent.vb

@@ -0,0 +1,97 @@
+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 ContractProductRowsEvent
+    Inherits BaseObject
+
+    Private _ContractProductRowsIn As ContractProductRows
+    Private _ContractProductRowsOut As ContractProductRows
+    Private _DateExecution As Date
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _QTT_Out As Double
+    Private _QTT_In As Double
+
+    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 ContractProductRowsIn As ContractProductRows
+        Get
+            Return _ContractProductRowsIn
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value)
+        End Set
+    End Property
+    Property ContractProductRowsOut As ContractProductRows
+        Get
+            Return _ContractProductRowsOut
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, 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
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property QTT_Out As Double
+        Get
+            Return _QTT_Out
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Out", _QTT_Out, value)
+        End Set
+    End Property
+    Property QTT_In As Double
+        Get
+            Return _QTT_In
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_In", _QTT_In, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProductRowsInOut.vb

@@ -0,0 +1,54 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class ContractProductRowsInOut
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _QTT As Double
+    Private _ContractProductRowsIn As ContractProductRows
+    Private _ContractProductRowsOut As ContractProductRows
+
+    Property QTT As Double
+        Get
+            Return _QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property ContractProductRowsIn As ContractProductRows
+        Get
+            Return _ContractProductRowsIn
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsIn", _ContractProductRowsIn, value)
+        End Set
+    End Property
+    Property ContractProductRowsOut As ContractProductRows
+        Get
+            Return _ContractProductRowsOut
+        End Get
+        Set(value As ContractProductRows)
+            SetPropertyValue("ContractProductRowsOut", _ContractProductRowsOut, value)
+        End Set
+    End Property
+    Public Sub RemoveRows()
+        Me.Delete()
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.Designer.vb

@@ -0,0 +1,238 @@
+Partial Class ContractProduct_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.aTotable_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotable_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToRowEdit_ConProd_Receivables = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToRowEdit_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_ConProd_Payabels = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_ContractProductRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aNewContractProductHeader = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFinalizeContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSendBackToEditContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_ConProd_Receivables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aPrintContractProduct = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aTotable_ConProd_Receivables
+        '
+        Me.aTotable_ConProd_Receivables.Caption = "Add row"
+        Me.aTotable_ConProd_Receivables.Category = "aTotable_ConProd_Receivables"
+        Me.aTotable_ConProd_Receivables.ConfirmationMessage = Nothing
+        Me.aTotable_ConProd_Receivables.Id = "aTotable_ConProd_Receivables"
+        Me.aTotable_ConProd_Receivables.ImageName = "table_add"
+        Me.aTotable_ConProd_Receivables.Shortcut = Nothing
+        Me.aTotable_ConProd_Receivables.Tag = Nothing
+        Me.aTotable_ConProd_Receivables.TargetObjectsCriteria = Nothing
+        Me.aTotable_ConProd_Receivables.TargetViewId = ""
+        Me.aTotable_ConProd_Receivables.ToolTip = Nothing
+        Me.aTotable_ConProd_Receivables.TypeOfView = Nothing
+        '
+        'aTotable_ConProd_Payabels
+        '
+        Me.aTotable_ConProd_Payabels.Caption = "Add row"
+        Me.aTotable_ConProd_Payabels.Category = "aTotable_ConProd_Payabels"
+        Me.aTotable_ConProd_Payabels.ConfirmationMessage = Nothing
+        Me.aTotable_ConProd_Payabels.Id = "aTotable_ConProd_Payabels"
+        Me.aTotable_ConProd_Payabels.ImageName = "table_add"
+        Me.aTotable_ConProd_Payabels.Shortcut = Nothing
+        Me.aTotable_ConProd_Payabels.Tag = Nothing
+        Me.aTotable_ConProd_Payabels.TargetObjectsCriteria = Nothing
+        Me.aTotable_ConProd_Payabels.TargetViewId = ""
+        Me.aTotable_ConProd_Payabels.ToolTip = Nothing
+        Me.aTotable_ConProd_Payabels.TypeOfView = Nothing
+        '
+        'aBackToRowEdit_ConProd_Receivables
+        '
+        Me.aBackToRowEdit_ConProd_Receivables.Caption = "Edit row"
+        Me.aBackToRowEdit_ConProd_Receivables.Category = "aBackToRowEdit_ConProd_Receivables"
+        Me.aBackToRowEdit_ConProd_Receivables.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.Id = "aBackToRowEdit_ConProd_Receivables"
+        Me.aBackToRowEdit_ConProd_Receivables.ImageName = "table_refresh"
+        Me.aBackToRowEdit_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_ConProd_Receivables.Shortcut = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.Tag = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.TargetViewId = ""
+        Me.aBackToRowEdit_ConProd_Receivables.ToolTip = Nothing
+        Me.aBackToRowEdit_ConProd_Receivables.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aBackToRowEdit_ConProd_Payabels
+        '
+        Me.aBackToRowEdit_ConProd_Payabels.Caption = "Edit row"
+        Me.aBackToRowEdit_ConProd_Payabels.Category = "aBackToRowEdit_ConProd_Payabels"
+        Me.aBackToRowEdit_ConProd_Payabels.ConfirmationMessage = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.Id = "aBackToRowEdit_ConProd_Payabels"
+        Me.aBackToRowEdit_ConProd_Payabels.ImageName = "table_refresh"
+        Me.aBackToRowEdit_ConProd_Payabels.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToRowEdit_ConProd_Payabels.Shortcut = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.Tag = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.TargetObjectsCriteria = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.TargetViewId = ""
+        Me.aBackToRowEdit_ConProd_Payabels.ToolTip = Nothing
+        Me.aBackToRowEdit_ConProd_Payabels.TypeOfView = GetType(DevExpress.ExpressApp.View)
+        '
+        'aTotableD_ConProd_Payabels
+        '
+        Me.aTotableD_ConProd_Payabels.Caption = "Delete row"
+        Me.aTotableD_ConProd_Payabels.Category = "aTotableD_ConProd_Payabels"
+        Me.aTotableD_ConProd_Payabels.ConfirmationMessage = Nothing
+        Me.aTotableD_ConProd_Payabels.Id = "aTotableD_ConProd_Payabels"
+        Me.aTotableD_ConProd_Payabels.ImageName = "table_delete"
+        Me.aTotableD_ConProd_Payabels.Shortcut = Nothing
+        Me.aTotableD_ConProd_Payabels.Tag = Nothing
+        Me.aTotableD_ConProd_Payabels.TargetObjectsCriteria = Nothing
+        Me.aTotableD_ConProd_Payabels.TargetViewId = ""
+        Me.aTotableD_ConProd_Payabels.ToolTip = Nothing
+        Me.aTotableD_ConProd_Payabels.TypeOfView = Nothing
+        '
+        'aDown_ContractProductRows
+        '
+        Me.aDown_ContractProductRows.Caption = "Down"
+        Me.aDown_ContractProductRows.Category = "RecordsNavigation"
+        Me.aDown_ContractProductRows.ConfirmationMessage = Nothing
+        Me.aDown_ContractProductRows.Id = "aDown_ContractProductRows"
+        Me.aDown_ContractProductRows.ImageName = "arrow_down_green"
+        Me.aDown_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_ContractProductRows.Shortcut = Nothing
+        Me.aDown_ContractProductRows.Tag = Nothing
+        Me.aDown_ContractProductRows.TargetObjectsCriteria = Nothing
+        Me.aDown_ContractProductRows.TargetViewId = Nothing
+        Me.aDown_ContractProductRows.ToolTip = Nothing
+        Me.aDown_ContractProductRows.TypeOfView = Nothing
+        '
+        'aUp_ContractProductRows
+        '
+        Me.aUp_ContractProductRows.Caption = "Up"
+        Me.aUp_ContractProductRows.Category = "RecordsNavigation"
+        Me.aUp_ContractProductRows.ConfirmationMessage = Nothing
+        Me.aUp_ContractProductRows.Id = "aUp_ContractProductRows"
+        Me.aUp_ContractProductRows.ImageName = "arrow_up_green"
+        Me.aUp_ContractProductRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_ContractProductRows.Shortcut = Nothing
+        Me.aUp_ContractProductRows.Tag = Nothing
+        Me.aUp_ContractProductRows.TargetObjectsCriteria = Nothing
+        Me.aUp_ContractProductRows.TargetViewId = Nothing
+        Me.aUp_ContractProductRows.ToolTip = Nothing
+        Me.aUp_ContractProductRows.TypeOfView = Nothing
+        '
+        'aNewContractProductHeader
+        '
+        Me.aNewContractProductHeader.AcceptButtonCaption = Nothing
+        Me.aNewContractProductHeader.CancelButtonCaption = Nothing
+        Me.aNewContractProductHeader.Caption = "New Contract Product Header"
+        Me.aNewContractProductHeader.Category = "ObjectsCreation"
+        Me.aNewContractProductHeader.ConfirmationMessage = Nothing
+        Me.aNewContractProductHeader.Id = "aNewContractProductHeader"
+        Me.aNewContractProductHeader.ImageName = Nothing
+        Me.aNewContractProductHeader.Shortcut = Nothing
+        Me.aNewContractProductHeader.Tag = Nothing
+        Me.aNewContractProductHeader.TargetObjectsCriteria = Nothing
+        Me.aNewContractProductHeader.TargetViewId = Nothing
+        Me.aNewContractProductHeader.ToolTip = Nothing
+        Me.aNewContractProductHeader.TypeOfView = Nothing
+        '
+        'aFinalizeContractProduct
+        '
+        Me.aFinalizeContractProduct.Caption = "Finalize Contract Product"
+        Me.aFinalizeContractProduct.Category = "Edit"
+        Me.aFinalizeContractProduct.ConfirmationMessage = Nothing
+        Me.aFinalizeContractProduct.Id = "aFinalizeContractProduct"
+        Me.aFinalizeContractProduct.ImageName = Nothing
+        Me.aFinalizeContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFinalizeContractProduct.Shortcut = Nothing
+        Me.aFinalizeContractProduct.Tag = Nothing
+        Me.aFinalizeContractProduct.TargetObjectsCriteria = "State in (0)"
+        Me.aFinalizeContractProduct.TargetViewId = Nothing
+        Me.aFinalizeContractProduct.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aFinalizeContractProduct.ToolTip = Nothing
+        Me.aFinalizeContractProduct.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aSendBackToEditContractProduct
+        '
+        Me.aSendBackToEditContractProduct.Caption = "SendBackToEditContractProduct"
+        Me.aSendBackToEditContractProduct.Category = "Edit"
+        Me.aSendBackToEditContractProduct.ConfirmationMessage = Nothing
+        Me.aSendBackToEditContractProduct.Id = "aSendBackToEditContractProduct"
+        Me.aSendBackToEditContractProduct.ImageName = Nothing
+        Me.aSendBackToEditContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aSendBackToEditContractProduct.Shortcut = Nothing
+        Me.aSendBackToEditContractProduct.Tag = Nothing
+        Me.aSendBackToEditContractProduct.TargetObjectsCriteria = "State in (1)"
+        Me.aSendBackToEditContractProduct.TargetViewId = Nothing
+        Me.aSendBackToEditContractProduct.ToolTip = Nothing
+        Me.aSendBackToEditContractProduct.TypeOfView = Nothing
+        '
+        'aTotableD_ConProd_Receivables
+        '
+        Me.aTotableD_ConProd_Receivables.AcceptButtonCaption = Nothing
+        Me.aTotableD_ConProd_Receivables.CancelButtonCaption = Nothing
+        Me.aTotableD_ConProd_Receivables.Caption = "aTotableD_ConProd_Receivables"
+        Me.aTotableD_ConProd_Receivables.Category = "aTotableD_ConProd_Receivables"
+        Me.aTotableD_ConProd_Receivables.ConfirmationMessage = Nothing
+        Me.aTotableD_ConProd_Receivables.Id = "aTotableD_ConProd_Receivables"
+        Me.aTotableD_ConProd_Receivables.ImageName = "table_delete"
+        Me.aTotableD_ConProd_Receivables.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aTotableD_ConProd_Receivables.Shortcut = Nothing
+        Me.aTotableD_ConProd_Receivables.Tag = Nothing
+        Me.aTotableD_ConProd_Receivables.TargetObjectsCriteria = Nothing
+        Me.aTotableD_ConProd_Receivables.TargetViewId = Nothing
+        Me.aTotableD_ConProd_Receivables.ToolTip = Nothing
+        Me.aTotableD_ConProd_Receivables.TypeOfView = Nothing
+        '
+        'aPrintContractProduct
+        '
+        Me.aPrintContractProduct.Caption = "aPrint Contract Product"
+        Me.aPrintContractProduct.ConfirmationMessage = Nothing
+        Me.aPrintContractProduct.Id = "aPrintContractProduct"
+        Me.aPrintContractProduct.ImageName = Nothing
+        Me.aPrintContractProduct.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aPrintContractProduct.Shortcut = Nothing
+        Me.aPrintContractProduct.Tag = Nothing
+        Me.aPrintContractProduct.TargetObjectsCriteria = Nothing
+        Me.aPrintContractProduct.TargetObjectType = GetType(SISBusiness.[Module].ContractProductHeader)
+        Me.aPrintContractProduct.TargetViewId = Nothing
+        Me.aPrintContractProduct.ToolTip = Nothing
+        Me.aPrintContractProduct.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aTotable_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotable_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_ConProd_Receivables As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToRowEdit_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_ConProd_Payabels As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_ContractProductRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aNewContractProductHeader As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFinalizeContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSendBackToEditContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_ConProd_Receivables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aPrintContractProduct As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.resx

@@ -0,0 +1,159 @@
+<?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="aTotable_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aTotable_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aBackToRowEdit_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aBackToRowEdit_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aTotableD_ConProd_Payabels.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aDown_ContractProductRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aUp_ContractProductRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aNewContractProductHeader.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aFinalizeContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aSendBackToEditContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aTotableD_ConProd_Receivables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aPrintContractProduct.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>221, 95</value>
+  </metadata>
+  <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </metadata>
+</root>

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Contract/Product/ContractProduct_VC.vb

@@ -0,0 +1,591 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Xpo
+
+Public Class ContractProduct_VC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", False)
+        Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
+
+        If View.Id Like "ContractProductHeader_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().DeleteAction.TargetObjectsCriteria = "State=0 AND (DocumentNumber = '' OR IsNull(DocumentNumber)=True)"
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
+        End If
+
+        If View.Id Like "ContractProductHeader_DetailView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aFinalizeContractProduct.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractTemplate_ListView_PopUp" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductRowsInOut_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", False) 'Iktatás betekintése
+            Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", False)
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "ContractProductHeader_ContractProductRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aDown_ContractProductRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aUp_ContractProductRows.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        If View.Id Like "ContractProductHeader_ListView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aNewContractProductHeader.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
+        End If
+
+        If View.Id Like "ContractProductHeader_DetailView*" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractProduct_VC)().aSendBackToEditContractProduct.Active.SetItemValue("", False)
+        End If
+        If View.Id = "ContractTemplate_ListView_PopUp" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductRowsInOut_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsCustomersGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductLINQ_ListView_ContractProductsRowsGroup_Linq" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True)
+        End If
+        If View.Id = "ContractProductRows_ListView_Invoice_IsProforma" Then
+            Frame.GetController(Of ContractsVC)().aGenerateInvoicefromContractsRows.Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aMergeContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aOpenRegistryInvoiceFromContractRows.Active.SetItemValue("", True) 'Iktatás betekintése
+            Frame.GetController(Of ContractsVC)().aOpenInvoiceFromContractRows.Active.SetItemValue("", False)
+            Frame.GetController(Of ContractsVC)().aOpenCOCFromContractRows.Active.SetItemValue("", True)
+            Frame.GetController(Of ContractsVC)().aDivideContractRows.Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aContractProductHeaderNew_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _DetailViewName As String = ""
+        Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)()
+        _ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True))
+        If View.Id = "ContractProductHeader_ListView_Receivables" Then
+            _DetailViewName = "ContractProductHeader_DetailView_Receivables"
+            _ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=? AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.eReceivables))
+        End If
+        If View.Id = "ContractProductHeader_ListView_Payabels" Then
+            _DetailViewName = "ContractProductHeader_DetailView_Payables"
+            _ContractProductHeader.ContractTemplate = _onew.FindObject(Of ContractTemplate)(CriteriaOperator.Parse("CustomersFrom=? AND PartnerType=?  AND IsProducts=True", _ContractProductHeader.CustomersFrom, ePartnerType.ePayabels))
+        End If
+        If _DetailViewName <> "" Then
+            e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader)
+        Else
+            _onew.Rollback()
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Az eladni kívánt mennyiség meghaladja maximálisan eladható mennyiséget!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+    End Sub
+    Private Sub aTotable_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Payabels.Execute
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
+        Dim _ContractProductRows As ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
+        Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+
+        _ContractProductRows.ContractProductHeader = _ContractProductHeader
+
+        Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+        If ItemToFocus IsNot Nothing Then
+            Dim ItemControl As Object
+            ItemControl = ItemToFocus.Control
+            ItemControl.Focus()
+        End If
+
+
+        _ContractProductRows.AddRows(_ContractProductHeader)
+
+        _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows
+        _ContractProductRowsEvent.QTT_In = _ContractProductHeader.row_QTT
+        _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
+
+
+        _ocur.CommitChanges()
+
+        _ContractProductHeader.row_ContractProductRows = Nothing
+        _ContractProductHeader.row_NettoPriceDEV = 0
+        _ContractProductHeader.row_NettoPriceHUF = 0
+        _ContractProductHeader.row_Products = Nothing
+        _ContractProductHeader.row_QTT = 0
+        _ContractProductHeader.row_RowGroup1 = ""
+        _ContractProductHeader.row_RowGroup2 = ""
+        _ContractProductHeader.row_Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+        _ContractProductHeader.row_VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes='True'"))
+
+
+        If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+        Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+    Private Sub aTotableD_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_ConProd_Payabels.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0)
+        Dim _ContractProductHeader_ListEditor As ListPropertyEditor
+
+
+        _ContractProductHeader_ListEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
+        For Each _ContractProductRows As ContractProductRows In _ContractProductHeader_ListEditor.ListView.SelectedObjects
+            Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+            _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRows
+            _ContractProductRowsEvent.QTT_In = _ContractProductRows.QTT * (-1)
+            _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
+
+            _ContractProductRows.RemoveRows()
+        Next
+
+        _ocur.CommitChanges()
+        View.Refresh()
+    End Sub
+    Private Sub aBackToRowEdit_ConProd_Payabels_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Payabels.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
+
+        Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
+        If _ListView.ListView.SelectedObjects.Count > 0 Then
+
+            Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0)  'Régi sor változóba töltése
+
+            _ContractProductHeader.row_Products = _ContractProductRows.Products
+            _ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV
+            _ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF
+            _ContractProductHeader.row_QTT = _ContractProductRows.QTT
+            _ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1
+            _ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2
+            _ContractProductHeader.row_Units = _ContractProductRows.Units
+            _ContractProductHeader.row_VAT = _ContractProductRows.VAT
+            _ContractProductHeader.row_APCSheetByProducts = _ContractProductRows.APCSheetByProducts
+
+        End If
+    End Sub
+    Private Sub aTotable_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_ConProd_Receivables.Execute
+        '    Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = CType(View.SelectedObjects(0), ContractProductHeader)
+        Dim _ContractProductRows_IN As ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("Oid=?", _ContractProductHeader.row_ContractProductRows.Oid))
+        Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
+        Dim _ContractProductRowsCollection As XPCollection = _ListView.ListView.ObjectSpace.CreateCollection(GetType(ContractProductRows), CriteriaOperator.Parse("ContractProductHeader=?", _ContractProductHeader))
+        Dim _ContractProductRows As ContractProductRows
+        Dim _MatchLine As Boolean = False
+
+        If _ContractProductHeader.row_QTT <= (_ContractProductRows_IN.QTT - _ContractProductRows_IN.QTT_Out) Then
+            For Each _ContractProductRows_List As ContractProductRows In _ContractProductRowsCollection
+                If _ContractProductRows_List.Products.Oid = _ContractProductHeader.row_ContractProductRows.Products.Oid Then
+                    If _ContractProductHeader.CurrencyName.ShortName = "HUF" Then
+                        If _ContractProductRows_List.NettoPriceHUF = _ContractProductHeader.row_NettoPriceHUF Then
+                            _MatchLine = True
+                        End If
+                    Else
+                        If _ContractProductRows_List.NettoPriceDEV = _ContractProductHeader.row_NettoPriceDEV Then
+                            _MatchLine = True
+                        End If
+                    End If
+                End If
+            Next
+            If _MatchLine Then
+                _ContractProductRows = _ocur.FindObject(Of ContractProductRows)(CriteriaOperator.Parse("ContractProductHeader=? AND Products=? AND NettoPriceHUF=? AND NettoPriceDEV=?", _
+                                                            _ContractProductHeader, _ContractProductHeader.row_ContractProductRows.Products, _ContractProductHeader.row_NettoPriceHUF, _ContractProductHeader.row_NettoPriceDEV))
+                _ContractProductRows.QTT += _ContractProductHeader.row_QTT
+                _ContractProductRows_IN.QTT_Out += _ContractProductHeader.row_QTT
+            Else
+                _ContractProductRows = _ocur.CreateObject(Of ContractProductRows)()
+
+                _ContractProductRows.ContractProductHeader = _ContractProductHeader
+                _ContractProductRows.AddRows(_ContractProductHeader)
+                _ContractProductRows_IN.QTT_Out += _ContractProductRows.QTT
+
+            End If
+
+            Dim _ContractProductRowsInOut As ContractProductRowsInOut = _ocur.CreateObject(Of ContractProductRowsInOut)()
+            Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+
+            Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+            If ItemToFocus IsNot Nothing Then
+                Dim ItemControl As Object
+                ItemControl = ItemToFocus.Control
+                If ItemControl IsNot Nothing Then
+                    ItemControl.Focus()
+                End If
+            End If
+
+
+            _ContractProductRowsInOut.QTT = _ContractProductHeader.row_QTT
+            _ContractProductRowsInOut.ContractProductRowsIn = _ContractProductRows_IN
+            _ContractProductRowsInOut.ContractProductRowsOut = _ContractProductRows
+
+            _ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows
+            _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductHeader.row_ContractProductRows
+            _ContractProductRowsEvent.QTT_Out = _ContractProductHeader.row_QTT
+            _ContractProductRowsEvent.QTT_In = 0
+            _ContractProductRowsEvent.DateExecution = _ContractProductRows.DateExecution
+
+            _ContractProductHeader.row_ContractProductRows = Nothing
+            _ContractProductHeader.row_NettoPriceDEV = 0
+            _ContractProductHeader.row_NettoPriceHUF = 0
+            _ContractProductHeader.row_Products = Nothing
+            _ContractProductHeader.row_QTT = 0
+            _ContractProductHeader.row_RowGroup1 = ""
+            _ContractProductHeader.row_RowGroup2 = ""
+            _ContractProductHeader.row_Units = Nothing
+            _ContractProductHeader.row_VAT = Nothing
+
+            _ocur.CommitChanges()
+
+            If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+                Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+            End If
+        Else
+            _ContractProductHeader.row_QTT = _ContractProductHeader.row_ContractProductRows.QTT - _ContractProductHeader.row_ContractProductRows.QTT_Out
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Az eladni kívánt mennyiség meghaladja maximálisan eladható mennyiséget!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+
+        '   Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+    End Sub
+    Private Sub aBackToRowEdit_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToRowEdit_ConProd_Receivables.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = View.SelectedObjects(0) 'Kijelölt elem fejlécének betöltése
+
+        Dim _ListView As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows") 'Sorok összeszedése
+        If _ListView.ListView.SelectedObjects.Count > 0 Then
+
+            Dim _ContractProductRows As ContractProductRows = _ListView.ListView.SelectedObjects(0)  'Régi sor változóba töltése
+
+            _ContractProductHeader.row_Products = _ContractProductRows.Products
+            _ContractProductHeader.row_ContractProductRows = TryCast(_ocur.FindObject(Of ContractProductRowsInOut)(CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)), ContractProductRowsInOut).ContractProductRowsIn
+            _ContractProductHeader.row_NettoPriceDEV = _ContractProductRows.NettoPriceDEV
+            _ContractProductHeader.row_NettoPriceHUF = _ContractProductRows.NettoPriceHUF
+            _ContractProductHeader.row_QTT = _ContractProductRows.QTT
+            _ContractProductHeader.row_RowGroup1 = _ContractProductRows.RowGroup1
+            _ContractProductHeader.row_RowGroup2 = _ContractProductRows.RowGroup2
+            _ContractProductHeader.row_Units = _ContractProductRows.Units
+            _ContractProductHeader.row_VAT = _ContractProductRows.VAT
+
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aDown_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_ContractProductRows.Execute
+        ' A kiválaszott sort egy sorral lejebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.CurrentObject, ContractProductRows).ContractProductHeader
+        Dim _ContractProductRowsSelected As ContractProductRows = Nothing
+        Dim _ContractProductRowsPlus As ContractProductRows = Nothing
+        Dim _ContractProductRows As ContractProductRows = Nothing
+
+        Try
+            _ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijelölt sorok közül az elsõt
+        Catch
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End Try
+
+        If _ContractProductRowsSelected.RowIndex < _ContractProductHeader.ContractProductRows.Count - 1 Then
+            For Each _ContractProductRows In _ContractProductHeader.ContractProductRows
+                If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex + 1 Then
+                    _ContractProductRowsPlus = _ContractProductRows
+                    Exit For
+                End If
+            Next
+
+            If _ContractProductRowsPlus IsNot Nothing Then
+                _ContractProductRowsSelected.RowIndex += 1
+                _ContractProductRowsPlus.RowIndex -= 1
+            End If
+
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aUp_ContractProductRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_ContractProductRows.Execute
+        ' A kiválaszott sort egy sorral feljebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductRows).ContractProductHeader
+        Dim _ContractProductRowsSelected As ContractProductRows = Nothing
+        Dim _ContractProductRowsMinus As ContractProductRows = Nothing
+        Dim _ContractProductRows As ContractProductRows = Nothing
+
+        Try
+            _ContractProductRowsSelected = TryCast(View.SelectedObjects(0), ContractProductRows) ' Kiveszi a kijelölt sorok közül az elsõt
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _ContractProductRowsSelected.RowIndex > 0 Then
+            For Each _ContractProductRows In _ContractProductHeader.ContractProductRows
+                If _ContractProductRows.RowIndex = _ContractProductRowsSelected.RowIndex - 1 Then
+                    _ContractProductRowsMinus = _ContractProductRows
+                    Exit For
+                End If
+            Next
+
+            If _ContractProductRowsMinus IsNot Nothing Then
+                _ContractProductRowsSelected.RowIndex -= 1
+                _ContractProductRowsMinus.RowIndex += 1
+            End If
+
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aNewContractProductHeader_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aNewContractProductHeader.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CS As New CollectionSource(_onew, GetType(ContractTemplate))
+
+        _CS.BeginUpdateCriteria()
+        _CS.Criteria.Clear()
+        _CS.Criteria("First") = CriteriaOperator.Parse("IsProducts=True")
+        _CS.EndUpdateCriteria()
+
+        e.View = Application.CreateListView("ContractTemplate_ListView_PopUp", _CS, False)
+
+    End Sub
+    Private Sub aNewContractProductHeader_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aNewContractProductHeader.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        If e.PopupWindow.View.SelectedObjects.Count > 0 Then
+            Dim _ContractTemplate As ContractTemplate = TryCast(e.PopupWindow.View.SelectedObjects(0), ContractTemplate)
+
+            Dim _DetailViewName As String = ""
+
+            If _ContractTemplate IsNot Nothing Or e.PopupWindow.View.SelectedObjects.Count = 1 Then
+                Dim _ContractProductHeader As ContractProductHeader = _onew.CreateObject(Of ContractProductHeader)()
+                _ContractProductHeader.CustomersFrom = _onew.FindObject(Of CustomersFrom)(CriteriaOperator.Parse("IsDefault=?", True))
+                _ContractProductHeader.ContractTemplate = _onew.GetObjectByKey(Of ContractTemplate)(_ContractTemplate.Oid)
+
+                If _ContractTemplate.PartnerType = ePartnerType.eReceivables Then
+                    _DetailViewName = "ContractProductHeader_DetailView_Receivables"
+                End If
+                If _ContractTemplate.PartnerType = ePartnerType.ePayabels Then
+                    _DetailViewName = "ContractProductHeader_DetailView_Payables"
+                End If
+                If _DetailViewName <> "" Then
+                    e.ShowViewParameters.CreatedView = Application.CreateDetailView(_onew, _DetailViewName, True, _ContractProductHeader)
+                    e.ShowViewParameters.TargetWindow = TargetWindow.NewWindow
+                Else
+                    _onew.Rollback()
+                    ' --------------------------------- TESZT MIATT ------------------------------->>
+                    Throw New Exception("*Váratlan hiba történt! A mûvelet megszakadt! " & vbNewLine & _
+                                        "Valószínüleg hibásan került be a rendszerbe egy vagy több szerzõdési sablon!" & vbNewLine & _
+                                        "Kérem ellenõrizze a szerzõdési sablonokat!")
+                    '    --------------------------------- TESZT MIATT -------------------------------<<
+                End If
+            Else
+                _onew.Rollback()
+                '   --------------------------------- TESZT MIATT ------------------------------->>
+                Throw New Exception("*Egynél több sor van kiválasztva!")
+                '    --------------------------------- TESZT MIATT -------------------------------<<
+            End If
+        Else
+            _onew.Rollback()
+            '   --------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs sor kiválasztva!")
+            '    --------------------------------- TESZT MIATT -------------------------------<<
+        End If
+    End Sub
+    Private Sub aFinalizeContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalizeContractProduct.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+        If _ContractProductHeader IsNot Nothing Then
+            Dim _CustomersNGCollection As CustomersNGCollection = Nothing
+
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
+            If _ContractProductHeader.ContractTemplate.PartnerType = ePartnerType.eReceivables Then
+                _CustomersNGCollection = _ocur.FindObject(Of CustomersNGCollection)(CriteriaOperator.Parse("Customers=? AND ContractTemplate=?", _
+                                                        _ContractProductHeader.Customers, _ContractProductHeader.ContractTemplate))
+            End If
+
+            _ContractProductHeader.State = State.Ready
+
+            If _ContractProductHeader.DocumentNumber = "" Then
+                If _CustomersNGCollection IsNot Nothing Then
+                    _ContractProductHeader.DocumentNumber = _CustomersNGCollection.NumberGenerator.GetNewNumber(_CustomersNGCollection.NumberGenerator)
+                Else
+                    _ContractProductHeader.DocumentNumber = _ContractProductHeader.ContractTemplate.NumberGenerator.GetNewNumber(_ContractProductHeader.ContractTemplate.NumberGenerator)
+                End If
+            End If
+
+            _ocur.CommitChanges()
+            Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
+        End If
+    End Sub
+    Private Sub aSendBackToEditContractProduct_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aSendBackToEditContractProduct.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+        If _ContractProductHeader IsNot Nothing Then
+            _ContractProductHeader.State = State.Preparation
+            _ocur.CommitChanges()
+        End If
+    End Sub
+    Private Sub aTotableD_ConProd_Receivables_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aTotableD_ConProd_Receivables.CustomizePopupWindowParams
+        Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
+        If _ContractProductHeader_ListEditor.ListView.SelectedObjects.Count > 0 Then
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _CS As New CollectionSource(_onew, GetType(ContractProductRowsInOut))
+            _CS.BeginUpdateCriteria()
+            _CS.Criteria.Clear()
+            _CS.Criteria("First") = CriteriaOperator.Parse("1=2") 'CriteriaOperator.Parse("ContractProductRowsOut=?", _ContractProductRows)
+            _CS.EndUpdateCriteria()
+
+            Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0)
+            Dim _ContractProductRowsInOut_List As XPCollection = _onew.CreateCollection(GetType(ContractProductRowsInOut), CriteriaOperator.Parse("ContractProductRowsOut=?", _onew.GetObject(_ContractProductRows)))
+
+            For Each _ContractProductRowsInOut As ContractProductRowsInOut In _ContractProductRowsInOut_List
+
+                _CS.Add(_ContractProductRowsInOut)
+            Next
+
+            e.View = Application.CreateListView("ContractProductRowsInOut_ListView", _CS, False)
+        Else
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs kiválasztva egy sor sem!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+    End Sub
+    Private Sub aTotableD_ConProd_Receivables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aTotableD_ConProd_Receivables.Execute
+        If e.PopupWindow.View.SelectedObjects.Count > 0 Then
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+            Dim _ContractProductHeader_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("ContractProductRows")
+            Dim _ContractProductRows As ContractProductRows = _ContractProductHeader_ListEditor.ListView.SelectedObjects(0)
+
+            For Each _ContractProductRowsInOut In e.PopupWindow.View.SelectedObjects
+                Dim _ContractProductRowsEvent As ContractProductRowsEvent = _ocur.CreateObject(Of ContractProductRowsEvent)()
+                Dim _ContractProductRowsInOut_Ocur As ContractProductRowsInOut = _ocur.GetObjectByKey(Of ContractProductRowsInOut)(TryCast(_ContractProductRowsInOut, ContractProductRowsInOut).Oid)
+                _ContractProductRowsInOut_Ocur.ContractProductRowsIn.QTT_Out -= _ContractProductRowsInOut_Ocur.QTT
+                _ContractProductRows.QTT -= _ContractProductRowsInOut_Ocur.QTT
+
+                _ContractProductRowsEvent.ContractProductRowsIn = _ContractProductRowsInOut_Ocur.ContractProductRowsIn
+                _ContractProductRowsEvent.ContractProductRowsOut = _ContractProductRows
+                _ContractProductRowsEvent.QTT_In = 0
+                _ContractProductRowsEvent.QTT_Out = _ContractProductRows.QTT
+
+                _ContractProductRowsInOut_Ocur.RemoveRows()
+                If _ContractProductRows.QTT = 0 Then
+                    _ContractProductRows.RemoveRows()
+                End If
+            Next
+
+            _ocur.CommitChanges()
+        Else
+            '--------------------------------- TESZT MIATT ------------------------------->>
+            Throw New Exception("*Nincs kiválasztva egy sor sem! A törlés nem hajtahtó végre!")
+            '--------------------------------- TESZT MIATT -------------------------------<<
+        End If
+        View.Refresh()
+    End Sub
+
+    Private Sub aPrintContractProduct_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintContractProduct.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ContractProductHeader As ContractProductHeader = TryCast(View.SelectedObjects(0), ContractProductHeader)
+        Try
+            If _ContractProductHeader IsNot Nothing Then
+                Dim _ReportData As DevExpress.Persistent.BaseImpl.ReportData = _ContractProductHeader.ContractTemplate.ReportData
+
+                If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+
+                Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("ContractProductHeader.Oid=?", _ContractProductHeader.Oid), True)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNote.cd

@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="utf-8"?>
+<ClassDiagram MajorVersion="1" MinorVersion="1">
+  <Class Name="SISBusiness.Module.DeliveryNoteInHeader">
+    <Position X="0.5" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_CurrencyName" Hidden="true" />
+      <Field Name="_CurrencyRate" Hidden="true" />
+      <Field Name="_Customers" Hidden="true" />
+      <Field Name="_CustomersFrom" Hidden="true" />
+      <Field Name="_DateCreated" Hidden="true" />
+      <Field Name="_DateExecution" Hidden="true" />
+      <Field Name="_DatePayment" Hidden="true" />
+      <Field Name="_DeliveryNoteInType" Hidden="true" />
+      <Field Name="_DocumentNumber" Hidden="true" />
+      <Field Name="_DocumentNumberIn" Hidden="true" />
+      <Field Name="_IsEditable" Hidden="true" />
+      <Field Name="_IsStorno" Hidden="true" />
+      <Field Name="_Note" Hidden="true" />
+      <Field Name="_ObjectCreated" Hidden="true" />
+      <Field Name="_PaymentOption" Hidden="true" />
+      <Field Name="_QualityOption" Hidden="true" />
+      <Field Name="_row_DiscountPercent" Hidden="true" />
+      <Field Name="_row_ListPriceDEV" Hidden="true" />
+      <Field Name="_row_ListPriceHUF" Hidden="true" />
+      <Field Name="_row_NoteRows" Hidden="true" />
+      <Field Name="_row_Products" Hidden="true" />
+      <Field Name="_row_QTT" Hidden="true" />
+      <Field Name="_ShipmentOption" Hidden="true" />
+      <Field Name="_UserCreated" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>mAFQAAhGCEAEAJIIJCKYIAkABAQIQVCADQgEkCECiTA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInHeader.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteInRows">
+    <Position X="3" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_DeliveryNoteInHeader" Hidden="true" />
+      <Field Name="_DiscountPriceDEV" Hidden="true" />
+      <Field Name="_DiscountPriceHUF" Hidden="true" />
+      <Field Name="_Installation" Hidden="true" />
+      <Field Name="_ListPriceDEV" Hidden="true" />
+      <Field Name="_ListPriceHUF" Hidden="true" />
+      <Field Name="_NoteRows" Hidden="true" />
+      <Field Name="_OrderOutRows" Hidden="true" />
+      <Field Name="_Products" Hidden="true" />
+      <Field Name="_QTT" Hidden="true" />
+      <Field Name="_QTT_Process" Hidden="true" />
+      <Field Name="_RowIndex" Hidden="true" />
+      <Field Name="_Units" Hidden="true" />
+      <Field Name="_VAT" Hidden="true" />
+      <Method Name="AddRows" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AAggAgEAMQAAYAAAwAAjJABAGgAAAABAkAAGIAAAgAU=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInRows.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteInType">
+    <Position X="3" Y="5.5" Width="2.25" />
+    <Members>
+      <Field Name="_Description" Hidden="true" />
+      <Field Name="_ImportMode" Hidden="true" />
+      <Field Name="_IsPrice" Hidden="true" />
+      <Field Name="_NumberGenerator" Hidden="true" />
+      <Field Name="_ShortName" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AQAAAAAgAAAgAEAAAAAAAAAAAQAAEIIEAAAAAAACAAA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteIn\DeliveryNoteInType.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteOutHeader">
+    <Position X="7" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_CurrencyName" Hidden="true" />
+      <Field Name="_Customers" Hidden="true" />
+      <Field Name="_CustomersFrom" Hidden="true" />
+      <Field Name="_DateCreated" Hidden="true" />
+      <Field Name="_DateExecution" Hidden="true" />
+      <Field Name="_DeliveryNoteOutType" Hidden="true" />
+      <Field Name="_DocumentNumber" Hidden="true" />
+      <Field Name="_IsEditable" Hidden="true" />
+      <Field Name="_IsStorno" Hidden="true" />
+      <Field Name="_Note" Hidden="true" />
+      <Field Name="_ObjectCreated" Hidden="true" />
+      <Field Name="_QualityOption" Hidden="true" />
+      <Field Name="_row_NoteRows" Hidden="true" />
+      <Field Name="_row_QTT" Hidden="true" />
+      <Field Name="_row_StorageOutRowsInRows" Hidden="true" />
+      <Field Name="_ShipmentOption" Hidden="true" />
+      <Field Name="_TransportAddress" Hidden="true" />
+      <Field Name="_UserCreated" Hidden="true" />
+      <Method Name="AfterConstruction" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+      <Method Name="OnSaving" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>GQFAAA1GAEAEAIIIICCYIIAABCQIAACBCAAMECEAgDA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutHeader.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteOutRows">
+    <Position X="9.5" Y="0.5" Width="2.25" />
+    <Members>
+      <Field Name="_DeliveryNoteOutHeader" Hidden="true" />
+      <Field Name="_Note" Hidden="true" />
+      <Field Name="_QTT" Hidden="true" />
+      <Field Name="_RowIndex" Hidden="true" />
+      <Field Name="_StorageOutRowsInRows" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AAAAAAAAAQAAQAAAAAAQAAAAABAAAEAAgAgAAAEggAA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutRows.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Class Name="SISBusiness.Module.DeliveryNoteOutType">
+    <Position X="9.5" Y="2.75" Width="2.25" />
+    <Members>
+      <Field Name="_Description" Hidden="true" />
+      <Field Name="_ExportMode" Hidden="true" />
+      <Field Name="_IsPrice" Hidden="true" />
+      <Field Name="_NumberGenerator" Hidden="true" />
+      <Field Name="_ShortName" Hidden="true" />
+      <Method Name="New" Hidden="true" />
+    </Members>
+    <TypeIdentifier>
+      <HashCode>AQAAAAAgAAAgAEAACAAAAgAAAQAAAIAEAAAAAAACAAA=</HashCode>
+      <FileName>BusinessObjects\BusinessTransactions\DeliveryNote\DeliveryNoteOut\DeliveryNoteOutType.vb</FileName>
+    </TypeIdentifier>
+  </Class>
+  <Font Name="Segoe UI" Size="9" />
+</ClassDiagram>

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInHeader.vb

@@ -0,0 +1,531 @@
+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 eWeightMode
+    eTotalWeightperQuantity = 0 'Össz súly
+    eUnitWeightperQuantity = 1 'Egység súly
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessTransactions")> _
+<DefaultProperty("DisplayName")> _
+<Appearance("DeliveryNoteInHeader - Disable IsStorno and IsEditable_DeliveryNoteIn", AppearanceItemType.ViewItem, "1=1", TargetItems:="IsStorno;IsEditable", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable all properties on DetailNoteInHeader when IsEditable = False",
+    AppearanceItemType.ViewItem,
+    "IsEditable = False",
+    TargetItems:="DeliveryNoteInType;DocumentNumber;CustomersFrom;DateCreated;CurrencyName;" +
+                 "CurrencyRate;IsEditable;IsStorno;ObjectCreated;UserCreated;IsControlled;IsStoraged", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Hide payment properties if DeliveryNoteInType.IsPrice = False", AppearanceItemType.ViewItem, "DeliveryNoteInType.IsPrice=False", TargetItems:="PaymentOption;DatePayment;row_ListPriceDEV;row_ListPriceHUF;CurrencyName;CurrencyRate;row_DiscountPercent", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide DeliveryNoteInHeader-CurrencyRate", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF'", TargetItems:="CurrencyRate", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide _row_ListPriceDEV if CurrencyName is HUF", AppearanceItemType.ViewItem, "CurrencyName.ShortName='HUF' Or IsNull(DeliveryNoteInType)=True", TargetItems:="row_ListPriceDEV", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide _row_ListPriceHUF if CurrencyName is not HUF", AppearanceItemType.ViewItem, "(CurrencyName.ShortName<>'HUF' And IsNull(CurrencyName)=False) Or IsNull(DeliveryNoteInType)=True", TargetItems:="row_ListPriceHUF", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable aToTable_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotable_DeliveryNoteIn", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable aToTableD_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotableD_DeliveryNoteIn", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable aFinalize_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aFinalize_DeliveryNoteIn;aFinalize_And_Storage_DeliveryNoteIn", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Enable aFinalize_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = True", TargetItems:="aFinalize_DeliveryNoteIn", Enabled:=True)> _
+<Appearance("DeliveryNoteInHeader - Disable aGenerateStorageIn_From_DeliveryNoteInRows", AppearanceItemType.Action, "IsStorno = True", TargetItems:="aGenerateStorageIn_From_DeliveryNoteInRows", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable aStorno_DeliveryNoteIn", AppearanceItemType.Action, "IsStorno = True Or IsEditable = True", TargetItems:="aStorno_DeliveryNoteIn", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Enable aStorno_DeliveryNoteIn", AppearanceItemType.Action, "IsStorno = False And IsEditable = False", TargetItems:="aStorno_DeliveryNoteIn", Enabled:=True)> _
+<Appearance("DeliveryNoteInHeader - Disable OpeneObject_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="OpenObject", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable Delete_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="Delete", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable Save_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="Save", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable SaveAndNew_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="SaveAndNew", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable SaveAndClose_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="SaveAndClose", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable ShowAllContexts_DeliveryNoteIn", AppearanceItemType.Action, "IsEditable = False", TargetItems:="ShowAllContexts", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-CustomersFrom", AppearanceItemType.ViewItem, "IsNull(CustomersFrom)=False", TargetItems:="CustomersFrom", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-DeliveryNoteInType", AppearanceItemType.ViewItem, "IsNull(DeliveryNoteInType)=False", TargetItems:="DeliveryNoteInType", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-CurrencyName", AppearanceItemType.ViewItem, "IsNull(DocumentNumber)=False", TargetItems:="CurrencyName", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DeliveryNoteInHeader-Customers", AppearanceItemType.ViewItem, "IsNull(Customers)=False", TargetItems:="Customers", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Set line to red if IsStorno=True", AppearanceItemType:="ViewItem", TargetItems:="*", FontColor:="Red", Criteria:="IsStorno=True", Context:="ListView")> _
+<Appearance("DeliveryNoteInHeader - Disable ObjectCreated DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Disable UserCreated DeliveryNoteInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteInHeader - Hide Tab_DeliveryNoteInRows", AppearanceItemType.LayoutItem, "IsNull(DeliveryNoteInType) Or IsNull(DocumentNumber) Or IsNull(Customers) Or IsNull(CustomersFrom)", TargetItems:="Tab_DeliveryNoteInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide Tab_StorageInRows", AppearanceItemType.LayoutItem, "IsNull(DeliveryNoteInType) Or IsNull(DocumentNumber) Or IsNull(Customers) Or IsNull(CustomersFrom)", TargetItems:="Tab_StorageInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide Tab_StorageOutRowsInRows", AppearanceItemType.LayoutItem, "IsNull(DeliveryNoteInType) Or IsNull(DocumentNumber) Or IsNull(Customers) Or IsNull(CustomersFrom)", TargetItems:="Tab_StorageOutRowsInRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Hide all row_ properties, when IsEditable = False",
+             AppearanceItemType.ViewItem,
+             "IsEditable = False",
+             TargetItems:="row_PacketNumber;row_CountryFrom;row_Weight;row_OrderOutRows;row_Products;row_QTT;" +
+                          "row_ListPriceHUF;row_ListPriceDEV;row_DiscountPercent;row_NoteRows;row_WeightMode;", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteInHeader - Disable DatePayment", AppearanceItemType.ViewItem, "1=1", TargetItems:="DatePayment", Enabled:=False)> _
+Public Class DeliveryNoteInHeader 'Bejövő szállítólevél fejléc
+    Inherits BaseObject
+    Private _DeliveryNoteInType As DeliveryNoteInType 'Bejövő szállítólevél tipusa
+    Private _DocumentNumber As String 'Bizonylat száma
+    Private _DocumentNumberIn As String 'Belső sorszám (véglegesítéskor kapja)
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _Customers As Customers 'Beszállító
+    Private _DateCreated As Date 'Kiáll. dátuma
+    Private _DateExecution As Date 'Teljesítés dátuma
+    Private _DatePayment As Date 'Fizetési határidő
+    Private _PaymentOption As PaymentOption 'Fizetési opció
+    Private _ShipmentOption As ShipmentOption 'Szállítási opció
+    Private _QualityOption As QualityOption 'Minőségi opció
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _CurrencyRate As Double 'Deviza árfolyam
+    Private _Note As String 'Fejléc megjegyzés
+    Private _IsEditable As Boolean = True 'Szerkeszthető
+    Private _IsStorno As Boolean = False 'Végleges
+    Private _ObjectCreated As Date 'Objektum keletkezésének dátuma
+    Private _UserCreated As User
+    Private _IsControlled As Boolean 'Akkor lesz True, ha a szállítólevélen lévő összes sor össze van pontozva számlával
+    Private _IsStoraged As Boolean 'Akkor lesz True, ha minden tétele be lett vételezve
+    Private _DocumentFile As FileData 'A beszkennelt szállítólevél
+    '-- Non persistent
+    Private _row_OrderOutRows As OrderOutRows 'Kimenő megrendelési sorok
+    Private _row_Products As Products 'Termék, ami a szállítólevelen van
+    Private _row_QTT As Double 'Termék szállított mennyisége
+    Private _row_ListPriceHUF As Double 'Termék listaára HUF
+    Private _row_ListPriceDEV As Double 'Termék listaára DEV
+    Private _row_DiscountPercent As Double 'Termék ár kedvezmény %-ban
+    Private _row_NoteRows As String 'Sor megjegyzés
+    Private _row_PacketNumber As String 'Kötegszám, Fémzárszám
+    Private _row_Weight As Double
+    Private _row_WeightMode As eWeightMode
+    Private _row_CountryFrom As Country 'Származási ország !
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+        IsEditable = True
+        IsStorno = False
+        IsControlled = False
+        IsStoraged = False
+        CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If _DocumentNumber = "" Then
+            _DocumentNumber = DeliveryNoteInType.NumberGenerator.GetNewNumber(DeliveryNoteInType.NumberGenerator)
+        End If
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+
+    <ImmediatePostData()> _
+    <RuleRequiredField("DeliveryNoteInHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    <RuleRequiredField("DeliveryNoteInHeaderDocumentNumberIn-1", "aFinalize_DeliveryNoteIn_Contexts")> _
+    <RuleRequiredField("DeliveryNoteInHeaderDocumentNumberIn-2", "aFinalize_And_Storage_DeliveryNoteIn_Contexts")> _
+    Property DocumentNumberIn() As String
+        Get
+            Return _DocumentNumberIn
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumberIn", _DocumentNumberIn, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInHeader.Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInHeader.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                If Me.PaymentOption IsNot Nothing Then
+                    Me.DatePayment = Nothing
+                    If PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then
+                    Else
+                        Me.DatePayment = value.AddDays(PaymentOption.PayDay)
+                    End If
+                End If
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property DatePayment() As Date
+        Get
+            Return _DatePayment
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DatePayment", _DatePayment, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
+                If Me.DateExecution <> Nothing And value IsNot Nothing Then
+                    Me.DatePayment = Nothing
+                    Me.DatePayment = DateExecution.AddDays(value.PayDay)
+                End If
+            End If
+        End Set
+    End Property
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("DeliveryNoteInHeader.CurrencyName", DefaultContexts.Save, TargetCriteria:="DeliveryNoteInType.IsPrice=True")> _
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <RuleRange("DeliveryNoteInHeader.CurrencyRate", DefaultContexts.Save, 0.001, 999999999, TargetCriteria:="CurrencyName.ShortName<>'HUF' And IsNull(CurrencyName)=False And DeliveryNoteInType.IsPrice=True")> _
+    Property CurrencyRate As Double
+        Get
+            Return _CurrencyRate
+        End Get
+        Set(value As Double)
+            SetPropertyValue("CurrencyRate", _CurrencyRate, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    <NonCloneable()>
+    Property IsEditable() As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    <NonCloneable()>
+    Property IsStorno() As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    <NonCloneable()>
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable()>
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property IsControlled As Boolean
+        Get
+            Return _IsControlled
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsControlled", _IsControlled, value)
+        End Set
+    End Property
+    Property IsStoraged As Boolean
+        Get
+            Return _IsStoraged
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsStoraged", _IsStoraged, value)
+        End Set
+    End Property
+    <Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
+    Property DocumentFile() As FileData
+        Get
+            Return _DocumentFile
+        End Get
+        Set(ByVal value As FileData)
+            SetPropertyValue("DocumentFile", _DocumentFile, value)
+        End Set
+    End Property
+
+    '-- NON persistent propertyk-------------------------------
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    <DataSourceProperty("OrderOutRows")> _
+    <ImmediatePostData()> _
+    Property row_OrderOutRows As OrderOutRows
+        Get
+            Return _row_OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("row_OrderOutRows", _row_OrderOutRows, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If value IsNot Nothing Then
+                    Me.row_Products = value.Products
+                    Me.row_QTT = value.QTT - value.QTT_DeliveryNoteIn
+                    Me.row_ListPriceHUF = value.ListPriceHUF
+                    Me.row_ListPriceDEV = value.ListPriceDEV
+                    Me.row_DiscountPercent = value.DiscountPercent
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRequiredField("DeliveryNoteInHeader.row_Products", "aToTableDeliveryNoteIn_Context")> _
+    <VisibleInListView(False)> _
+    <ImmediatePostData()> _
+    Property row_Products As Products
+        Get
+            Return _row_Products
+        End Get
+        Set(ByVal value As Products)
+            SetPropertyValue("row_Products", _row_Products, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                If row_Products IsNot Nothing Then
+                    Me.row_ListPriceHUF = Me.row_Products.ListPriceInHUF
+                    Me.row_ListPriceDEV = Me.row_Products.ListPriceInDEV
+                End If
+            End If
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("DeliveryNoteInHeader.row_QTT", "aToTableDeliveryNoteIn_Context", 0.001, 999999999)> _
+    <VisibleInListView(False)> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()>
+    <RuleRange("DeliveryNoteInHeader.row_ListPriceHUF", "aToTableDeliveryNoteIn_Context", 0.001, 999999999, TargetCriteria:="CurrencyName.ShortName='HUF' And DeliveryNoteInType.IsPrice=True")> _
+    <VisibleInListView(False)> _
+    Property row_ListPriceHUF As Double
+        Get
+            Return _row_ListPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_ListPriceHUF", _row_ListPriceHUF, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <RuleRange("DeliveryNoteInHeader.row_ListPriceDEV", "aToTableDeliveryNoteIn_Context", 0.001, 999999999, TargetCriteria:="CurrencyName.ShortName<>'HUF' And IsNull(CurrencyName)=False And DeliveryNoteInType.IsPrice=True")> _
+    <VisibleInListView(False)> _
+    Property row_ListPriceDEV As Double
+        Get
+            Return _row_ListPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("row_ListPriceDEV", _row_ListPriceDEV, value)
+        End Set
+    End Property
+    <RuleRange("DeliveryNoteInHeader.row_DiscountPercent", "aToTableDeliveryNoteIn_Context", 0, 99)> _
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_DiscountPercent As Double
+        Get
+            Return _row_DiscountPercent
+        End Get
+        Set(ByVal value As Double)
+            'If value < 0 Or value > 99 Then
+            '    Throw New Exception("*A kedvemény mértékének 1 és 99 között kell lennie.")
+            'End If
+            SetPropertyValue("row_DiscountPercent", _row_DiscountPercent, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_NoteRows As String
+        Get
+            Return _row_NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_NoteRows", _row_NoteRows, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_PacketNumber As String
+        Get
+            Return _row_PacketNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_PacketNumber", _row_PacketNumber, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    <VisibleInListView(False)> _
+    Property row_Weight As Double
+        Get
+            Return _row_Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_Weight", _row_Weight, value)
+        End Set
+    End Property
+    <NonPersistent>
+    Property row_WeightMode As eWeightMode
+        Get
+            Return _row_WeightMode
+        End Get
+        Set(value As eWeightMode)
+            SetPropertyValue("row_WeightMode", _row_WeightMode, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+   <VisibleInListView(False)> _
+    Property row_CountryFrom As Country
+        Get
+            Return _row_CountryFrom
+        End Get
+        Set(value As Country)
+            SetPropertyValue("row_CountryFrom", _row_CountryFrom, value)
+        End Set
+    End Property
+
+
+    <VisibleInListView(False)> _
+    <Browsable(False)> _
+    Private ReadOnly Property OrderOutRows As XPCollection(Of OrderOutRows)
+        Get
+            'Dim _OrderOutRows As OrderOutRows
+            Dim _OrderOutRows_Collection As XPCollection(Of OrderOutRows)
+            Dim _Criteria As String
+
+
+            _Criteria = "OrderOutHeader.IsEditable = False and OrderOutHeader.IsStorno = False and OrderOutHeader.CustomersFrom.Oid=? "
+            _Criteria += " and OrderOutHeader.CustomersOrder.Oid=? and QTT_DeliveryNoteIn<QTT"
+
+            _OrderOutRows_Collection = New XPCollection(Of OrderOutRows)(Session, CriteriaOperator.Parse(_Criteria, Me.CustomersFrom.Oid, Me.Customers.Oid))
+            Return _OrderOutRows_Collection
+        End Get
+    End Property
+    <Association("DeliveryNoteInHeader-DeliveryNoteInRows", GetType(DeliveryNoteInRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInrows As XPCollection(Of DeliveryNoteInRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInRows)("DeliveryNoteInrows")
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+            Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageInRows.DeliveryNoteInRows.DeliveryNoteInHeader=?", Me))
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property StorageInRows As XPCollection(Of StorageInRows)
+        Get
+            Return New XPCollection(Of StorageInRows)(Session, CriteriaOperator.Parse("DeliveryNoteInRows.DeliveryNoteInHeader=?", Me))
+        End Get
+    End Property
+
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property DeliveryNoteInRRFC As XPCollection(Of DeliveryNoteInRRFC)
+        Get
+            Return New XPCollection(Of DeliveryNoteInRRFC)(Session, CriteriaOperator.Parse("DeliveryNoteInRows.DeliveryNoteInHeader=?", Me))
+        End Get
+    End Property
+
+    <VisibleInDetailView(False)> _
+        <VisibleInListView(False)> _
+        <VisibleInLookupListView(False)> _
+    ReadOnly Property DisplayName As String
+        Get
+            Return Me.DocumentNumber & ", " & Me.DocumentNumberIn & ", " & Me.DateExecution
+        End Get
+    End Property
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property OrderInTo As XPCollection(Of OrderInTo)
+        Get
+            Dim _OrderInTo_Collection As New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("1=2"))
+            Dim _OrderInTo As OrderInTo
+            Dim _DeliveryNoteInRows As DeliveryNoteInRows
+
+            For Each _DeliveryNoteInRows In Me.DeliveryNoteInrows
+                If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then
+                    Dim _OrderInTo_Collection_1 As New XPCollection(Of OrderInTo)(Session, CriteriaOperator.Parse("OrderOutRows=?", _DeliveryNoteInRows.OrderOutRows))
+                    For Each _OrderInTo In _OrderInTo_Collection_1
+                        _OrderInTo_Collection.Add(_OrderInTo)
+                    Next
+                End If
+            Next
+            Return _OrderInTo_Collection
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRRFC.vb

@@ -0,0 +1,86 @@
+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 DeliveryNoteInRRFC 'Szállítói számla igazolási sora és bejövõ szállítólevél sora kapcsolat
+    Inherits BaseObject
+
+    Private _DeliveryNoteInRows As DeliveryNoteInRows 'Szállítólevél sor
+    Private _RegistryRowsFinancialControlling As RegistryRowsFinancialControlling 'Számla igazolási sor
+    Private _QTT_Controlled As Double 'Leigazolt mennyiség adott sorra vonatkozólag
+    Private _BonusHUF As Double ' Bónusz erre a sorra vonatkozólag ! Ez csökkenti, vagy növeli a beszerzési értéket !
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+    Protected Overrides Sub OnSaved()
+        MyBase.OnSaved()
+        Dim _DeliveryNoteInRRFC_Collection As New XPCollection(Of DeliveryNoteInRRFC)(Session, CriteriaOperator.Parse("DeliveryNoteInRows=?", DeliveryNoteInRows))
+        Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+        Dim _QTT_Controlled As Double = 0
+        For Each _DeliveryNoteInRRFC In _DeliveryNoteInRRFC_Collection
+            _QTT_Controlled += _DeliveryNoteInRRFC._QTT_Controlled
+        Next
+        DeliveryNoteInRows.QTT_Controlled = _QTT_Controlled
+        DeliveryNoteInRows.Save()
+        DeliveryNoteInRows.DeliveryNoteInHeader.IsControlled = True
+        For Each _DeliveryNoteInRows As DeliveryNoteInRows In DeliveryNoteInRows.DeliveryNoteInHeader.DeliveryNoteInrows
+            If _DeliveryNoteInRows.QTT <> _DeliveryNoteInRows.QTT_Controlled Then
+                DeliveryNoteInRows.DeliveryNoteInHeader.IsControlled = False
+                Exit For
+            End If
+        Next
+        DeliveryNoteInRows.DeliveryNoteInHeader.Save()
+        Session.CommitTransaction()
+    End Sub
+   
+    Property DeliveryNoteInRows As DeliveryNoteInRows
+        Get
+            Return _DeliveryNoteInRows
+        End Get
+        Set(value As DeliveryNoteInRows)
+            SetPropertyValue("DeliveryNoteInRows", _DeliveryNoteInRows, value)
+        End Set
+    End Property
+    Property RegistryRowsFinancialControlling As RegistryRowsFinancialControlling
+        Get
+            Return _RegistryRowsFinancialControlling
+        End Get
+        Set(value As RegistryRowsFinancialControlling)
+            SetPropertyValue("RegistryRowsFinancialControlling", _RegistryRowsFinancialControlling, value)
+        End Set
+    End Property
+    Property QTT_Controlled As Double
+        Get
+            Return _QTT_Controlled
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Controlled", _QTT_Controlled, value)
+        End Set
+    End Property
+    Property BonusHUF As Double
+        Get
+            Return _BonusHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("BonusHUF", _BonusHUF, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInRows.vb

@@ -0,0 +1,355 @@
+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 DeliveryNoteInRows 'Bejövő szállítólevél sorok
+    Inherits BaseObject
+    Private _DeliveryNoteInHeader As DeliveryNoteInHeader
+    Private _RowIndex As Long = 0 'Sor index
+    Private _Products As Products 'Termék vagy szolgáltatás
+    Private _Installation As Installation 'Gyártmány
+    Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !)
+    Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !)
+    Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF
+    Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV
+    Private _QTT As Double = 0 'Mennyiség
+    Private _QTT_Process As Double 'Mennyiségi szándék, kézzel beírható 
+    Private _QTT_Controlled As Double 'Erre a sorra vonatkozólag ? lett leigazolva szállítói számlán
+    Private _QTT_Returned As Double ' Visszárúzott mennyiség
+    Private _Units As Units ' Mennyiségi egység
+    Private _VAT As VAT 'ÁFA
+    Private _OrderOutRows As OrderOutRows 'Kimenő rendelési sor
+    Private _OfferInRows As OfferInRows
+    Private _NoteRows As String 'Sor megjegyzés
+    Private _PacketNumber As String 'Kötegszám
+    Private _Weight As Double 'Súly (összes mennyiség súlya)
+    Private _WeightMode As eWeightMode 'Súly értelmezése, egységsúly vagy öszsúly
+    Private _Area As Double 'Négyzetméter
+    Private _ITransactionNumber As String 'INRASTAT tranzakciós azonosító
+    Private _ShipingCode As String 'INTRASTAT szállítási azonosító
+
+    Private _row_ListPrice As Double
+    Private _row_DiscountPercent As Double
+    Private _row_SumPrice As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        QTT = 0
+        QTT_Controlled = 0
+        QTT_Process = 0
+        QTT_Returned = 0
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+
+    End Sub
+    <Association("DeliveryNoteInHeader-DeliveryNoteInRows", GetType(DeliveryNoteInHeader))> _
+    Property DeliveryNoteInHeader As DeliveryNoteInHeader
+        Get
+            Return _DeliveryNoteInHeader
+        End Get
+        Set(ByVal value As DeliveryNoteInHeader)
+            SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property Products As Products
+        Get
+            Return _Products
+        End Get
+        Set(value As Products)
+            SetPropertyValue("Products", _Products, value)
+        End Set
+    End Property
+    Property Installation As Installation
+        Get
+            Return _Installation
+        End Get
+        Set(value As Installation)
+            SetPropertyValue("Installation", _Installation, value)
+        End Set
+    End Property
+    ReadOnly Property SumPriceHUF() As Double
+        Get
+            Return Math.Round(_QTT * (_ListPriceHUF - _DiscountPriceHUF), 0, MidpointRounding.AwayFromZero)
+        End Get
+    End Property
+    ReadOnly Property SumPriceDEV() As Double
+        Get
+            Return Math.Round(_QTT * (_ListPriceDEV - _DiscountPriceDEV), 2, MidpointRounding.AwayFromZero)
+        End Get
+    End Property
+    ReadOnly Property SumPriceVATHUF As Double
+        Get
+            If VAT Is Nothing Then
+                Return 0
+            Else
+                Return Math.Round(SumPriceHUF * VAT.KeyValue, 0, MidpointRounding.AwayFromZero)
+            End If
+
+        End Get
+    End Property
+    ReadOnly Property SumPriceVATDEV As Double
+        Get
+            If VAT Is Nothing Then
+                Return 0
+            Else
+                Return Math.Round(SumPriceDEV * VAT.KeyValue, 2, MidpointRounding.AwayFromZero)
+            End If
+
+        End Get
+    End Property
+    ReadOnly Property SumPriceBruttoHUF As Double
+        Get
+            Return SumPriceHUF + SumPriceVATHUF
+        End Get
+    End Property
+    ReadOnly Property SumPriceBruttoDEV As Double
+        Get
+            Return SumPriceDEV + SumPriceVATDEV
+        End Get
+    End Property
+    Property ListPriceHUF() As Double
+        Get
+            Return _ListPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceHUF", _ListPriceHUF, value)
+        End Set
+    End Property
+    Property ListPriceDEV() As Double
+        Get
+            Return _ListPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("ListPriceDEV", _ListPriceDEV, value)
+        End Set
+    End Property
+    Property DiscountPriceHUF() As Double
+        Get
+            Return _DiscountPriceHUF
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value)
+        End Set
+    End Property
+    Property DiscountPriceDEV() As Double
+        Get
+            Return _DiscountPriceDEV
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for DeliveryNoteInRows.QTT", DefaultContexts.Save)> _
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                controlled_SumPrice = SetRowSumPrice(value, controlled_ListPrice, controlled_DiscountPercent)
+            End If
+        End Set
+    End Property
+    Property QTT_Controlled As Double
+        Get
+            Return _QTT_Controlled
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Controlled", _QTT_Controlled, value)
+        End Set
+    End Property
+    Property QTT_Returned As Double
+        Get
+            Return _QTT_Returned
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Returned", _QTT_Returned, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for DeliveryNoteInRows.Units", DefaultContexts.Save)> _
+    Property Units() As Units
+        Get
+            Return _Units
+        End Get
+        Set(ByVal value As Units)
+            SetPropertyValue("Units", _Units, value)
+        End Set
+    End Property
+    <RuleRequiredField("RuleRequiredField for DeliveryNoteInRows.VAT", DefaultContexts.Save)> _
+    Property VAT() As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(ByVal value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+        End Set
+    End Property
+    Property OrderOutRows As OrderOutRows
+        Get
+            Return _OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("OrderOutRows", _OrderOutRows, value)
+        End Set
+    End Property
+    Property OfferInRows As OfferInRows
+        Get
+            Return _OfferInRows
+        End Get
+        Set(value As OfferInRows)
+            SetPropertyValue("OfferInRows", _OfferInRows, value)
+        End Set
+    End Property
+    Property NoteRows As String
+        Get
+            Return _NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("NoteRows", _NoteRows, value)
+        End Set
+    End Property
+    Property PacketNumber As String
+        Get
+            Return _PacketNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("PacketNumber", _PacketNumber, value)
+        End Set
+    End Property
+    Property Weight As Double
+        Get
+            Return _Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Weight", _Weight, value)
+        End Set
+    End Property
+    Property WeightMode As eWeightMode
+        Get
+            Return _WeightMode
+        End Get
+        Set(value As eWeightMode)
+            SetPropertyValue("WeightMode", _WeightMode, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+    Property ITransactionNumber As String
+        Get
+            Return _ITransactionNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("ITransactionNumber", _ITransactionNumber, value)
+        End Set
+    End Property
+    Property ShipingCode As String
+        Get
+            Return _ShipingCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShipingCode", _ShipingCode, value)
+        End Set
+    End Property
+    '-----------Nonpersistent------------
+    <NonPersistent>
+    Property controlled_ListPrice As Double
+        Get
+            Return _row_ListPrice
+        End Get
+        Set(value As Double)
+            SetPropertyValue("controlled_ListPrice", _row_ListPrice, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                controlled_SumPrice = SetRowSumPrice(QTT_Process, value, controlled_DiscountPercent)
+            End If
+        End Set
+    End Property
+    <NonPersistent>
+    Property controlled_DiscountPercent As Double
+        Get
+            Return _row_DiscountPercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("controlled_DiscountPercent", _row_DiscountPercent, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                controlled_SumPrice = SetRowSumPrice(QTT_Process, controlled_ListPrice, value)
+            End If
+        End Set
+    End Property
+    <NonPersistent>
+    Property controlled_SumPrice As Double
+        Get
+            Return _row_SumPrice
+        End Get
+        Set(value As Double)
+            SetPropertyValue("controlled_SumPrice", _row_SumPrice, value)
+        End Set
+    End Property
+
+    '----------Sub----------------
+    Public Sub AddRows(ByVal _p_DeliveryNoteInHeader As DeliveryNoteInHeader)
+        ' Sor hozzáadása
+        Me.DeliveryNoteInHeader = _p_DeliveryNoteInHeader
+        Me.Products = _p_DeliveryNoteInHeader.row_Products
+        Me.Units = _p_DeliveryNoteInHeader.row_Products.Units
+        Me.VAT = _p_DeliveryNoteInHeader.row_Products.VAT
+        Me.QTT = _p_DeliveryNoteInHeader.row_QTT
+        Me.ListPriceHUF = _p_DeliveryNoteInHeader.row_ListPriceHUF
+        Me.ListPriceDEV = _p_DeliveryNoteInHeader.row_ListPriceDEV
+        Me.DiscountPriceDEV = _p_DeliveryNoteInHeader.row_ListPriceDEV * (_p_DeliveryNoteInHeader.row_DiscountPercent / 100)
+        Me.DiscountPriceHUF = _p_DeliveryNoteInHeader.row_ListPriceHUF * (_p_DeliveryNoteInHeader.row_DiscountPercent / 100)
+        Me.OrderOutRows = _p_DeliveryNoteInHeader.row_OrderOutRows
+        Me.RowIndex = _p_DeliveryNoteInHeader.DeliveryNoteInrows.Count
+        Me.PacketNumber = _p_DeliveryNoteInHeader.row_PacketNumber
+        Me.Weight = _p_DeliveryNoteInHeader.row_Weight
+        Me.WeightMode = _p_DeliveryNoteInHeader.row_WeightMode
+    End Sub
+    Private Function SetRowSumPrice(pQTT_Process As Double, prow_ListPrice As Double, prow_DiscountPercent As Double) As Double
+        Return (pQTT_Process * prow_ListPrice) - (pQTT_Process * prow_ListPrice * (prow_DiscountPercent / 100))
+    End Function
+
+    '//XPCollections
+    <VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property DeliveryNoteInRRFC As XPCollection(Of DeliveryNoteInRRFC)
+        Get
+            Return New XPCollection(Of DeliveryNoteInRRFC)(PersistentCriteriaEvaluationBehavior.InTransaction, Session, CriteriaOperator.Parse("DeliveryNoteInRows=?", Me))
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInType.vb

@@ -0,0 +1,155 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+Public Enum eImportMode
+    eInternalwithVAT = 0 'Belföldi ÁFÁ-s
+    eExternalEUwithVAT = 1 'EU-ból ÁFÁ-s
+    eExternalEUNoVAT = 2 'EU-ból nem ÁFÁs
+    eExternalOther = 3 ' EU-n kívüli nem ÁFÁS
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+<Appearance("DeliveryNoteInType - Hide RegistryType if  IsPrice=False", AppearanceItemType.ViewItem, "IsPrice=False", TargetItems:="RegistryType", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class DeliveryNoteInType 'Bejövő szállítólevél  tipusok
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _ImportMode As eImportMode '
+    Private _IsPrice As Boolean = True 'Van-e ár
+    Private _IsOrderOut As Boolean = False 'Van-e rendeléssel ütköztetés
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _NumberGenerator As NumberGenerator 'Sorszám generátor
+    Private _ReportData As ReportData
+    Private _RegistryType As RegistryType 'Iktatás tipus kiválasztása számlás bevételezés esetán !!!
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ImportMode = eImportMode.eInternalwithVAT
+        IsPrice = True
+        IsOrderOut = True
+    End Sub
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property ImportMode As eImportMode
+        Get
+            Return _ImportMode
+        End Get
+        Set(value As eImportMode)
+            SetPropertyValue("ImportMode", _ImportMode, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("DeliveryNoteInType.IsPrice", DefaultContexts.Save)> _
+    Property IsPrice As Boolean
+        Get
+            Return _IsPrice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPrice", _IsPrice, value)
+        End Set
+    End Property
+    Property IsOrderOut As Boolean
+        Get
+            Return _IsOrderOut
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsOrderOut", _IsOrderOut, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInType.ShortName", DefaultContexts.Save)> _
+    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
+    <RuleRequiredField("DeliveryNoteInType.NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, 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
+    <DataSourceProperty("RegistryTypeCollection")> _
+    <RuleRequiredField("DeliveryNoteInType-RegistryType", DefaultContexts.Save, targetcriteria:="IsPrice=True")> _
+    Property RegistryType As RegistryType
+        Get
+            Return _RegistryType
+        End Get
+        Set(value As RegistryType)
+            SetPropertyValue("RegistryType", _RegistryType, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    ReadOnly Property RegistryTypeCollection As XPCollection(Of RegistryType)
+        Get
+            Dim _RegistryTypeReturnCollection As XPCollection(Of RegistryType) = Nothing
+            Dim _RegistryType_Collection As New XPCollection(Of RegistryType)(Session, CriteriaOperator.Parse("RegistryMainType=0 and CustomersFrom=?", CustomersFrom))
+            Dim Ok As Boolean = False
+            If _RegistryType_Collection.Count > 0 Then
+                Dim _Filter As String = "Oid in("
+
+                For Each _RegistryType As RegistryType In _RegistryType_Collection
+                    For Each _WorkflowSystemSteps As WorkflowSystemSteps In _RegistryType.WorkflowSystem.WorkflowSystemSteps
+                        If _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVATPlusControlling Or _
+                            _WorkflowSystemSteps.StepFinancialType = eStepFinancialType.eCheckVAT Then
+                            _Filter += "'" + _RegistryType.Oid.ToString + "',"
+                            Ok = True
+                            Exit For
+                        End If
+                    Next
+
+                Next
+                _Filter = _Filter.Remove(_Filter.Length - 1, 1)
+                _Filter += ")"
+                If Ok Then
+                    _RegistryTypeReturnCollection = New XPCollection(Of RegistryType)(Session, CriteriaOperator.Parse(_Filter))
+                Else
+
+                End If
+            End If
+
+                Return _RegistryTypeReturnCollection
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.Designer.vb

@@ -0,0 +1,186 @@
+Partial Class DeliveryNoteInVC
+
+    <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.aTotable_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalize_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorno_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aFinalize_And_Storage_DeliveryNoteIn = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aRecalculateDeliveryNoteInRowsSumPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aTotable_DeliveryNoteIn
+        '
+        Me.aTotable_DeliveryNoteIn.Caption = "Add row"
+        Me.aTotable_DeliveryNoteIn.Category = "aTotable_DeliveryNoteIn"
+        Me.aTotable_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aTotable_DeliveryNoteIn.Id = "aTotable_DeliveryNoteIn"
+        Me.aTotable_DeliveryNoteIn.ImageName = "table_add"
+        Me.aTotable_DeliveryNoteIn.Shortcut = Nothing
+        Me.aTotable_DeliveryNoteIn.Tag = Nothing
+        Me.aTotable_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aTotable_DeliveryNoteIn.TargetViewId = ""
+        Me.aTotable_DeliveryNoteIn.ToolTip = Nothing
+        Me.aTotable_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aTotableD_DeliveryNoteIn
+        '
+        Me.aTotableD_DeliveryNoteIn.Caption = "Delete row"
+        Me.aTotableD_DeliveryNoteIn.Category = "aTotableD_DeliveryNoteIn"
+        Me.aTotableD_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aTotableD_DeliveryNoteIn.Id = "aTotableD_DeliveryNoteIn"
+        Me.aTotableD_DeliveryNoteIn.ImageName = "table_delete"
+        Me.aTotableD_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aTotableD_DeliveryNoteIn.Shortcut = Nothing
+        Me.aTotableD_DeliveryNoteIn.Tag = Nothing
+        Me.aTotableD_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aTotableD_DeliveryNoteIn.TargetViewId = ""
+        Me.aTotableD_DeliveryNoteIn.ToolTip = Nothing
+        Me.aTotableD_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aDown_DeliveryNoteIn
+        '
+        Me.aDown_DeliveryNoteIn.Caption = "Down"
+        Me.aDown_DeliveryNoteIn.Category = "RecordsNavigation"
+        Me.aDown_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aDown_DeliveryNoteIn.Id = "aDown_DeliveryNoteIn"
+        Me.aDown_DeliveryNoteIn.ImageName = "arrow_down_green"
+        Me.aDown_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_DeliveryNoteIn.Shortcut = Nothing
+        Me.aDown_DeliveryNoteIn.Tag = Nothing
+        Me.aDown_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aDown_DeliveryNoteIn.TargetViewId = Nothing
+        Me.aDown_DeliveryNoteIn.ToolTip = Nothing
+        Me.aDown_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aUp_DeliveryNoteIn
+        '
+        Me.aUp_DeliveryNoteIn.Caption = "Up"
+        Me.aUp_DeliveryNoteIn.Category = "RecordsNavigation"
+        Me.aUp_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aUp_DeliveryNoteIn.Id = "aUp_DeliveryNoteIn"
+        Me.aUp_DeliveryNoteIn.ImageName = "arrow_up_green"
+        Me.aUp_DeliveryNoteIn.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_DeliveryNoteIn.Shortcut = Nothing
+        Me.aUp_DeliveryNoteIn.Tag = Nothing
+        Me.aUp_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aUp_DeliveryNoteIn.TargetViewId = Nothing
+        Me.aUp_DeliveryNoteIn.ToolTip = Nothing
+        Me.aUp_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aFinalize_DeliveryNoteIn
+        '
+        Me.aFinalize_DeliveryNoteIn.Caption = "aFinalize_DeliveryNoteIn"
+        Me.aFinalize_DeliveryNoteIn.Category = "Save"
+        Me.aFinalize_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aFinalize_DeliveryNoteIn.Id = "aFinalize_DeliveryNoteIn"
+        Me.aFinalize_DeliveryNoteIn.ImageName = Nothing
+        Me.aFinalize_DeliveryNoteIn.Shortcut = Nothing
+        Me.aFinalize_DeliveryNoteIn.Tag = Nothing
+        Me.aFinalize_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aFinalize_DeliveryNoteIn.TargetViewId = ""
+        Me.aFinalize_DeliveryNoteIn.ToolTip = Nothing
+        Me.aFinalize_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aStorno_DeliveryNoteIn
+        '
+        Me.aStorno_DeliveryNoteIn.Caption = "aStorno_DeliveryNoteIn"
+        Me.aStorno_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aStorno_DeliveryNoteIn.Id = "aStorno_DeliveryNoteIn"
+        Me.aStorno_DeliveryNoteIn.ImageName = Nothing
+        Me.aStorno_DeliveryNoteIn.Shortcut = Nothing
+        Me.aStorno_DeliveryNoteIn.Tag = Nothing
+        Me.aStorno_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aStorno_DeliveryNoteIn.TargetViewId = ""
+        Me.aStorno_DeliveryNoteIn.ToolTip = Nothing
+        Me.aStorno_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aGenerateStorageIn_From_DeliveryNoteInRows
+        '
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.AcceptButtonCaption = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.CancelButtonCaption = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Caption = "Create document"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Category = "ObjectsCreation"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.ConfirmationMessage = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Id = "aGenerateStorageIn_From_DeliveryNoteInRows"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.ImageName = "document_into"
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Shortcut = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.Tag = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.TargetObjectsCriteria = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.TargetViewId = ""
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.ToolTip = Nothing
+        Me.aGenerateStorageIn_From_DeliveryNoteInRows.TypeOfView = Nothing
+        '
+        'aFinalize_And_Storage_DeliveryNoteIn
+        '
+        Me.aFinalize_And_Storage_DeliveryNoteIn.AcceptButtonCaption = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.CancelButtonCaption = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Caption = "aFinalize_And_Storage_DeliveryNoteIn"
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Category = "Save"
+        Me.aFinalize_And_Storage_DeliveryNoteIn.ConfirmationMessage = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Id = "aFinalize_And_Storage_DeliveryNoteIn"
+        Me.aFinalize_And_Storage_DeliveryNoteIn.ImageName = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Shortcut = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.Tag = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.TargetObjectsCriteria = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.TargetViewId = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.ToolTip = Nothing
+        Me.aFinalize_And_Storage_DeliveryNoteIn.TypeOfView = Nothing
+        '
+        'aRecalculateDeliveryNoteInRowsSumPrice
+        '
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Caption = "aRecalculate Delivery Note In Rows Sum Price"
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.ConfirmationMessage = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Id = "aRecalculateDeliveryNoteInRowsSumPrice"
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.ImageName = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Shortcut = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.Tag = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetObjectsCriteria = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRRFC)
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetViewId = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.ToolTip = Nothing
+        Me.aRecalculateDeliveryNoteInRowsSumPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aTotable_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalize_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorno_DeliveryNoteIn As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aGenerateStorageIn_From_DeliveryNoteInRows As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aFinalize_And_Storage_DeliveryNoteIn As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aRecalculateDeliveryNoteInRowsSumPrice As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.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="aTotable_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>276, 17</value>
+  </metadata>
+  <metadata name="aTotableD_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>741, 17</value>
+  </metadata>
+  <metadata name="aDown_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>935, 17</value>
+  </metadata>
+  <metadata name="aUp_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1111, 17</value>
+  </metadata>
+  <metadata name="aFinalize_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>326, 56</value>
+  </metadata>
+  <metadata name="aStorno_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>510, 56</value>
+  </metadata>
+  <metadata name="aGenerateStorageIn_From_DeliveryNoteInRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aFinalize_And_Storage_DeliveryNoteIn.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="aRecalculateDeliveryNoteInRowsSumPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>461, 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/BusinessTransactions/DeliveryNote/DeliveryNoteIn/DeliveryNoteInVC.vb

@@ -0,0 +1,707 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+Imports System.Linq
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.Utils
+
+Public Class DeliveryNoteInVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", False) ' -- Sor hozzáadása (DeliveryNoteInHeader_DeliveryNoteInRows_ListView)
+        Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", False) ' -- Sor törlése (DeliveryNoteInHeader_DeliveryNoteInRows_ListView)
+        Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", False) ' kiválasztott sor fel
+        Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", False) ' kiválasztott sor le
+        Frame.GetController(Of DeliveryNoteInVC).aFinalize_DeliveryNoteIn.Active.SetItemValue("", False) ' véglegesítés letiltása
+        Frame.GetController(Of DeliveryNoteInVC).aStorno_DeliveryNoteIn.Active.SetItemValue("", False) ' sztorno letiltása
+        Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", False) ' Betárolás bejövő szállítólevél sorokból
+        Frame.GetController(Of DeliveryNoteInVC).aFinalize_And_Storage_DeliveryNoteIn.Active.SetItemValue("", False)
+        '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
+
+        If View.Id = "DeliveryNoteInHeader_DeliveryNoteInrows_ListView" Then ' -- A beágyazott ListView feletti toolbar
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteInVC).aUp_DeliveryNoteIn.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteInVC).aDown_DeliveryNoteIn.Active.SetItemValue("", True)
+        End If
+        If View.Id = "DeliveryNoteInHeader_ListView" Then
+            Frame.GetController(Of DeliveryNoteInVC).aGenerateStorageIn_From_DeliveryNoteInRows.Active.SetItemValue("", True)
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+        End If
+        '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteInHeader_DetailView" Then
+            Frame.GetController(Of DeliveryNoteInVC).aFinalize_DeliveryNoteIn.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteInVC).aStorno_DeliveryNoteIn.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteInVC).aFinalize_And_Storage_DeliveryNoteIn.Active.SetItemValue("", True)
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+            If _DeliveryNoteInHeader IsNot Nothing Then
+                Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", True)
+                Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", True)
+            End If
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_DetailView" Or View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DetailView" Then ' Előleg bekérő készítő view
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+        If View.Id = "DeliveryNoteInHeader_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()
+
+        '------------------------- LISTVIEWS --------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteInHeader_DeliveryNoteInRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_StorageInfromDeliveryNoteInRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        If View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DeliveryNoteInFromOrderOutRowsRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+        End If
+        '------------------------- DETAILVIEWS ------------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteInHeader_DeatilView" Then
+            Frame.GetController(Of DeliveryNoteInVC).aTotable_DeliveryNoteIn.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteInVC).aTotableD_DeliveryNoteIn.Active.SetItemValue("", False)
+        End If
+        If View.Id = "StorageInfromDeliveryNoteInRowsHeader_DetailView" Or View.Id = "DeliveryNoteInFromOrderOutRowsHeader_DetailView" Then
+            RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+    End Sub
+    Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
+    End Sub
+    Private Sub aTotable_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_DeliveryNoteIn.Execute
+        ' hozzáad egy új sort a fejléchez ------------------------
+
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = CType(e.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows = New DeliveryNoteInRows(_ocur.Session)
+        Dim _OrderOutRows As OrderOutRows = _ocur.GetObject(_DeliveryNoteInHeader.row_OrderOutRows)
+        Dim ItemToFocus As ViewItem = TryCast(View, DetailView).FindItem("row_Products")
+        Try
+            If ItemToFocus IsNot Nothing Then
+                Dim ItemControl As Object
+                ItemControl = ItemToFocus.Control
+                ItemControl.Focus()
+            End If
+
+            If _OrderOutRows IsNot Nothing Then
+                If _DeliveryNoteInHeader.row_QTT + _OrderOutRows.QTT_DeliveryNoteIn > _OrderOutRows.QTT Then
+                    Throw New Exception("*Nem volt ennyi megrendelve ebből a tételből !")
+                Else
+                    _OrderOutRows.QTT_DeliveryNoteIn += _DeliveryNoteInHeader.row_QTT
+                End If
+            End If
+
+            _DeliveryNoteInRows.AddRows(_DeliveryNoteInHeader)
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            _DeliveryNoteInHeader.row_Products = Nothing
+            _DeliveryNoteInHeader.row_QTT = 0
+            _DeliveryNoteInHeader.row_ListPriceHUF = 0
+            _DeliveryNoteInHeader.row_ListPriceDEV = 0
+            _DeliveryNoteInHeader.row_DiscountPercent = 0
+            _DeliveryNoteInHeader.row_OrderOutRows = Nothing
+            _DeliveryNoteInHeader.row_PacketNumber = ""
+            _DeliveryNoteInHeader.row_Weight = 0
+            _DeliveryNoteInHeader.row_CountryFrom = Nothing
+
+            View.Refresh()
+        End Try
+    End Sub
+    Private Sub aTotableD_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_DeliveryNoteIn.Execute
+        ' a kiválasztott sorokat törli -----------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(e.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _DeliveryNoteInRows_Collection As ArrayList = New ArrayList
+        Dim _DeliveryNoteInRows_ListEditor As ListPropertyEditor
+
+        _DeliveryNoteInRows_ListEditor = TryCast(View, DetailView).FindItem("DeliveryNoteInrows")
+        For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_ListEditor.ListView.SelectedObjects
+            Dim _DelivNoteInRows As DeliveryNoteInRows = _DeliveryNoteInRows
+            For Each _DeliveryNoteInRows2 As DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows2.RowIndex > _DelivNoteInRows.RowIndex Then
+                    _DeliveryNoteInRows2.RowIndex -= 1
+                End If
+            Next
+        Next
+
+        For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInRows_ListEditor.ListView.SelectedObjects
+            If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then
+                _DeliveryNoteInRows.OrderOutRows.QTT_DeliveryNoteIn -= _DeliveryNoteInRows.QTT
+                _DeliveryNoteInRows.OrderOutRows.Save()
+            End If
+            _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows)
+        Next
+
+        _ocur.Delete(_DeliveryNoteInRows_Collection)
+        _ocur.CommitChanges()
+        View.Refresh()
+    End Sub
+    Private Sub aUp_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_DeliveryNoteIn.Execute
+        ' A kiválaszott sort egy sorral feljebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInRows).DeliveryNoteInHeader
+        Dim _DeliveryNoteInRowsSelected As DeliveryNoteInRows = Nothing
+        Dim _DeliveryNoteInRowsMinus As DeliveryNoteInRows = Nothing
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows = Nothing
+
+        Try
+            _DeliveryNoteInRowsSelected = TryCast(View.SelectedObjects(0), DeliveryNoteInRows) ' Az editor egy listview, kiveszi az első kijelölt sorát
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _DeliveryNoteInRowsSelected.RowIndex > 0 Then
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.RowIndex = _DeliveryNoteInRowsSelected.RowIndex - 1 Then
+                    _DeliveryNoteInRowsMinus = _DeliveryNoteInRows
+                    Exit For
+                End If
+            Next
+
+            If _DeliveryNoteInRowsMinus IsNot Nothing Then
+                _DeliveryNoteInRowsSelected.RowIndex -= 1
+                _DeliveryNoteInRowsMinus.RowIndex += 1
+            End If
+            _DeliveryNoteInRowsMinus.Save()
+            _DeliveryNoteInRowsSelected.Save()
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aDown_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_DeliveryNoteIn.Execute
+        ' A kiválaszott sort egy sorral lejebb helyezi
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInRows).DeliveryNoteInHeader
+        Dim _DeliveryNoteInRowsSelected As DeliveryNoteInRows
+        Dim _DeliveryNoteInRowsPlus As DeliveryNoteInRows = Nothing
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows
+
+        Try
+            _DeliveryNoteInRowsSelected = TryCast(View.SelectedObjects(0), DeliveryNoteInRows) ' Kiveszi a kijelölt sorok közül az elsőt
+        Catch
+            ' TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End Try
+
+        If _DeliveryNoteInRowsSelected.RowIndex < _DeliveryNoteInHeader.DeliveryNoteInrows.Count - 1 Then
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.RowIndex = _DeliveryNoteInRowsSelected.RowIndex + 1 Then
+                    _DeliveryNoteInRowsPlus = _DeliveryNoteInRows
+                    Exit For
+                End If
+            Next
+
+            If _DeliveryNoteInRowsPlus IsNot Nothing Then
+                _DeliveryNoteInRowsSelected.RowIndex += 1
+                _DeliveryNoteInRowsPlus.RowIndex -= 1
+            End If
+            _DeliveryNoteInRowsPlus.Save()
+            _DeliveryNoteInRowsSelected.Save()
+            _ocur.CommitChanges()
+            View.Refresh()
+        End If
+    End Sub
+    Private Sub aFinalizeDeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_DeliveryNoteIn.Execute
+        '---Az akció véglegesít egy bejövõ szállítólevelet------------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+
+        If _DeliveryNoteInHeader.DeliveryNoteInrows.Count <= 0 Then
+            Throw New Exception("*Nincs mit betárolni !")
+        End If
+
+        _DeliveryNoteInHeader.IsEditable = False
+
+        If _DeliveryNoteInHeader.DocumentNumber = "" Then
+            _DeliveryNoteInHeader.DocumentNumber = _DeliveryNoteInHeader.DeliveryNoteInType.NumberGenerator.GetNewNumber(_DeliveryNoteInHeader.DeliveryNoteInType.NumberGenerator)
+        End If
+
+        _DeliveryNoteInHeader.Save()
+        _ocur.CommitChanges()
+        View.Close()
+    End Sub
+    Private Sub aStorno_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_DeliveryNoteIn.Execute
+        '---Az akció sztornóz egy bejövõ szállítólevelet------------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _IsFound As Boolean = False
+
+        Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_ocur.Session)
+        Dim query = From _SIR In _StorageInRows_XPQuery
+                       Where _SIR.DeliveryNoteInRows.DeliveryNoteInHeader Is _DeliveryNoteInHeader
+                           Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
+           Select New With {Key .DeliveryNoteInRows = DeliveryNoteInRows,
+                            Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+
+        For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+            _DeliveryNoteInRows.OrderOutRows.QTT_DeliveryNoteIn -= _DeliveryNoteInRows.QTT
+            _DeliveryNoteInRows.OrderOutRows = Nothing
+
+
+            For Each item In query
+                If item.DeliveryNoteInRows.Oid = _DeliveryNoteInRows.Oid And item.QTT_Sum <> 0 Then ' Ha talál olyan sort aminek azonos a szállítólevél sora az aktuálissal, akkor kiszállunk
+                    _IsFound = True
+                    Exit For
+                End If
+            Next
+        Next
+
+        If _IsFound = False Then
+
+            _DeliveryNoteInHeader.IsStorno = True
+
+            _DeliveryNoteInHeader.Save()
+            _ocur.CommitChanges()
+            View.Close()
+        Else
+            ThrowNewException("Erről a széllítólevélről már készült betárolás.") 'Teszt
+        End If
+    End Sub
+    Private Sub aGenerateStorageIn_From_DeliveryNoteInRows_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aGenerateStorageIn_From_DeliveryNoteInRows.CustomizePopupWindowParams
+        ' Egy kiválaszott végleges szállítólevél azon sorait hozza fel egy listában, ahol a mennyiség még több mint a már erről a betárolt össz mennyiség
+        Dim _NOStorageInRows As New ArrayList
+        Try
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace()
+            Dim _DeliveryNoteInRows As DeliveryNoteInRows
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader))
+            Dim _StorageInfromDeliveryNoteInRowsHeader As New StorageInfromDeliveryNoteInRowsHeader(_onew.Session)
+            Dim _QTT_Sum As Double = 0
+
+
+            _StorageInfromDeliveryNoteInRowsHeader.DeliveryNoteInHeader = _DeliveryNoteInHeader
+            _StorageInfromDeliveryNoteInRowsHeader.DateCreation = GetSQLTime(_onew.Session)
+
+            ' Az összes olyan betárolási sor keresése adott termékre, ami szállítólevéllről jött
+            Dim _StorageInRows_XPQuery As New XPQuery(Of StorageInRows)(_onew.Session)
+            Dim query = From _SIR In _StorageInRows_XPQuery
+                            Where _SIR.DeliveryNoteInRows.DeliveryNoteInHeader Is _DeliveryNoteInHeader
+                                Group _SIR By _SIR.DeliveryNoteInRows Into g = Group _
+                Select New With {Key .DeliveryNoteInRows = DeliveryNoteInRows,
+                                 Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                _QTT_Sum = 0
+                For Each item In query
+                    If item.DeliveryNoteInRows.Oid = _DeliveryNoteInRows.Oid Then ' Ha talál olyan sort aminek azonos a szállítólevél sora az aktuálissal, akkor számolja hogy összesen mennyi van betárolva
+                        _QTT_Sum = item.QTT_Sum
+                    End If
+                Next
+                If _DeliveryNoteInRows.QTT > _QTT_Sum Then ' Csak azokat a sorokat hozza fel a ListView-ba amikre még lehet betárolást csinálni
+                    Dim _StorageInfromDeliveryNoteInRowsRows As New StorageInfromDeliveryNoteInRowsRows(_onew.Session)
+
+                    _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows = _DeliveryNoteInRows
+                    _StorageInfromDeliveryNoteInRowsRows.StorageInfromDeliveryNoteInRowsHeader = _StorageInfromDeliveryNoteInRowsHeader
+                    _StorageInfromDeliveryNoteInRowsRows.QTT_Process = _DeliveryNoteInRows.QTT - _QTT_Sum
+                    _StorageInfromDeliveryNoteInRowsRows.QTT_Max = _StorageInfromDeliveryNoteInRowsRows.QTT_Process
+                    If _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows.Products.Units.ShortName = "zsák" And _StorageInfromDeliveryNoteInRowsRows.DeliveryNoteInRows.Products.ProductGroups.Parent.Name = "VETŐ" Then
+                        If _DeliveryNoteInRows.Weight = 0 Or String.IsNullOrEmpty(_DeliveryNoteInRows.PacketNumber) Then
+                            _NOStorageInRows.Add(_DeliveryNoteInRows.Products)
+                        End If
+                    End If
+                End If
+            Next
+
+            _onew.CommitChanges()
+
+            e.View = Application.CreateDetailView(_onew, _StorageInfromDeliveryNoteInRowsHeader, False)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            If _NOStorageInRows.Count > 0 Then
+                Dim _ErrorMessage As String = "A következő szállítólevélről az alábbi sorok nem tárolhatóak be :" + vbNewLine
+
+                For Each _NOSIR As Products In _NOStorageInRows
+                    _ErrorMessage += vbNewLine + _NOSIR.ProductNumber + "    /    " + _NOSIR.ShortName + vbNewLine
+                Next
+
+                _ErrorMessage += vbNewLine + "mert NINCS megadva a KÖTEGSZÁM vagy a SÚLY!"
+                'MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+                Throw New UserFriendlyException(_ErrorMessage)
+                View.Close()
+            End If
+        End Try
+    End Sub
+    Private Sub aGenerateStorageIn_From_DeliveryNoteInRows_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aGenerateStorageIn_From_DeliveryNoteInRows.Execute
+        ' A popup-on kiválasztott bej. szállítólevél sorokból a kézzel megadott szándékkal végleges bet. bizonylatot hoz létre (Sorokkal)
+
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
+        Try
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader))
+
+            If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then
+                Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-"))
+
+                Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking")
+                Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError")
+                MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+                Exit Sub
+            Else
+                Dim _StorageInfromDeliveryNoteInRowsHeader As StorageInfromDeliveryNoteInRowsHeader = _onew.GetObjectByKey(Of StorageInfromDeliveryNoteInRowsHeader)(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Oid)
+                _StorageInfromDeliveryNoteInRowsHeader.Storage = _onew.GetObjectByKey(Of Storage)(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Storage.Oid)
+                Dim _StorageInfromDeliveryNoteInRowsRows_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("StorageInfromDeliveryNoteInRowsRows") ' Bekeresi az összes bejövõ megrendelési sort
+                Dim _StorageInfromDeliveryNoteInRowsRows As StorageInfromDeliveryNoteInRowsRows
+                Dim _MSGBoxNeed As Boolean = False
+
+                For Each _StorageInfromDeliveryNoteInRowsRows In _StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects
+                    If _StorageInfromDeliveryNoteInRowsRows.QTT_Process > _StorageInfromDeliveryNoteInRowsRows.QTT_Max Then
+                        _StorageInfromDeliveryNoteInRowsRows.QTT_Process = _StorageInfromDeliveryNoteInRowsRows.QTT_Max
+                        _MSGBoxNeed = True
+                        Exit For
+                    End If
+                Next
+
+                If _MSGBoxNeed = True Then Throw New Exception("*Volt olyan szándék megadva ami több mint amit be lehet tárolni, így az értéke visszaállítódott a maximális értékre!")
+
+                ' --- Létrehozzuk a bet. fejlécet ----
+                Dim _StorageInHeader_New As New StorageInHeader(_onew.Session)
+                With _StorageInHeader_New
+                    .IsEditable = False
+                    .Storage = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).Storage)
+                    .ObjectCreated = GetSQLTime(_onew.Session)
+                    .StorageMoveType = _onew.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), StorageInfromDeliveryNoteInRowsHeader).StorageMoveType)
+                    .DocumentNumber = _StorageInHeader_New.Storage.NumberGeneratorIn.GetNewNumber(_StorageInHeader_New.Storage.NumberGeneratorIn)
+                End With
+
+                ' Létrehozzuk a bet. sorokat, minden kiválasztott bejövő szállítólevél sorokhoz ----------------------------------------------------------------------------------------------
+                For i = 0 To _StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects.Count - 1 ' A kiválasztott sorokon végigmegyünk és létrehozzuk a bet. sorokat.
+                    Dim _StorageComputed As StorageComputed = _onew.Session.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _
+                                _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products), _onew.GetObject(_StorageInfromDeliveryNoteInRowsHeader.Storage)))
+                    Dim _QTT_Process As Double = 0
+                    _QTT_Process = TryCast(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i), StorageInfromDeliveryNoteInRowsRows).QTT_Process ' Kinyerjük az adott sorhoz tartozó szándékot
+
+                    If _StorageComputed Is Nothing Then
+                        _StorageComputed = _onew.CreateObject(Of StorageComputed)()
+                        With _StorageComputed
+                            .Storage = _StorageInfromDeliveryNoteInRowsHeader.Storage
+                            .Products = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products)
+                        End With
+                    End If
+
+                    ' Új betárolási sorok létrehozása --------------------------------------------
+                    Dim _StorageInRows_New As StorageInRows = _onew.CreateObject(Of StorageInRows)()
+                    With _StorageInRows_New
+                        .DeliveryNoteInRows = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows)
+                        .StorageInHeader = _StorageInHeader_New
+                        .Products = _onew.GetObject(_StorageInfromDeliveryNoteInRowsRows_ListEditor.ListView.SelectedObjects(i).DeliveryNoteInRows.Products)
+                        .QTT_Will = _QTT_Process
+                        .RowIndex = i + 1 ' Sorindexelés
+                    End With
+                    _StorageComputed.QTTReservedIn += _QTT_Process
+                Next
+                '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+                For Each _StorageInRows In _StorageInHeader_New.StorageInRows
+                    Dim _StorageComputed As StorageComputed = _onew.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _StorageInHeader_New.Storage))
+                    Dim _StorageMoveEvents As New StorageMoveEvents(_onew.Session)
+                    If _StorageInRows.QTT_Will > 0 Then
+                        _StorageInRows.QTT = _StorageInRows.QTT_Will
+                        _StorageComputed.QTTFree += _StorageInRows.QTT_Will
+                        _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will
+
+                        _StorageMoveEvents.StorageInRows = _StorageInRows
+                        _StorageMoveEvents.QTT = _StorageInRows.QTT
+                        _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree
+                        _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT
+                        _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal
+                        _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate
+
+                        _StorageInRows.QTT_Will = 0
+                    End If
+                Next
+
+                _StorageInHeader_New.IsEditable = False
+                _StorageInHeader_New.IsFinalized = True
+                _DeliveryNoteInHeader.IsEditable = False
+                _onew.CommitChanges()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            LockingModule.UnLockObject(_uow_lock, GetType(StorageComputed), "-", _User)
+        End Try
+    End Sub
+    Private Sub aFinalize_And_Storage_DeliveryNoteIn_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aFinalize_And_Storage_DeliveryNoteIn.CustomizePopupWindowParams
+        '---Létrehoz egy ListView-t ahol a raktárat kell kiválasztani a rendelésből kitárolási akcióhoz
+        Dim _NOStorageInRows As New ArrayList
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+            Dim _DeliveryNoteInToStorageInHeader As DeliveryNoteInToStorageInHeader = _onew.CreateObject(Of DeliveryNoteInToStorageInHeader)()
+
+            Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = _onew.GetObject(TryCast(View.SelectedObjects(0), DeliveryNoteInHeader))
+            For Each _DeliveryNoteInRows As DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.Products.Units.ShortName = "zsák" And _DeliveryNoteInRows.Products.ProductGroups.Parent.Name = "VETŐ" Then
+                    If _DeliveryNoteInRows.Weight = 0 Or String.IsNullOrEmpty(_DeliveryNoteInRows.PacketNumber) Then
+                        _NOStorageInRows.Add(_DeliveryNoteInRows.Products)
+                    End If
+                End If
+            Next
+
+
+            e.View = Application.CreateDetailView(_onew, "DeliveryNoteInToStorageInHeader_DetailView", False, _DeliveryNoteInToStorageInHeader)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            If _NOStorageInRows.Count > 0 Then
+                Dim _ErrorMessage As String = "A következő szállítólevélről az alábbi sor(ok) nem tárolhatóak be :" + vbNewLine
+
+                For Each _NOSIR As Products In _NOStorageInRows
+                    _ErrorMessage += vbNewLine + _NOSIR.ProductNumber + "    /    " + _NOSIR.ShortName + vbNewLine
+                Next
+
+                _ErrorMessage += vbNewLine + "mert NINCS megadva a KÖTEGSZÁM vagy a SÚLY!"
+                'MsgBox(_ErrorMessage, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+                Throw New UserFriendlyException(_ErrorMessage)
+                View.Close()
+            End If
+        End Try
+    End Sub
+    Private Sub aFinalize_And_Storage_DeliveryNoteIn_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aFinalize_And_Storage_DeliveryNoteIn.Execute
+        '---Az akció véglegesít egy bejövő szállítólevelet------------------------------------------------
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _uow_lock As New UnitOfWork(_onew.Session.DataLayer)
+        Dim _User As User = _onew.GetObject(TryCast(SecuritySystem.CurrentUser, User))
+        Dim _DeliveryNoteInHeader As DeliveryNoteInHeader = TryCast(View.SelectedObjects(0), DeliveryNoteInHeader)
+        Dim _StorageInHeader As StorageInHeader
+        Try
+            Dim _DeliveryNoteInRows As DeliveryNoteInRows
+            Dim _DeliveryNoteInToStorageInHeader As DeliveryNoteInToStorageInHeader = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteInToStorageInHeader)
+
+            Dim _StorageInRows As StorageInRows
+
+            If _DeliveryNoteInHeader.DeliveryNoteInrows.Count <= 0 Then Throw New Exception("*A szállítólevélnek nincs egyetlen sora sem!")
+            Dim _DeliveryNoteInRows_Collection As New ArrayList
+            For Each _DeliveryNoteInRows In _DeliveryNoteInHeader.DeliveryNoteInrows
+                If _DeliveryNoteInRows.OrderOutRows IsNot Nothing Then
+                    If _DeliveryNoteInRows.QTT > 0 And _DeliveryNoteInRows.QTT <= _DeliveryNoteInRows.OrderOutRows.QTT Then
+                        _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows)
+                    End If
+                Else
+                    _DeliveryNoteInRows_Collection.Add(_DeliveryNoteInRows)
+                End If
+            Next
+
+            If _DeliveryNoteInRows_Collection.Count = 0 Then Throw New Exception("*A szállítólevélnek nincs egyetlen olyan sora sem, melyet be lehetne tárolni!")
+
+            'zárolás
+            If Not LockingModule.LockObject(_uow_lock, GetType(StorageComputed), "-", _User) Then
+                Dim _LockingObject As LockingObject = _onew.FindObject(Of LockingObject)(CriteriaOperator.Parse("TableName=?", GetType(StorageComputed).Name + "-" + "-"))
+
+                Dim _Prompt As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions\StorageComputed", "CanNotStorageInByLocking")
+                Dim _Title As String = DevExpress.ExpressApp.Utils.CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxError")
+                MsgBox(String.Format(_Prompt, _LockingObject.User.FullName, _LockingObject.ObjectCreated), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, _Title)
+
+                Exit Sub
+            Else
+
+                _StorageInHeader = _ocur.CreateObject(Of StorageInHeader)()
+                _StorageInHeader.Active = True
+                _StorageInHeader.CreateDate = GetSQLTime(_ocur.Session)
+                _StorageInHeader.Storage = _ocur.GetObjectByKey(Of Storage)(_DeliveryNoteInToStorageInHeader.Storage.Oid)
+                _StorageInHeader.StorageMoveType = _ocur.GetObjectByKey(Of StorageMoveType)(_DeliveryNoteInToStorageInHeader.StorageMoveType.Oid)
+
+                For Each _DeliveryNoteInRows In _DeliveryNoteInRows_Collection
+                    _StorageInRows = _ocur.CreateObject(Of StorageInRows)()
+                    With _StorageInRows
+                        .Active = True
+                        .DeliveryNoteInRows = _DeliveryNoteInRows
+                        .PacketNumber = _DeliveryNoteInRows.PacketNumber
+                        .Products = _DeliveryNoteInRows.Products
+                        .QTT_Will = _DeliveryNoteInRows.QTT
+                        .RowIndex = _StorageInHeader.StorageInRows.Count + 1
+                        .SerialNumber = ""
+                        .StorageInHeader = _StorageInHeader
+                        .Storage = _StorageInHeader.Storage
+                        .Weight = _DeliveryNoteInRows.Weight
+                        .WeightMode = _DeliveryNoteInRows.WeightMode
+
+                    End With
+
+                    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _
+                                                                                                        _StorageInRows.Products, _StorageInHeader.Storage))
+                    If _StorageComputed Is Nothing Then
+                        _StorageComputed = _ocur.CreateObject(Of StorageComputed)()
+                        With _StorageComputed
+                            .Storage = _StorageInHeader.Storage
+                            .Products = _DeliveryNoteInRows.Products
+                            .QTTReservedIn = _DeliveryNoteInRows.QTT
+                        End With
+                    Else
+                        _StorageComputed.QTTReservedIn += _DeliveryNoteInRows.QTT
+                    End If
+                Next
+
+                '--------- Véglegesítjük a betárolást !
+                For Each _StorageInRows In _StorageInHeader.StorageInRows
+                    Dim _StorageComputed As StorageComputed = _ocur.FindObject(Of StorageComputed)(CriteriaOperator.Parse("Products=? and Storage=?", _StorageInRows.Products, _StorageInHeader.Storage))
+                    Dim _StorageMoveEvents As New StorageMoveEvents(_ocur.Session)
+                    If _StorageInRows.QTT_Will > 0 Then
+                        _StorageInRows.QTT = _StorageInRows.QTT_Will
+                        _StorageComputed.QTTFree += _StorageInRows.QTT_Will
+                        _StorageComputed.QTTReservedIn -= _StorageInRows.QTT_Will
+
+                        _StorageMoveEvents.StorageInRows = _StorageInRows
+                        _StorageMoveEvents.QTT = _StorageInRows.QTT
+                        _StorageMoveEvents.QTT_Free_After = _StorageComputed.QTTFree
+                        _StorageMoveEvents.QTT_Free_Before = _StorageMoveEvents.QTT_Free_After - _StorageMoveEvents.QTT
+                        _StorageMoveEvents.MoveEventsType = eMoveEventsType.StorageInFinal
+                        _StorageMoveEvents.ExecutionDate = _StorageInRows.StorageInHeader.CreateDate
+
+
+                        _StorageInRows.QTT_Will = 0
+                    End If
+                Next
+                _StorageInHeader.IsEditable = False
+                _StorageInHeader.IsFinalized = True
+                _DeliveryNoteInHeader.IsEditable = False
+                _ocur.CommitChanges()
+
+                If _DeliveryNoteInToStorageInHeader.IsRegistry Then
+                    Dim _RegistryHeader As New RegistryHeader(_ocur.Session)
+                    With _RegistryHeader
+                        .CustomersFrom = _DeliveryNoteInHeader.CustomersFrom
+                        .Customers = _DeliveryNoteInHeader.Customers
+                        .RegistryType = _DeliveryNoteInHeader.DeliveryNoteInType.RegistryType
+
+
+
+                    End With
+
+                    Dim _orenew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+                    Dim _ShowViewParameters As New ShowViewParameters
+                    Dim _ShowViewSource As New ShowViewSource(Frame, Nothing)
+
+                    _ShowViewParameters.CreatedView = Application.CreateDetailView(_orenew, "RegistryHeader_DetailView", True, _orenew.GetObject(_RegistryHeader))
+                    _ShowViewParameters.NewWindowTarget = NewWindowTarget.MdiChild
+                    _ShowViewParameters.TargetWindow = TargetWindow.NewWindow
+                    Application.ShowViewStrategy.ShowView(_ShowViewParameters, _ShowViewSource)
+
+                    e.ShowViewParameters.CreatedView = Application.CreateDetailView(_orenew, _RegistryHeader)
+                End If
+
+                Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _StorageInHeader.Storage.ReportIn.Oid), True)
+                If _ReportData Is Nothing Or _StorageInHeader Is Nothing Then
+                Else
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("StorageInHeader.DocumentNumber =?", _StorageInHeader.DocumentNumber), True)
+                End If
+                View.Close()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        Finally
+            LockingModule.ReleaseAllLocking(_uow_lock, _User)
+        End Try
+    End Sub
+
+    Private Sub aRecalculateDeliveryNoteInRowsSumPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aRecalculateDeliveryNoteInRowsSumPrice.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInRRFC As DeliveryNoteInRRFC
+        Dim _StorageComputed As StorageComputed
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRRFC In View.SelectedObjects
+            RaiseEvent DoWork()
+            If _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyName.ShortName = "HUF" Then
+                If _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT <> 0 Then
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount / _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceDEV = 0
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceDEV = 0
+                    _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceHUF = 0
+                End If
+            Else
+                If _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT <> 0 Then
+                    If _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate <> 0 Then
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRRFC.RegistryRowsFinancialControlling.Amount / _DeliveryNoteInRRFC.DeliveryNoteInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceDEV = Math.Round(_DeliveryNoteInRRFC.DeliveryNoteInRows.ListPriceHUF / _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_CurrencyRate, 2, MidpointRounding.AwayFromZero)
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceDEV = 0
+                        _DeliveryNoteInRRFC.DeliveryNoteInRows.DiscountPriceHUF = 0
+                    End If
+                End If
+            End If
+
+            Dim _StorageComputed_Collection As New XPCollection(Of StorageComputed)(_ocur.Session, CriteriaOperator.Parse("Products=?", _DeliveryNoteInRRFC.DeliveryNoteInRows.Products))
+            For Each _StorageComputed In _StorageComputed_Collection
+                _StorageComputed.RecalculateAveragePrice()
+                _StorageComputed.RecalculateMinimumPrice()
+            Next
+
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader.vb

@@ -0,0 +1,104 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False)> _
+<CreatableItem(False)> _
+<Appearance("IntrastatHeader - Disable DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("IntrastatHeader - Disable ObjectCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("IntrastatHeader - Disable UserCreate", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreate", Enabled:=False)> _
+Public Class IntrastatHeader
+    Inherits BaseObject
+
+    Private _IntrastatParameters As IntrastatParameters
+    Private _UserCreated As User
+    Private _ObjectCreated As Date
+    Private _DateExecution As Date 'Idõszak Év, hónap
+    Private _DocumentNumber As String
+    Private _DocumentFile As FileData
+
+    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
+        If String.IsNullOrEmpty(DocumentNumber) Then DocumentNumber = IntrastatParameters.NumberGenerator.GetNewNumber(IntrastatParameters.NumberGenerator)
+    End Sub
+
+    <RuleRequiredField("IntrastatHeader - IntrastatParameters", DefaultContexts.Save)> _
+    Property IntrastatParameters As IntrastatParameters
+        Get
+            Return _IntrastatParameters
+        End Get
+        Set(value As IntrastatParameters)
+            SetPropertyValue("IntrastatParameters", _IntrastatParameters, 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 DateExecution As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    Property DocumentFile As FileData
+        Get
+            Return _DocumentFile
+        End Get
+        Set(value As FileData)
+            SetPropertyValue("DocumentFile", _DocumentFile, value)
+        End Set
+    End Property
+
+    '-------ReadONLY-------
+    <Association("IntrastatHeader - IntrastatRows", GetType(IntrastatRows)), VisibleInListView(False)> _
+    ReadOnly Property IntrastatRows As XPCollection(Of IntrastatRows)
+        Get
+            Return GetCollection(Of IntrastatRows)("IntrastatRows")
+        End Get
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.Designer.vb

@@ -0,0 +1,102 @@
+Partial Class IntrastatHeader_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.aIntrastatHeader_GenerateIntrastatRows = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aIntrastatCheckPrice = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aIntrastatCheckWeight = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aPrintIntrastat = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aIntrastatHeader_GenerateIntrastatRows
+        '
+        Me.aIntrastatHeader_GenerateIntrastatRows.Caption = "aIntrastatHeader_GenerateIntrastatRows"
+        Me.aIntrastatHeader_GenerateIntrastatRows.Category = "RecordEdit"
+        Me.aIntrastatHeader_GenerateIntrastatRows.ConfirmationMessage = "Are you sure ? All data will lost !"
+        Me.aIntrastatHeader_GenerateIntrastatRows.Id = "aIntrastatHeader_GenerateIntrastatRows"
+        Me.aIntrastatHeader_GenerateIntrastatRows.ImageName = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.Shortcut = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.Tag = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetObjectsCriteria = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetObjectType = GetType(SISBusiness.[Module].IntrastatHeader)
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetViewId = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aIntrastatHeader_GenerateIntrastatRows.ToolTip = Nothing
+        Me.aIntrastatHeader_GenerateIntrastatRows.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aIntrastatCheckPrice
+        '
+        Me.aIntrastatCheckPrice.Caption = "aIntrastat Check Price"
+        Me.aIntrastatCheckPrice.ConfirmationMessage = Nothing
+        Me.aIntrastatCheckPrice.Id = "aIntrastatCheckPrice"
+        Me.aIntrastatCheckPrice.ImageName = Nothing
+        Me.aIntrastatCheckPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aIntrastatCheckPrice.Shortcut = Nothing
+        Me.aIntrastatCheckPrice.Tag = Nothing
+        Me.aIntrastatCheckPrice.TargetObjectsCriteria = Nothing
+        Me.aIntrastatCheckPrice.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRows)
+        Me.aIntrastatCheckPrice.TargetViewId = "DeliveryNoteInRows_ListView_INTRASTAT"
+        Me.aIntrastatCheckPrice.ToolTip = Nothing
+        Me.aIntrastatCheckPrice.TypeOfView = Nothing
+        '
+        'aIntrastatCheckWeight
+        '
+        Me.aIntrastatCheckWeight.Caption = "aIntrastat Check Weight"
+        Me.aIntrastatCheckWeight.ConfirmationMessage = Nothing
+        Me.aIntrastatCheckWeight.Id = "aIntrastatCheckWeight"
+        Me.aIntrastatCheckWeight.ImageName = Nothing
+        Me.aIntrastatCheckWeight.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aIntrastatCheckWeight.Shortcut = Nothing
+        Me.aIntrastatCheckWeight.Tag = Nothing
+        Me.aIntrastatCheckWeight.TargetObjectsCriteria = Nothing
+        Me.aIntrastatCheckWeight.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteInRows)
+        Me.aIntrastatCheckWeight.TargetViewId = Nothing
+        Me.aIntrastatCheckWeight.ToolTip = Nothing
+        Me.aIntrastatCheckWeight.TypeOfView = Nothing
+        '
+        'aPrintIntrastat
+        '
+        Me.aPrintIntrastat.Caption = "aPrint Intrastat"
+        Me.aPrintIntrastat.ConfirmationMessage = Nothing
+        Me.aPrintIntrastat.Id = "aPrintIntrastat"
+        Me.aPrintIntrastat.ImageName = "Action_Printing_Print"
+        Me.aPrintIntrastat.Shortcut = Nothing
+        Me.aPrintIntrastat.Tag = Nothing
+        Me.aPrintIntrastat.TargetObjectsCriteria = Nothing
+        Me.aPrintIntrastat.TargetObjectType = GetType(SISBusiness.[Module].IntrastatHeader)
+        Me.aPrintIntrastat.TargetViewId = Nothing
+        Me.aPrintIntrastat.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aPrintIntrastat.ToolTip = Nothing
+        Me.aPrintIntrastat.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+
+    End Sub
+    Friend WithEvents aIntrastatHeader_GenerateIntrastatRows As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aIntrastatCheckPrice As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aIntrastatCheckWeight As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aPrintIntrastat As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.resx

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatHeader_VC.vb

@@ -0,0 +1,187 @@
+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 System.Linq
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.ExpressApp.Utils
+
+Public Class IntrastatHeader_VC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+
+    Private Sub aIntrastatHeader_GenerateIntrastatRows_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatHeader_GenerateIntrastatRows.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _IntrastatHeader As IntrastatHeader = TryCast(View.SelectedObjects(0), IntrastatHeader)
+            Dim _IntrastatRows_DELCollection As New XPCollection(Of IntrastatRows)(_ocur.Session, DevExpress.Data.Filtering.CriteriaOperator.Parse("IntrastatHeader=?", _IntrastatHeader))
+
+
+            '// Nullás súlyok terméktörzsbõl update
+
+
+
+
+            _ocur.Delete(_IntrastatRows_DELCollection)
+            _ocur.CommitChanges()
+
+            Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+
+
+            Dim _DeliveryNoteInRows_XPQuery = New XPQuery(Of DeliveryNoteInRows)(_onew.Session)
+            Dim query = From _DeliveryNoteInRows In _DeliveryNoteInRows_XPQuery _
+                        Where _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Year = _IntrastatHeader.DateExecution.Year And
+                                _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Month = _IntrastatHeader.DateExecution.Month
+                        Group _DeliveryNoteInRows By _DeliveryNoteInRows.DeliveryNoteInHeader.ShipmentOption,
+                              _DeliveryNoteInRows.Products.CustomsTariff,
+                              _DeliveryNoteInRows.DeliveryNoteInHeader.Customers.Address1.Country,
+                              _DeliveryNoteInRows.Products.CountryFrom,
+                              _DeliveryNoteInRows.ShipingCode,
+                              _DeliveryNoteInRows.ITransactionNumber,
+                              _DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution Into g = Group _
+                       Select New With {Key .ShipmentOption = ShipmentOption, _
+                                        Key .CustomTariffs = CustomsTariff, _
+                                        Key .ITransactionNumber = ITransactionNumber, _
+                                        Key .CountryFrom = CountryFrom, _
+                                        Key .ShipingCode = ShipingCode, _
+                                        Key .CountrySender = Country, _
+                                        Key .DateExecution = DateExecution, _
+                                        Key .AmountHUF_Sum = g.Sum(Function(inv) (inv.ListPriceHUF - inv.DiscountPriceHUF) * inv.QTT), _
+                                        Key .Area_Sum = g.Sum(Function(inv) inv.Area), _
+                                        Key .Weight_Sum = g.Sum(Function(inv) inv.Weight)}
+
+
+            Dim _RowIndex As Long = 1
+            RaiseEvent InitWork(1, 1, query.Count)
+            For Each item In query
+                RaiseEvent DoWork()
+                If GLOBAL_EUMemberStates.Contains(item.CountrySender.GetMemberValue("ShortName")) Then
+                    Dim _IntrastatRows As New IntrastatRows(_onew.Session)
+                    With _IntrastatRows
+                        .IntrastatHeader = _onew.GetObject(_IntrastatHeader)
+                        .RowIndex = _RowIndex
+                        .ITransactionNumber = item.ITransactionNumber
+                        .ShipmentOption = item.ShipmentOption
+                        .CustomsTariffs = item.CustomTariffs
+                        .CountrySender = item.CountrySender
+                        .ShipingCode = item.ShipingCode
+                        .CountryFrom = item.CountryFrom
+                        .AmountHUF = item.AmountHUF_Sum
+                        .Area = item.Area_Sum
+                        .Weight = item.Weight_Sum
+                    End With
+                    _RowIndex += 1
+                End If
+            Next
+
+            _onew.CommitChanges()
+
+            If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+                Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hiba!")
+        Finally
+            RaiseEvent FinalWork
+        End Try
+    End Sub
+
+    Private Sub aIntrastatCheckPrice_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatCheckPrice.Execute
+        '// számlaigazolásból árak ellenõrzése
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRows In View.SelectedObjects
+            RaiseEvent DoWork()
+            If _DeliveryNoteInRows.DeliveryNoteInHeader.CurrencyName.ShortName <> "HUF" Then
+                If _DeliveryNoteInRows.DeliveryNoteInRRFC.Count > 0 Then
+                    _DeliveryNoteInRows.ListPriceHUF = Math.Round(_DeliveryNoteInRows.ListPriceDEV * _DeliveryNoteInRows.DeliveryNoteInHeader.CurrencyRate, 0, MidpointRounding.AwayFromZero)
+                    If _DeliveryNoteInRows.Weight <= 0 Then
+                        _DeliveryNoteInRows.WeightMode = eWeightMode.eTotalWeightperQuantity
+                        If _DeliveryNoteInRows.Products.NettoWeight <> 0 Then
+                            _DeliveryNoteInRows.Weight = Math.Round(_DeliveryNoteInRows.QTT * _DeliveryNoteInRows.Products.NettoWeight, 4, 0)
+                        End If
+                    End If
+                End If
+            End If
+        Next
+        _ocur.CommitChanges()
+        RaiseEvent FinalWork
+    End Sub
+
+    Private Sub SimpleAction1_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIntrastatCheckWeight.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteInRows As DeliveryNoteInRows
+
+
+        RaiseEvent InitWork(1, 1, View.SelectedObjects.Count)
+        For Each _DeliveryNoteInRows In View.SelectedObjects
+            RaiseEvent DoWork()
+            Dim _StorageInRows_Collection As New XPCollection(Of StorageInRows)(_ocur.Session,
+                                                                            CriteriaOperator.Parse("DeliveryNoteInRows=?", _DeliveryNoteInRows))
+            Dim _StorageInRows As StorageInRows
+
+            For Each _StorageInRows In _StorageInRows_Collection
+                If _StorageInRows.DeliveryNoteInRows IsNot Nothing Then
+                    If _StorageInRows.DeliveryNoteInRows.Weight <> 0 Then
+                        If _StorageInRows.DeliveryNoteInRows.QTT <> 0 Then
+                            _StorageInRows.Weight = Math.Round((_StorageInRows.DeliveryNoteInRows.Weight / _StorageInRows.DeliveryNoteInRows.QTT) * _StorageInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                        End If
+                    End If
+                End If
+                If _StorageInRows.StorageInRowsFrom IsNot Nothing Then
+                    If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows IsNot Nothing Then
+                        _StorageInRows.DeliveryNoteInRows = _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows
+                        If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.Weight <> 0 Then
+                            If _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.QTT <> 0 Then
+                                _StorageInRows.Weight = Math.Round((_StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.Weight / _StorageInRows.StorageInRowsFrom.DeliveryNoteInRows.QTT) * _StorageInRows.QTT, 2, MidpointRounding.AwayFromZero)
+                            End If
+                        End If
+                    End If
+                End If
+
+                Dim _StorageInRows_From_Collection As New XPCollection(Of StorageInRows)(_ocur.Session, CriteriaOperator.Parse("StorageInRowsFrom=?", _StorageInRows))
+                Dim _StorageInRows_From As StorageInRows
+
+                For Each _StorageInRows_From In _StorageInRows_From_Collection
+                    _StorageInRows_From.DeliveryNoteInRows = _StorageInRows.DeliveryNoteInRows
+                    _StorageInRows_From.Weight = (_StorageInRows.Weight / _StorageInRows.QTT) * _StorageInRows_From.QTT
+                Next
+                _ocur.CommitChanges()
+            Next
+        Next
+        RaiseEvent FinalWork
+    End Sub
+
+    Private Sub aPrintIntrastat_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aPrintIntrastat.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _IntrastatHeader As IntrastatHeader = TryCast(View.SelectedObjects(0), IntrastatHeader)
+            If _IntrastatHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
+
+            Dim _ReportData As ReportData = _IntrastatHeader.IntrastatParameters.Report
+            If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!" + vbNewLine + "A folyamat megszakadt!")
+
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("IntrastatHeader.Oid=?", _IntrastatHeader.Oid), True)
+
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatParameters.vb

@@ -0,0 +1,58 @@
+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 IntrastatParameters
+    Inherits BaseObject
+
+    Private _CustomersFrom As CustomersFrom
+    Private _NumberGenerator As NumberGenerator
+    Private _Report As ReportData
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <RuleRequiredField("IntrastatParameters - CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("IntrastatParameters - NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+
+    Public Property Report() As ReportData
+        Get
+            Return _Report
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("Report", _Report, value)
+        End Set
+    End Property
+
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Intrastat/IntrastatRows.vb

@@ -0,0 +1,126 @@
+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 IntrastatRows
+    Inherits BaseObject
+
+    Private _IntrastatHeader As IntrastatHeader
+    Private _RowIndex As Long
+    Private _CustomsTariffs As CustomsTariffs
+    Private _ITransactionNumber As String
+    Private _ShipmentOption As ShipmentOption
+    Private _ShipingCode As String
+    Private _CountrySender As Country 'Szállítóllevél sorhoz tartozó ország
+    Private _CountryFrom As Country 'Termékhez tartozó származási ország
+    Private _Weight As Double
+    Private _Area As Double
+    Private _AmountHUF As Double 'SUMPrice HUF-os a szállítólevél sorból
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("IntrastatHeader - IntrastatRows", GetType(IntrastatHeader))> _
+    Property IntrastatHeader As IntrastatHeader
+        Get
+            Return _IntrastatHeader
+        End Get
+        Set(value As IntrastatHeader)
+            SetPropertyValue("IntrastatHeader", _IntrastatHeader, value)
+        End Set
+    End Property
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property CustomsTariffs As CustomsTariffs
+        Get
+            Return _CustomsTariffs
+        End Get
+        Set(value As CustomsTariffs)
+            SetPropertyValue("CustomsTariffs", _CustomsTariffs, value)
+        End Set
+    End Property
+    Property ITransactionNumber As String
+        Get
+            Return _ITransactionNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("ITransactionNumber", _ITransactionNumber, value)
+        End Set
+    End Property
+    Property ShipmentOption As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property ShipingCode As String
+        Get
+            Return _ShipingCode
+        End Get
+        Set(value As String)
+            SetPropertyValue("ShipingCode", _ShipingCode, value)
+        End Set
+    End Property
+    Property CountrySender As Country
+        Get
+            Return _CountrySender
+        End Get
+        Set(value As Country)
+            SetPropertyValue("CountrySender", _CountrySender, value)
+        End Set
+    End Property
+    Property CountryFrom As Country
+        Get
+            Return _CountryFrom
+        End Get
+        Set(value As Country)
+            SetPropertyValue("CountryFrom", _CountryFrom, value)
+        End Set
+    End Property
+    Property Weight As Double
+        Get
+            Return _Weight
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Weight", _Weight, value)
+        End Set
+    End Property
+    Property Area As Double
+        Get
+            Return _Area
+        End Get
+        Set(value As Double)
+            SetPropertyValue("Area", _Area, value)
+        End Set
+    End Property
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsHeader.vb

@@ -0,0 +1,53 @@
+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("DeliveryNoteInFromOffersInRowsHeader - Disable OfferInHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OfferInHeader", Enabled:=False)> _
+Public Class DeliveryNoteInFromOffersInRowsHeader
+    Inherits BaseObject
+
+    Private _OfferInHeader As OfferInHeader
+    Private _DeliveryNoteInType As DeliveryNoteInType
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property OfferInHeader As OfferInHeader
+        Get
+            Return _OfferInHeader
+        End Get
+        Set(value As OfferInHeader)
+            SetPropertyValue("OfferInHeader", _OfferInHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInFromOffersInRowsHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+
+    <Association("DeliveryNoteInFromOffersInRowsHeader-DeliveryNoteInFromOffersInRowsRows", GetType(DeliveryNoteInFromOffersInRowsRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInFromOffersInRowsRows As XPCollection(Of DeliveryNoteInFromOffersInRowsRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInFromOffersInRowsRows)("DeliveryNoteInFromOffersInRowsRows")
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOffersInRowsRows.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
+Imports System.Linq
+
+<DefaultClassOptions(), CreatableItem(False), NavigationItem(False)> _
+Public Class DeliveryNoteInFromOffersInRowsRows
+    Inherits BaseObject
+
+    Private _DeliveryNoteInFromOffersInRowsHeader As DeliveryNoteInFromOffersInRowsHeader
+    Private _OfferInRows As OfferInRows
+    Private _QTT_Process As Double
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+
+    End Sub
+    <Association("DeliveryNoteInFromOffersInRowsHeader-DeliveryNoteInFromOffersInRowsRows", GetType(DeliveryNoteInFromOffersInRowsHeader))> _
+    Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOffersInRowsHeader
+        Get
+            Return _DeliveryNoteInFromOffersInRowsHeader
+        End Get
+        Set(value As DeliveryNoteInFromOffersInRowsHeader)
+            SetPropertyValue("DeliveryNoteInFromOffersInRowsHeader", _DeliveryNoteInFromOffersInRowsHeader, value)
+        End Set
+    End Property
+    Property OfferInRows As OfferInRows
+        Get
+            Return _OfferInRows
+        End Get
+        Set(value As OfferInRows)
+            SetPropertyValue("OfferInRows", _OfferInRows, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    ReadOnly Property QTT_DeliveryNoteIn As Double
+        Get
+            Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _DNIR In _DeliveryNoteInRows
+                    Where _DNIR.OfferInRows Is OfferInRows
+            Group _DNIR By _DNIR.OfferInRows Into g = Group _
+            Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each item In query
+                _QTT_Sum = item.QTT_Sum
+            Next
+
+            Return _QTT_Sum
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsHeader.vb

@@ -0,0 +1,50 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Disable OrderOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="OrderOutHeader", Enabled:=False)> _
+Public Class DeliveryNoteInFromOrderOutRowsHeader
+    Inherits BaseObject
+    Private _OrderOutHeader As OrderOutHeader ' Kimenő megrendelés fejléc
+    Private _DeliveryNoteInType As DeliveryNoteInType
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("DeliveryNoteInFromOrderOutRowsHeader-DeliveryNoteInFromOrderOutRowsRows", GetType(DeliveryNoteInFromOrderOutRowsRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteInFromOrderOutRowsRows As XPCollection(Of DeliveryNoteInFromOrderOutRowsRows)
+        Get
+            Return GetCollection(Of DeliveryNoteInFromOrderOutRowsRows)("DeliveryNoteInFromOrderOutRowsRows")
+        End Get
+    End Property
+    Property OrderOutHeader As OrderOutHeader
+        Get
+            Return _OrderOutHeader
+        End Get
+        Set(value As OrderOutHeader)
+            SetPropertyValue("OrderOutHeader", _OrderOutHeader, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteInFromOrderOutRowsHeader.DeliveryNoteInType", DefaultContexts.Save)> _
+    Property DeliveryNoteInType As DeliveryNoteInType
+        Get
+            Return _DeliveryNoteInType
+        End Get
+        Set(value As DeliveryNoteInType)
+            SetPropertyValue("DeliveryNoteInType", _DeliveryNoteInType, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInFromOrderOutRowsRows.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
+Imports System.Linq
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DeliveryNoteInFromOrderOutRowsRows
+    Inherits BaseObject
+    Private _DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader
+    Private _OrderOutRows As OrderOutRows
+    Private _QTT_Process As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Association("DeliveryNoteInFromOrderOutRowsHeader-DeliveryNoteInFromOrderOutRowsRows", GetType(DeliveryNoteInFromOrderOutRowsHeader))> _
+    Property DeliveryNoteInFromOrderOutRowsHeader As DeliveryNoteInFromOrderOutRowsHeader
+        Get
+            Return _DeliveryNoteInFromOrderOutRowsHeader
+        End Get
+        Set(value As DeliveryNoteInFromOrderOutRowsHeader)
+            SetPropertyValue("DeliveryNoteInFromOrderOutRowsHeader", _DeliveryNoteInFromOrderOutRowsHeader, value)
+        End Set
+    End Property
+    Property OrderOutRows As OrderOutRows
+        Get
+            Return _OrderOutRows
+        End Get
+        Set(value As OrderOutRows)
+            SetPropertyValue("OrderOutRows", _OrderOutRows, value)
+        End Set
+    End Property
+    Property QTT_Process As Double
+        Get
+            Return _QTT_Process
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Process", _QTT_Process, value)
+        End Set
+    End Property
+    ReadOnly Property QTT_DeliveryNoteIn As Double
+        Get
+            Dim _DeliveryNoteInRows As New XPQuery(Of DeliveryNoteInRows)(Session)
+            Dim _QTT_Sum As Double = 0
+            Dim query = From _DNIR In _DeliveryNoteInRows
+                    Where _DNIR.OrderOutRows Is OrderOutRows
+            Group _DNIR By _DNIR.OrderOutRows Into g = Group _
+            Select New With {Key .QTT_Sum = g.Sum(Function(inv) inv.QTT)}
+
+            For Each item In query
+                _QTT_Sum = item.QTT_Sum
+            Next
+
+            Return _QTT_Sum
+        End Get
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInRRFC_Popup.vb

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToRegistry.vb

@@ -0,0 +1,57 @@
+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 DeliveryNoteInToRegistry
+    Inherits BaseObject
+
+    Private _RegistryType As RegistryType 'Iktatás típusa
+    Private _F_CustomerBankAccounts As CustomerBankAccounts
+    Private _RegistryNumber 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 RegistryType As RegistryType
+        Get
+            Return _RegistryType
+        End Get
+        Set(value As RegistryType)
+            SetPropertyValue("RegistryType", _RegistryType, value)
+        End Set
+    End Property
+    Property F_CustomerBankAccounts As CustomerBankAccounts
+        Get
+            Return _F_CustomerBankAccounts
+        End Get
+        Set(value As CustomerBankAccounts)
+            SetPropertyValue("F_CustomerBankAccounts", _F_CustomerBankAccounts, value)
+        End Set
+    End Property
+    Property RegistryNumber As String
+        Get
+            Return _RegistryNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("RegistryNumber", _RegistryNumber, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.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()> _
+<NavigationItem(False), CreatableItem(False)> _
+<NonPersistent()> _
+Public Class DeliveryNoteInToStorageInHeader
+    Inherits BaseObject
+    Private _Storage As Storage
+    Private _StorageMoveType As StorageMoveType
+    Private _IsRegistry As Boolean
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        IsRegistry = False
+    End Sub
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <DataSourceCriteria("Storage='@This.Storage'")> _
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+        End Set
+    End Property
+    Property IsRegistry As Boolean
+        Get
+            Return _IsRegistry
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsRegistry", _IsRegistry, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutHeader.vb

@@ -0,0 +1,259 @@
+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("BusinessTransactions")> _
+<Appearance("DeliveryNoteOutHeader - Disabled IsEditable and IsStorno", "1=1", TargetItems:="IsEditable;IsStorno", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable DeliveryNoteOutHeader-DocumentNumber", AppearanceItemType.ViewItem, "1=1", TargetItems:="DocumentNumber", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable ObjectCreated DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="ObjectCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable UserCreated DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "IsEditable=False", TargetItems:="*", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable all property when IsEditable=False DeliveryNoteOutHeader", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Hide Item2 DeliveryNoteOutHeader", AppearanceItemType.LayoutItem, "IsNull(DocumentNumber) Or IsNull(DeliveryNoteOutType) Or IsNull(Customers) Or IsNull(CustomersFrom) Or IsNull(ShipmentOption)", TargetItems:="Item2", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteOutHeader - Disable aTotable_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotable_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Hide aTotableD_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aTotableD_DeliveryNoteOut", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteOutHeader - Hide aFinalize_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aFinalize_DeliveryNoteOut", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteOutHeader - Disable aDown_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aDown_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable aUp_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = False", TargetItems:="aUp_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader - Disable aBackToEdit_DeliveryNoteOut", AppearanceItemType.Action, "IsEditable = True", TargetItems:="aBackToEdit_DeliveryNoteOut", Enabled:=False)> _
+<Appearance("DeliveryNoteOutHeader -  Hide all row_ properties, when IsEditable = False", AppearanceItemType.ViewItem, "IsEditable = False", TargetItems:="row_StorageOutRowsInRows;row_QTT;row_NoteRows", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class DeliveryNoteOutHeader 'Kimenő szállítólevél fejléc
+    Inherits BaseObject
+    Private _DeliveryNoteOutType As DeliveryNoteOutType
+    Private _DocumentNumber As String ' Sorszám
+    Private _CustomersFrom As CustomersFrom ' Sajátcég
+    Private _Customers As Customers ' Ügyfél
+    Private _DateCreated As Date ' Létrehozás dátuma
+    Private _DateExecution As Date ' Végrehajtás dátuma
+    Private _ShipmentOption As ShipmentOption ' Szállítási opció
+    Private _QualityOption As QualityOption ' Minőségi opció
+    Private _CurrencyName As CurrencyName ' Deviza
+    Private _Note As String ' Megjegyzés
+    Private _TransportAddress As Address ' -- Szállítási cím
+    Private _IsEditable As Boolean = True 'Szerkeszthető
+    Private _IsStorno As Boolean = False 'Végleges
+    Private _ObjectCreated As Date 'Objektum keletkezésének dátuma
+    Private _UserCreated As User
+    Private _ConnectInfo As String
+
+    '--Nonpersistent propertyk
+    Private _row_StorageOutRowsInRows As StorageOutRowsInRows
+    Private _row_QTT As Double
+    Private _row_NoteRows As String 'Sor megjegyzés
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        If String.IsNullOrEmpty(DocumentNumber) Then _
+        _DocumentNumber = DeliveryNoteOutType.NumberGenerator.GetNewNumber(DeliveryNoteOutType.NumberGenerator)
+        If String.IsNullOrEmpty(ConnectInfo) Then ConnectInfo = DocumentNumber
+        If Session.IsNewObject(Me) Then
+            ObjectCreated = GetSQLTime(Session)
+            UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+        End If
+    End Sub
+    <RuleRequiredField("DeliveryNoteOutHeader.DeliveryNoteOutType", DefaultContexts.Save)> _
+    Property DeliveryNoteOutType As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber() As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property DateCreated() As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.ShipmentOption", DefaultContexts.Save)> _
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutHeader.TransportAddress", DefaultContexts.Save)> _
+    Property TransportAddress As Address
+        Get
+            Return _TransportAddress
+        End Get
+        Set(value As Address)
+            SetPropertyValue("TransportAddress", _TransportAddress, value)
+        End Set
+    End Property
+    Property IsEditable() As Boolean
+        Get
+            Return _IsEditable
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsEditable", _IsEditable, value)
+        End Set
+    End Property
+    Property IsStorno() As Boolean
+        Get
+            Return _IsStorno
+        End Get
+        Set(ByVal value As Boolean)
+            SetPropertyValue("IsStorno", _IsStorno, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property ConnectInfo As String
+        Get
+            Return _ConnectInfo
+        End Get
+        Set(value As String)
+            SetPropertyValue("ConnectInfo", _ConnectInfo, value)
+        End Set
+    End Property
+
+    '------ReadOnly--------
+    <Association("DeliveryNoteOutHeader-DeliveryNoteOutRows", GetType(DeliveryNoteOutRows)), VisibleInListView(False)> _
+    ReadOnly Property DeliveryNoteOutRows() As XPCollection(Of DeliveryNoteOutRows)
+        Get
+            Return GetCollection(Of DeliveryNoteOutRows)("DeliveryNoteOutRows")
+        End Get
+    End Property
+
+    '--Nonpersistent propertyk
+    <NonPersistent()> _
+    <DataSourceProperty("StorageOutRowsInRows")> _
+    Property row_StorageOutRowsInRows As StorageOutRowsInRows
+        Get
+            Return _row_StorageOutRowsInRows
+        End Get
+        Set(value As StorageOutRowsInRows)
+            SetPropertyValue("row_StorageOutRowsInRows", _row_StorageOutRowsInRows, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property row_QTT As Double
+        Get
+            Return _row_QTT
+        End Get
+        Set(value As Double)
+            SetPropertyValue("row_QTT", _row_QTT, value)
+        End Set
+    End Property
+    <NonPersistent()> _
+    Property row_NoteRows As String
+        Get
+            Return _row_NoteRows
+        End Get
+        Set(value As String)
+            SetPropertyValue("row_NoteRows", _row_NoteRows, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+   <Browsable(False)> _
+    Private ReadOnly Property StorageOutRowsInRows As XPCollection(Of StorageOutRowsInRows)
+        Get
+
+            Dim _StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows)
+            Dim _Criteria As String
+
+            _Criteria = "(QTT_To_DeliveryOut + QTT_Will) < QTT"
+
+            _StorageOutRowsInRows_Collection = New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse(_Criteria))
+            Return _StorageOutRowsInRows_Collection
+        End Get
+    End Property
+End Class
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutRows.vb

@@ -0,0 +1,126 @@
+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
+
+'--- Kimenő szállítólevelek
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DeliveryNoteOutRows 'Szállítólevél sorok
+    Inherits BaseObject
+    Private _RowIndex As Long
+    Private _DeliveryNoteOutHeader As DeliveryNoteOutHeader
+    Private _StorageOutRowsInRows As StorageOutRowsInRows
+    Private _QTT As Double
+    Private _QTT_Invoiced As Double
+    Private _QTT_Will As Double
+    Private _Note As String
+    Private _ADRNumber As Double
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        '// ADR számolás !!!
+        If StorageOutRowsInRows IsNot Nothing Then
+            Dim _ADRFactor As Long = 0
+            If StorageOutRowsInRows.StorageOutRows IsNot Nothing Then
+                If StorageOutRowsInRows.StorageOutRows.Products IsNot Nothing Then
+                    Select Case StorageOutRowsInRows.StorageOutRows.Products.ADRPackingUnit
+                        Case eADRPackingUnit.eNotSet
+                            _ADRFactor = 0
+                        Case eADRPackingUnit.eUnit_I
+                            _ADRFactor = 50
+                        Case eADRPackingUnit.eUnit_II
+                            _ADRFactor = 3
+                        Case eADRPackingUnit.eUnit_III
+                            _ADRFactor = 1
+                    End Select
+                    If StorageOutRowsInRows.StorageOutRows.Products.Units.ShortName = "to" Then
+                        ADRNumber = _ADRFactor * QTT * 1000
+                    Else
+                        ADRNumber = _ADRFactor * QTT
+                    End If
+
+                    ' ADRNumber = _ADRFactor * QTT
+                End If
+            End If
+        End If
+    End Sub
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(ByVal value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    <Association("DeliveryNoteOutHeader-DeliveryNoteOutRows", GetType(DeliveryNoteOutHeader))> _
+    Property DeliveryNoteOutHeader() As DeliveryNoteOutHeader
+        Get
+            Return _DeliveryNoteOutHeader
+        End Get
+        Set(ByVal value As DeliveryNoteOutHeader)
+            SetPropertyValue("DeliveryNoteOutHeader", _DeliveryNoteOutHeader, value)
+        End Set
+    End Property
+    <DataSourceCriteria("(QTT-QTT_To_DeliveryOut)>0")> _
+    Property StorageOutRowsInRows() As StorageOutRowsInRows
+        Get
+            Return _StorageOutRowsInRows
+        End Get
+        Set(ByVal value As StorageOutRowsInRows)
+            SetPropertyValue("StorageOutRowsInRows", _StorageOutRowsInRows, value)
+        End Set
+    End Property
+    Property QTT() As Double
+        Get
+            Return _QTT
+        End Get
+        Set(ByVal value As Double)
+            SetPropertyValue("QTT", _QTT, value)
+        End Set
+    End Property
+    Property QTT_Invoiced As Double
+        Get
+            Return _QTT_Invoiced
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, value)
+        End Set
+    End Property
+    Property QTT_Will As Double
+        Get
+            Return _QTT_Will
+        End Get
+        Set(value As Double)
+            SetPropertyValue("QTT_Will", _QTT_Will, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    Property ADRNumber As Double
+        Get
+            Return _ADRNumber
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ADRNumber", _ADRNumber, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutType.vb

@@ -0,0 +1,97 @@
+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 eExportMode
+    eInternalwithVAT = 0 'Belföldi ÁFÁ-s
+    eExternalEUwithVAT = 1 'EU-ból ÁFÁ-s
+    eExternalEUNoVAT = 2 'EU-ból nem ÁFÁs
+    eExternalOther = 3 ' EU-n kívüli nem ÁFÁS
+    eInversVAT = 4 'Fordított adózás
+End Enum
+<DefaultClassOptions()> _
+<NavigationItem("BusinessStocks")> _
+Public Class DeliveryNoteOutType 'Kimenõ szállítólevél  tipusok
+    Inherits BaseObject
+    Private _ExportMode As eExportMode '
+    Private _IsPrice As Boolean = True 'Van-e ár
+    Private _ShortName As String 'Megnevezés
+    Private _Description As String 'Leírás
+    Private _NumberGenerator As NumberGenerator 'Sorszám generátor
+    Private _ReportData As ReportData
+    Private _CurrencyName As CurrencyName
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Property ExportMode As eExportMode
+        Get
+            Return _ExportMode
+        End Get
+        Set(value As eExportMode)
+            SetPropertyValue("ExportMode", _ExportMode, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.IsPrice", DefaultContexts.Save)> _
+    Property IsPrice As Boolean
+        Get
+            Return _IsPrice
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsPrice", _IsPrice, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.ShortName", DefaultContexts.Save)> _
+    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
+    <RuleRequiredField("DeliveryNoteOutType.NumberGenerator", DefaultContexts.Save)> _
+    Property NumberGenerator As NumberGenerator
+        Get
+            Return _NumberGenerator
+        End Get
+        Set(value As NumberGenerator)
+            SetPropertyValue("NumberGenerator", _NumberGenerator, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.ReportData", DefaultContexts.Save)> _
+    Property ReportData As ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteOutType.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.Designer.vb

@@ -0,0 +1,259 @@
+Partial Class DeliveryNoteOutVC
+
+	<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.aTotable_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aTotableD_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDown_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aUp_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalize_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aStorno_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDeliveryNoteOutPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aBackToEdit_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalizeAndNew_DeliveryNoteOut = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreate_DeliveryNoteOutFromStorageORIR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreate_InvoiceFromStorageORIR = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aDeliveryNoteOutRowsPrint = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCheckDeliveryNoteOutWeight = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        '
+        'aTotable_DeliveryNoteOut
+        '
+        Me.aTotable_DeliveryNoteOut.Caption = "Add row"
+        Me.aTotable_DeliveryNoteOut.Category = "aTotable_DeliveryNoteOut"
+        Me.aTotable_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aTotable_DeliveryNoteOut.Id = "aTotable_DeliveryNoteOut"
+        Me.aTotable_DeliveryNoteOut.ImageName = "table_add"
+        Me.aTotable_DeliveryNoteOut.Shortcut = Nothing
+        Me.aTotable_DeliveryNoteOut.Tag = Nothing
+        Me.aTotable_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aTotable_DeliveryNoteOut.TargetViewId = ""
+        Me.aTotable_DeliveryNoteOut.ToolTip = Nothing
+        Me.aTotable_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aTotableD_DeliveryNoteOut
+        '
+        Me.aTotableD_DeliveryNoteOut.Caption = "Delete row"
+        Me.aTotableD_DeliveryNoteOut.Category = "aTotableD_DeliveryNoteOut"
+        Me.aTotableD_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aTotableD_DeliveryNoteOut.Id = "aTotableD_DeliveryNoteOut"
+        Me.aTotableD_DeliveryNoteOut.ImageName = "table_delete"
+        Me.aTotableD_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aTotableD_DeliveryNoteOut.Shortcut = Nothing
+        Me.aTotableD_DeliveryNoteOut.Tag = Nothing
+        Me.aTotableD_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aTotableD_DeliveryNoteOut.TargetViewId = ""
+        Me.aTotableD_DeliveryNoteOut.ToolTip = Nothing
+        Me.aTotableD_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aDown_DeliveryNoteOut
+        '
+        Me.aDown_DeliveryNoteOut.Caption = "Down"
+        Me.aDown_DeliveryNoteOut.Category = "RecordsNavigation"
+        Me.aDown_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aDown_DeliveryNoteOut.Id = "aDown_DeliveryNoteOut"
+        Me.aDown_DeliveryNoteOut.ImageName = "arrow_down_green"
+        Me.aDown_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDown_DeliveryNoteOut.Shortcut = Nothing
+        Me.aDown_DeliveryNoteOut.Tag = Nothing
+        Me.aDown_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aDown_DeliveryNoteOut.TargetViewId = Nothing
+        Me.aDown_DeliveryNoteOut.ToolTip = Nothing
+        Me.aDown_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aUp_DeliveryNoteOut
+        '
+        Me.aUp_DeliveryNoteOut.Caption = "Up"
+        Me.aUp_DeliveryNoteOut.Category = "RecordsNavigation"
+        Me.aUp_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aUp_DeliveryNoteOut.Id = "aUp_DeliveryNoteOut"
+        Me.aUp_DeliveryNoteOut.ImageName = "arrow_up_green"
+        Me.aUp_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aUp_DeliveryNoteOut.Shortcut = Nothing
+        Me.aUp_DeliveryNoteOut.Tag = Nothing
+        Me.aUp_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aUp_DeliveryNoteOut.TargetViewId = Nothing
+        Me.aUp_DeliveryNoteOut.ToolTip = Nothing
+        Me.aUp_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aFinalize_DeliveryNoteOut
+        '
+        Me.aFinalize_DeliveryNoteOut.Caption = "aFinalize_DeliveryNoteOut"
+        Me.aFinalize_DeliveryNoteOut.Category = "ObjectsCreation"
+        Me.aFinalize_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aFinalize_DeliveryNoteOut.Id = "aFinalize_DeliveryNoteOut"
+        Me.aFinalize_DeliveryNoteOut.ImageName = Nothing
+        Me.aFinalize_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFinalize_DeliveryNoteOut.Shortcut = Nothing
+        Me.aFinalize_DeliveryNoteOut.Tag = Nothing
+        Me.aFinalize_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aFinalize_DeliveryNoteOut.TargetViewId = ""
+        Me.aFinalize_DeliveryNoteOut.ToolTip = Nothing
+        Me.aFinalize_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aStorno_DeliveryNoteOut
+        '
+        Me.aStorno_DeliveryNoteOut.Caption = "aStorno_DeliveryNoteOut"
+        Me.aStorno_DeliveryNoteOut.Category = "aStorno_DeliveryNoteOut"
+        Me.aStorno_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aStorno_DeliveryNoteOut.Id = "aStorno_DeliveryNoteOut"
+        Me.aStorno_DeliveryNoteOut.ImageName = Nothing
+        Me.aStorno_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aStorno_DeliveryNoteOut.Shortcut = Nothing
+        Me.aStorno_DeliveryNoteOut.Tag = Nothing
+        Me.aStorno_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aStorno_DeliveryNoteOut.TargetViewId = ""
+        Me.aStorno_DeliveryNoteOut.ToolTip = Nothing
+        Me.aStorno_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aDeliveryNoteOutPrint
+        '
+        Me.aDeliveryNoteOutPrint.Caption = "aDeliveryNoteOutPrint"
+        Me.aDeliveryNoteOutPrint.Category = "View"
+        Me.aDeliveryNoteOutPrint.ConfirmationMessage = Nothing
+        Me.aDeliveryNoteOutPrint.Id = "aDeliveryNoteOutPrint"
+        Me.aDeliveryNoteOutPrint.ImageName = Nothing
+        Me.aDeliveryNoteOutPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDeliveryNoteOutPrint.Shortcut = Nothing
+        Me.aDeliveryNoteOutPrint.Tag = Nothing
+        Me.aDeliveryNoteOutPrint.TargetObjectsCriteria = Nothing
+        Me.aDeliveryNoteOutPrint.TargetViewId = Nothing
+        Me.aDeliveryNoteOutPrint.ToolTip = Nothing
+        Me.aDeliveryNoteOutPrint.TypeOfView = Nothing
+        '
+        'aBackToEdit_DeliveryNoteOut
+        '
+        Me.aBackToEdit_DeliveryNoteOut.Caption = "aBackToEdit_DeliveryNoteOut"
+        Me.aBackToEdit_DeliveryNoteOut.Category = "Edit"
+        Me.aBackToEdit_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aBackToEdit_DeliveryNoteOut.Id = "aBackToEdit_DeliveryNoteOut"
+        Me.aBackToEdit_DeliveryNoteOut.ImageName = Nothing
+        Me.aBackToEdit_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aBackToEdit_DeliveryNoteOut.Shortcut = Nothing
+        Me.aBackToEdit_DeliveryNoteOut.Tag = Nothing
+        Me.aBackToEdit_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aBackToEdit_DeliveryNoteOut.TargetViewId = ""
+        Me.aBackToEdit_DeliveryNoteOut.ToolTip = Nothing
+        Me.aBackToEdit_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aFinalizeAndNew_DeliveryNoteOut
+        '
+        Me.aFinalizeAndNew_DeliveryNoteOut.Caption = "aFinalizeAndNew_DeliveryNoteOut"
+        Me.aFinalizeAndNew_DeliveryNoteOut.Category = "ObjectsCreation"
+        Me.aFinalizeAndNew_DeliveryNoteOut.ConfirmationMessage = Nothing
+        Me.aFinalizeAndNew_DeliveryNoteOut.Id = "aFinalizeAndNew_DeliveryNoteOut"
+        Me.aFinalizeAndNew_DeliveryNoteOut.ImageName = Nothing
+        Me.aFinalizeAndNew_DeliveryNoteOut.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aFinalizeAndNew_DeliveryNoteOut.Shortcut = Nothing
+        Me.aFinalizeAndNew_DeliveryNoteOut.Tag = Nothing
+        Me.aFinalizeAndNew_DeliveryNoteOut.TargetObjectsCriteria = Nothing
+        Me.aFinalizeAndNew_DeliveryNoteOut.TargetViewId = ""
+        Me.aFinalizeAndNew_DeliveryNoteOut.ToolTip = Nothing
+        Me.aFinalizeAndNew_DeliveryNoteOut.TypeOfView = Nothing
+        '
+        'aCreate_DeliveryNoteOutFromStorageORIR
+        '
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.AcceptButtonCaption = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.CancelButtonCaption = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.Caption = "aCreate_DeliveryNoteOutFromStorageORIR"
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.Category = "ObjectsCreation"
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.ConfirmationMessage = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.Id = "aCreate_DeliveryNoteOutFromStorageORIR"
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.ImageName = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.Shortcut = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.Tag = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.TargetObjectsCriteria = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.TargetViewId = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.ToolTip = Nothing
+        Me.aCreate_DeliveryNoteOutFromStorageORIR.TypeOfView = Nothing
+        '
+        'aCreate_InvoiceFromStorageORIR
+        '
+        Me.aCreate_InvoiceFromStorageORIR.AcceptButtonCaption = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.CancelButtonCaption = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.Caption = "aCreate_InvoiceFromStorageORIR"
+        Me.aCreate_InvoiceFromStorageORIR.Category = "ObjectsCreation"
+        Me.aCreate_InvoiceFromStorageORIR.ConfirmationMessage = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.Id = "aCreate_InvoiceFromStorageORIR"
+        Me.aCreate_InvoiceFromStorageORIR.ImageName = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCreate_InvoiceFromStorageORIR.Shortcut = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.Tag = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.TargetObjectsCriteria = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.TargetViewId = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.ToolTip = Nothing
+        Me.aCreate_InvoiceFromStorageORIR.TypeOfView = Nothing
+        '
+        'aDeliveryNoteOutRowsPrint
+        '
+        Me.aDeliveryNoteOutRowsPrint.Caption = "aDeliveryNoteOutRowsPrint"
+        Me.aDeliveryNoteOutRowsPrint.Category = "Print"
+        Me.aDeliveryNoteOutRowsPrint.ConfirmationMessage = Nothing
+        Me.aDeliveryNoteOutRowsPrint.Id = "aDeliveryNoteOutRowsPrint"
+        Me.aDeliveryNoteOutRowsPrint.ImageName = Nothing
+        Me.aDeliveryNoteOutRowsPrint.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aDeliveryNoteOutRowsPrint.Shortcut = Nothing
+        Me.aDeliveryNoteOutRowsPrint.Tag = Nothing
+        Me.aDeliveryNoteOutRowsPrint.TargetObjectsCriteria = Nothing
+        Me.aDeliveryNoteOutRowsPrint.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteOutRows)
+        Me.aDeliveryNoteOutRowsPrint.TargetViewId = Nothing
+        Me.aDeliveryNoteOutRowsPrint.ToolTip = Nothing
+        Me.aDeliveryNoteOutRowsPrint.TypeOfView = Nothing
+        '
+        'aCheckDeliveryNoteOutWeight
+        '
+        Me.aCheckDeliveryNoteOutWeight.Caption = "aCheck Delivery Note Out Weight"
+        Me.aCheckDeliveryNoteOutWeight.ConfirmationMessage = "Are you sure ?"
+        Me.aCheckDeliveryNoteOutWeight.Id = "aCheckDeliveryNoteOutWeight"
+        Me.aCheckDeliveryNoteOutWeight.ImageName = Nothing
+        Me.aCheckDeliveryNoteOutWeight.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
+        Me.aCheckDeliveryNoteOutWeight.Shortcut = Nothing
+        Me.aCheckDeliveryNoteOutWeight.Tag = Nothing
+        Me.aCheckDeliveryNoteOutWeight.TargetObjectsCriteria = Nothing
+        Me.aCheckDeliveryNoteOutWeight.TargetObjectType = GetType(SISBusiness.[Module].DeliveryNoteOutHeader)
+        Me.aCheckDeliveryNoteOutWeight.TargetViewId = Nothing
+        Me.aCheckDeliveryNoteOutWeight.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
+        Me.aCheckDeliveryNoteOutWeight.ToolTip = Nothing
+        Me.aCheckDeliveryNoteOutWeight.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+
+    End Sub
+    Friend WithEvents aTotable_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aTotableD_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDown_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aUp_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalize_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aStorno_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDeliveryNoteOutPrint As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aBackToEdit_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalizeAndNew_DeliveryNoteOut As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreate_DeliveryNoteOutFromStorageORIR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreate_InvoiceFromStorageORIR As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aDeliveryNoteOutRowsPrint As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCheckDeliveryNoteOutWeight As DevExpress.ExpressApp.Actions.SimpleAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.resx

@@ -0,0 +1,162 @@
+<?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="aTotable_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 485</value>
+  </metadata>
+  <metadata name="aTotableD_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 446</value>
+  </metadata>
+  <metadata name="aDown_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 407</value>
+  </metadata>
+  <metadata name="aUp_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 368</value>
+  </metadata>
+  <metadata name="aFinalize_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 290</value>
+  </metadata>
+  <metadata name="aStorno_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 329</value>
+  </metadata>
+  <metadata name="aDeliveryNoteOutPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 212</value>
+  </metadata>
+  <metadata name="aBackToEdit_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 251</value>
+  </metadata>
+  <metadata name="aFinalizeAndNew_DeliveryNoteOut.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 95</value>
+  </metadata>
+  <metadata name="aCreate_DeliveryNoteOutFromStorageORIR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 173</value>
+  </metadata>
+  <metadata name="aCreate_InvoiceFromStorageORIR.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 134</value>
+  </metadata>
+  <metadata name="aDeliveryNoteOutRowsPrint.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 56</value>
+  </metadata>
+  <metadata name="aCheckDeliveryNoteOutWeight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>20, 540</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/BusinessTransactions/DeliveryNote/DeliveryNoteOut/DeliveryNoteOutVC.vb

@@ -0,0 +1,688 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.Editors
+Imports DevExpress.Xpo
+Imports DevExpress.ExpressApp.SystemModule
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.ExpressApp.Utils
+
+
+Public Class DeliveryNoteOutVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+        Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False) ' kiválasztott sor fel
+        Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False) ' kiválasztott sor le
+
+        Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aDeliveryNoteOutPrint.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
+        Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", False)
+
+        If View.Id = "DeliveryNoteOutHeader_ListView_Editable" Then
+            Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
+        End If
+
+        If View.Id = "DeliveryNoteOutRows_ListView_Invoice" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Active.SetItemValue("", True)
+
+            AddHandler View.SelectionChanged, AddressOf DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged
+        End If
+
+        If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
+
+            AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
+        End If
+
+        If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
+
+            AddHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
+        End If
+
+        If View.Id = "StorageOutRowsInRows_LookupListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+        End If
+
+        If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", True)
+        End If
+        '------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", True)
+        End If
+
+        '------------------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteView_DetailView" Then
+
+            AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+        If View.Id = "DeliveryNoteOutHeader_DetailView" Then
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
+            If _DeliveryNoteOutHeader IsNot Nothing Then
+                If _DeliveryNoteOutHeader.IsEditable = False Then
+                    Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", False)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", False)
+                Else
+                    Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", True)
+                    Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", True)
+                    Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", True)
+                    Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", True)
+                End If
+            End If
+        End If
+    End Sub
+    Protected Overrides Sub OnDeactivated()
+        MyBase.OnDeactivated()
+        If View.Id = "DeliveryNoteOutHeader_ListView_Editable" Then
+            Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
+        End If
+
+        If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", False)
+
+            RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
+        End If
+
+        If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_Transfer" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Active.SetItemValue("", True)
+
+            RemoveHandler View.SelectionChanged, AddressOf StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged
+        End If
+
+        If View.Id = "StorageOutRowsInRows_LookupListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+        End If
+
+        If View.Id = "DeliveryNoteOutHeader_ListView_NonEditable" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC).aStorno_DeliveryNoteOut.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aBackToEdit_DeliveryNoteOut.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC)().aDeliveryNoteOutPrint.Active.SetItemValue("", False)
+        End If
+        '------------------- LISTVIEWS -------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteOutHeader_DeliveryNoteOutRows_ListView" Then
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.LinkUnlinkController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ListViewProcessCurrentObjectController)().Active.SetItemValue("", True)
+            Frame.GetController(Of DeliveryNoteOutVC).aUp_DeliveryNoteOut.Active.SetItemValue("", False)
+            Frame.GetController(Of DeliveryNoteOutVC).aDown_DeliveryNoteOut.Active.SetItemValue("", False)
+        End If
+
+        '------------------- DETAILVIEWS -------------------------------------------------------------------------------------------------------------------------------
+        If View.Id = "DeliveryNoteView_DetailView" Then
+
+            RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf AcceptAction_Executing
+        End If
+        If View.Id = "DeliveryNoteOutHeader_DetailView" Then
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
+            If _DeliveryNoteOutHeader IsNot Nothing Then
+                If _DeliveryNoteOutHeader.IsEditable = False Then
+                    Frame.GetController(Of DevExpress.ExpressApp.CloneObject.CloneObjectViewController)().Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController)().Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DeleteObjectsViewController)().Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndCloseAction.Active.SetItemValue("", True)
+                    Frame.GetController(Of DevExpress.ExpressApp.SystemModule.ModificationsController)().SaveAndNewAction.Active.SetItemValue("", True)
+                Else
+                    Frame.GetController(Of DeliveryNoteOutVC).aTotable_DeliveryNoteOut.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeliveryNoteOutVC).aTotableD_DeliveryNoteOut.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeliveryNoteOutVC).aFinalize_DeliveryNoteOut.Active.SetItemValue("", False)
+                    Frame.GetController(Of DeliveryNoteOutVC).aFinalizeAndNew_DeliveryNoteOut.Active.SetItemValue("", False)
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub AcceptAction_Executing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
+        Validator.RuleSet.ValidateAll(View.ObjectSpace, View.SelectedObjects, DefaultContexts.Save)
+    End Sub
+    Private Sub aUp_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aUp_DeliveryNoteOut.Execute
+        If View.SelectedObjects(0) IsNot Nothing Then
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.Oid)
+            _DeliveryNoteOutHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+            Dim _DeliveryNoteOutRowsSelected As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows)
+            Dim _DeliveryNoteOutRows_Previous As DeliveryNoteOutRows = Nothing
+            Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
+            Dim _Valid_RowIndex = False
+
+            For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
+                If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsSelected.Oid Then
+                    If _DeliveryNoteOutRows.Oid <> _DeliveryNoteOutHeader.DeliveryNoteOutRows(0).Oid Then
+                        _DeliveryNoteOutRows.RowIndex -= 1
+                        _Valid_RowIndex = True
+                        Exit For
+                    End If
+                End If
+                _DeliveryNoteOutRows_Previous = _DeliveryNoteOutRows
+            Next
+
+            If _DeliveryNoteOutRows_Previous IsNot Nothing And _Valid_RowIndex = True Then
+                _DeliveryNoteOutRows_Previous.RowIndex += 1
+            End If
+
+            _ocur.CommitChanges()
+
+            Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
+            If nestedFrame IsNot Nothing Then
+                Dim parentView As View = nestedFrame.View
+                parentView.ObjectSpace.Refresh()
+            End If
+
+        Else
+            '----------------------------TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("***Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End If
+
+    End Sub
+    Private Sub aDown_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDown_DeliveryNoteOut.Execute
+        If View.SelectedObjects(0) IsNot Nothing Then
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.Oid)
+            _DeliveryNoteOutHeader.DeliveryNoteOutRows.Sorting.Add(New SortProperty("RowIndex", DB.SortingDirection.Ascending))
+            Dim _DeliveryNoteOutRowsSelected As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows)
+            Dim _DeliveryNoteOutRows_Next As DeliveryNoteOutRows = Nothing
+            Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
+            Dim _Valid_RowIndex = False
+
+            For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
+                If _DeliveryNoteOutRows.Oid = _DeliveryNoteOutRowsSelected.Oid Then
+                    If _DeliveryNoteOutRows.Oid <> _DeliveryNoteOutHeader.DeliveryNoteOutRows(_DeliveryNoteOutHeader.DeliveryNoteOutRows.Count - 1).Oid Then
+                        _DeliveryNoteOutRows_Next = _ocur.FindObject(Of DeliveryNoteOutRows)(CriteriaOperator.Parse("RowIndex=?", _DeliveryNoteOutRows.RowIndex + 1))
+                        _DeliveryNoteOutRows.RowIndex += 1
+                        _Valid_RowIndex = True
+                        Exit For
+                    End If
+                End If
+            Next
+
+            If _DeliveryNoteOutRows_Next IsNot Nothing And _Valid_RowIndex = True Then
+                _DeliveryNoteOutRows_Next.RowIndex -= 1
+            End If
+
+            _ocur.CommitChanges()
+
+            Dim nestedFrame As NestedFrame = TryCast(Frame, NestedFrame)
+            If nestedFrame IsNot Nothing Then
+                Dim parentView As View = nestedFrame.View
+                parentView.ObjectSpace.Refresh()
+            End If
+
+        Else
+            '----------------------------TESZT MIATT!!!! ----------------------------------------------------------------
+            Throw New Exception("*Nincs sor kiválasztva, vagy nem a sor kijelölése az aktív!")
+        End If
+
+    End Sub
+    Private Sub aDeliveryNoteOutPrint_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aDeliveryNoteOutPrint.Execute
+        Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
+        If _DeliveryNoteOutHeader IsNot Nothing Then
+            Dim _ReportData As ReportData = _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData
+            If _ReportData IsNot Nothing Then
+                Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber = ?", _DeliveryNoteOutHeader.DocumentNumber), True)
+            Else
+                '-----------------TESZT MAITT----------------------------
+                Throw New Exception("*Nincs beállítva nyomtatvány!")
+            End If
+        End If
+    End Sub
+    Private Sub aTotable_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotable_DeliveryNoteOut.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).Oid)
+        Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
+        If _DeliveryNoteOutHeader IsNot Nothing Then
+            Dim _StorageOutRowsInRows As StorageOutRowsInRows = _ocur.GetObjectByKey(Of StorageOutRowsInRows)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_StorageOutRowsInRows.Oid)
+            Dim _row_QTT As Double = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_QTT
+            Dim _row_NoteRows As String = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).row_NoteRows
+
+            If _row_QTT <= _StorageOutRowsInRows.QTT - _StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut Then
+                For Each _DeliveryNoteOutRows_Exist As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
+                    If _DeliveryNoteOutRows_Exist.StorageOutRowsInRows.Oid = _StorageOutRowsInRows.Oid Then
+                        _DeliveryNoteOutRows = _DeliveryNoteOutRows_Exist
+                        Exit For
+                    End If
+                Next
+                If _DeliveryNoteOutRows Is Nothing Then
+                    _DeliveryNoteOutRows = New DeliveryNoteOutRows(_ocur.Session)
+                    _DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader
+                    _DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows
+                    _DeliveryNoteOutRows.RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count
+                End If
+
+                _DeliveryNoteOutRows.QTT += _row_QTT
+                _DeliveryNoteOutRows.Note = _row_NoteRows
+                _DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut += _row_QTT
+
+
+
+                _StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut += _row_QTT
+
+                _ocur.CommitChanges()
+            Else
+                '-----------------TESZT MAITT----------------------------
+                Throw New Exception("*A kiszállítani kívánt mennyiség meghaladja kitárolt mennyiséget!" & vbNewLine & vbNewLine & _
+                                    "Kérem ellenõrizze a beírt mennyiséget!")
+            End If
+            _DeliveryNoteOutHeader.row_NoteRows = ""
+            _DeliveryNoteOutHeader.row_QTT = 0
+            _DeliveryNoteOutHeader.row_StorageOutRowsInRows = Nothing
+        End If
+
+        If Frame.GetController(Of RefreshController).RefreshAction.Enabled = True Then
+            Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+        End If
+    End Sub
+    Private Sub aTotableD_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aTotableD_DeliveryNoteOut.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = _ocur.GetObjectByKey(Of DeliveryNoteOutHeader)(TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader).Oid)
+        Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
+        Dim _DeliveryNoteOutRows_Del_Collection As New ArrayList
+        Dim _DeliveryNoteOutRows_ListEditor As ListPropertyEditor = TryCast(View, DetailView).FindItem("DeliveryNoteOutRows")
+        If _DeliveryNoteOutRows_ListEditor IsNot Nothing Then
+            For Each _DeliveryNoteOutRows_Ocur As DeliveryNoteOutRows In _DeliveryNoteOutRows_ListEditor.ListView.SelectedObjects
+                _DeliveryNoteOutRows = _ocur.GetObjectByKey(Of DeliveryNoteOutRows)(_DeliveryNoteOutRows_Ocur.Oid)
+                _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT
+                _DeliveryNoteOutRows.StorageOutRowsInRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT
+
+                _DeliveryNoteOutRows_Del_Collection.Add(_DeliveryNoteOutRows)
+            Next
+            _ocur.Delete(_DeliveryNoteOutRows_Del_Collection)
+
+            _ocur.CommitChanges()
+
+            If Frame.GetController(Of RefreshController).RefreshAction.Enabled = True Then
+                Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+            End If
+        End If
+    End Sub
+    Private Sub aFinalize_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aFinalize_DeliveryNoteOut.Execute, aFinalizeAndNew_DeliveryNoteOut.Execute
+        Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+        Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
+        If _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData IsNot Nothing And _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count > 0 Then
+            _DeliveryNoteOutHeader.IsEditable = False
+
+            _ocur.CommitChanges()
+
+            Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData.Oid), True)
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True)
+
+            If e.Action.Id = "aFinalizeAndNew_DeliveryNoteOut" Then
+                Frame.GetController(Of NewObjectViewController)().NewObjectAction.DoExecute(Frame.GetController(Of NewObjectViewController)().NewObjectAction.Items(0))
+            End If
+        Else
+            '-----------------TESZT MAITT----------------------------
+            Throw New Exception("*Nincs beállítva nyomtatvány vagy nincs egy sora sem a kimenõ szállítólevélnek!")
+        End If
+    End Sub
+    Private Sub aStorno_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aStorno_DeliveryNoteOut.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
+            If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            If _DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*A szállítólevél már stornózva lett!")
+
+            For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
+                _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.QTT_To_DeliveryOut -= _DeliveryNoteOutRows.QTT
+            Next
+
+            _DeliveryNoteOutHeader.IsEditable = False
+            _DeliveryNoteOutHeader.IsStorno = True
+
+            _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 aBackToEdit_DeliveryNoteOut_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aBackToEdit_DeliveryNoteOut.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutHeader)
+            If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            If _DeliveryNoteOutHeader.IsStorno = True Then Throw New Exception("*Stornózott szállítólevelet nem lehet újra szerkeszteni!")
+            _DeliveryNoteOutHeader.IsEditable = True
+
+            _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 aCreate_DeliveryNoteOutFromStorageORIR_Cancel(sender As Object, e As System.EventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.Cancel
+
+
+    End Sub
+    Private Sub aCreate_DeliveryNoteOutFromStorageORIR_CustomizePopupWindowParams(sender As System.Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _StorageOutRowsInRows As StorageOutRowsInRows = _onew.GetObjectByKey(Of StorageOutRowsInRows)(TryCast(View.SelectedObjects(0), StorageOutRowsInRows).Oid)
+        Dim _DeliveryNoteOutfromStorageOutrowsInRowsPopup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = _onew.CreateObject(Of DeliveryNoteOutfromStorageOutrowsInRowsPopup)()
+        Dim _DeliveryNoteOutType_Collection As New XPCollection(Of DeliveryNoteOutType)(_onew.Session)
+
+        If _DeliveryNoteOutType_Collection.Count = 1 Then
+            _DeliveryNoteOutfromStorageOutrowsInRowsPopup.DeliveryNoteOutType = _onew.GetObject(_DeliveryNoteOutType_Collection(0))
+        End If
+
+        _DeliveryNoteOutfromStorageOutrowsInRowsPopup.CustomersFrom = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom
+        _DeliveryNoteOutfromStorageOutrowsInRowsPopup.Customers = _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers
+
+        If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.ShipmentOption IsNot Nothing Then
+            _DeliveryNoteOutfromStorageOutrowsInRowsPopup.ShipmentOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.ShipmentOption)
+        Else
+            _DeliveryNoteOutfromStorageOutrowsInRowsPopup.ShipmentOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers.ShipmentOption)
+        End If
+        If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.QualityOption IsNot Nothing Then
+            _DeliveryNoteOutfromStorageOutrowsInRowsPopup.QualityOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.QualityOption)
+        Else
+            _DeliveryNoteOutfromStorageOutrowsInRowsPopup.QualityOption = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.StorageOutHeader.Customers.QualityOption)
+        End If
+
+        If _StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.Address2 IsNot Nothing Then
+            _DeliveryNoteOutfromStorageOutrowsInRowsPopup.TransportAddress = _onew.GetObject(_StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.Address2)
+        End If
+
+        e.View = Application.CreateDetailView(_onew, "DeliveryNoteOutfromStorageOutrowsInRowsPopup_DetailView", False, _DeliveryNoteOutfromStorageOutrowsInRowsPopup)
+    End Sub
+    Private Sub aCreate_DeliveryNoteOutFromStorageORIR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreate_DeliveryNoteOutFromStorageORIR.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNOutFStorageORIR_Popup As DeliveryNoteOutfromStorageOutrowsInRowsPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), DeliveryNoteOutfromStorageOutrowsInRowsPopup)
+        Try
+            Dim _DeliveryNoteOutType As DeliveryNoteOutType = _ocur.GetObjectByKey(Of DeliveryNoteOutType)(_DeliveryNOutFStorageORIR_Popup.DeliveryNoteOutType.Oid)
+            Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_DeliveryNOutFStorageORIR_Popup.Customers.Oid)
+            Dim _CustomersFrom As CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_DeliveryNOutFStorageORIR_Popup.CustomersFrom.Oid)
+            Dim _ShipmentOption As ShipmentOption = _ocur.GetObjectByKey(Of ShipmentOption)(_DeliveryNOutFStorageORIR_Popup.ShipmentOption.Oid)
+            Dim _QualityOption As QualityOption = _ocur.GetObjectByKey(Of QualityOption)(_DeliveryNOutFStorageORIR_Popup.QualityOption.Oid)
+            Dim _CurrencyName As CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_DeliveryNOutFStorageORIR_Popup.CurrencyName.Oid)
+            Dim _TransportAddress As Address = _ocur.GetObjectByKey(Of Address)(_DeliveryNOutFStorageORIR_Popup.TransportAddress.Oid)
+            Dim _Note As String = _DeliveryNOutFStorageORIR_Popup.Note
+            Dim _StorageOutRowsInRows As StorageOutRowsInRows = Nothing
+            Dim _StorageOutRowsInRows_OrigView As StorageOutRowsInRows = Nothing
+            Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
+
+            Dim _DeliveryNoteOutHeader As New DeliveryNoteOutHeader(_ocur.Session)
+            _DeliveryNoteOutHeader.DeliveryNoteOutType = _DeliveryNoteOutType
+            _DeliveryNoteOutHeader.Customers = _Customers
+            _DeliveryNoteOutHeader.CustomersFrom = _CustomersFrom
+            _DeliveryNoteOutHeader.ShipmentOption = _ShipmentOption
+            _DeliveryNoteOutHeader.QualityOption = _QualityOption
+            _DeliveryNoteOutHeader.CurrencyName = _CurrencyName
+            _DeliveryNoteOutHeader.TransportAddress = _TransportAddress
+            _DeliveryNoteOutHeader.Note = _Note
+            _DeliveryNoteOutHeader.IsEditable = False
+            _DeliveryNoteOutHeader.DateCreated = GetSQLTime(_ocur.Session)
+            _DeliveryNoteOutHeader.DateExecution = GetSQLTime(_ocur.Session)
+
+
+            For Each _StorageOutRowsInRows_OrigView In View.SelectedObjects
+                _StorageOutRowsInRows = _ocur.GetObjectByKey(Of StorageOutRowsInRows)(_StorageOutRowsInRows_OrigView.Oid)
+                If _StorageOutRowsInRows_OrigView.QTT_Will > 0 And _StorageOutRowsInRows_OrigView.QTT_Will <= _StorageOutRowsInRows_OrigView.QTT - _StorageOutRowsInRows_OrigView.QTT_To_DeliveryOut Then
+                    _DeliveryNoteOutRows = New DeliveryNoteOutRows(_ocur.Session)
+                    If View.Id = "StorageOutRowsInRows_ListView_DeliveryNote_OrderIn" Then
+                        _StorageOutRowsInRows.StorageOutRows.OrderInRows.QTT_DeliveryNoted += _StorageOutRowsInRows_OrigView.QTT_Will
+                    End If
+
+                    _DeliveryNoteOutRows.DeliveryNoteOutHeader = _DeliveryNoteOutHeader
+                    _DeliveryNoteOutRows.StorageOutRowsInRows = _StorageOutRowsInRows
+                    _DeliveryNoteOutRows.QTT = _StorageOutRowsInRows_OrigView.QTT_Will
+                    _DeliveryNoteOutRows.RowIndex = _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count
+
+                    _StorageOutRowsInRows.QTT_To_DeliveryOut += _StorageOutRowsInRows_OrigView.QTT_Will
+                    _StorageOutRowsInRows_OrigView.QTT_Will = 0
+                End If
+            Next
+            If _DeliveryNoteOutHeader.DeliveryNoteOutRows.Count = 0 Then Throw New Exception("*Nincs egy olyan sor sem, amin lenne legalább 1db kiszállítandó mennyiség!" & vbNewLine & vbNewLine & _
+                                                                                            "Üres szállítólevél nem hozható létre!")
+
+            _ocur.CommitChanges()
+
+            If _DeliveryNoteOutType.ReportData IsNot Nothing Then
+                Dim _ReportData As ReportData = _ocur.FindObject(Of ReportData)(CriteriaOperator.Parse("Oid=?", _DeliveryNoteOutType.ReportData.Oid), True)
+                If _ReportData IsNot Nothing Then
+                    Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("_DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True)
+                End If
+                If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
+                    Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
+                End If
+            End If
+        Catch exp As Exception
+            MsgBox(exp.Message, MsgBoxStyle.OkOnly, "Hiba!")
+        End Try
+    End Sub
+    Private Sub aCreate_InvoiceFromStorageORIR_Cancel(sender As Object, e As System.EventArgs) Handles aCreate_InvoiceFromStorageORIR.Cancel
+
+    End Sub
+    Private Sub aCreate_InvoiceFromStorageORIR_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreate_InvoiceFromStorageORIR.CustomizePopupWindowParams
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows)
+        Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = _onew.CreateObject(Of ORI_Invoice_Popup)()
+
+        Dim _InvoiceType_Collection As New XPCollection(Of InvoiceType)(_onew.Session, CriteriaOperator.Parse("CustomersFrom=? AND InvoiceTypeBase=2", _
+                                                        _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersFrom)))
+        If _InvoiceType_Collection.Count = 1 Then
+            _ORI_Invoice_Popup.InvoiceType = _onew.GetObject(_InvoiceType_Collection(0))
+        End If
+
+        _ORI_Invoice_Popup.CustomersFrom = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.CustomersFrom)
+        _ORI_Invoice_Popup.Customers = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers)
+        _ORI_Invoice_Popup.CurrencyName = _onew.GetObject(_DeliveryNoteOutRows.DeliveryNoteOutHeader.CurrencyName)
+        _ORI_Invoice_Popup.ShipmentOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.ShipmentOption)
+        _ORI_Invoice_Popup.PaymentOption = _onew.GetObject(_DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.OrderInHeader.Customers.PaymentOption)
+        _ORI_Invoice_Popup.DateExecution = GetSQLTime(_onew.Session)
+
+        e.View = Application.CreateDetailView(_onew, "ORI_Invoice_Popup_DetailView", False, _ORI_Invoice_Popup)
+    End Sub
+    Private Sub aCreate_InvoiceFromStorageORIR_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreate_InvoiceFromStorageORIR.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _ORI_Invoice_Popup As ORI_Invoice_Popup = TryCast(e.PopupWindow.View.SelectedObjects(0), ORI_Invoice_Popup)
+        Try
+            Dim _InvoiceType As InvoiceType = _ocur.GetObjectByKey(Of InvoiceType)(_ORI_Invoice_Popup.InvoiceType.Oid)
+            Dim _CustomersFrom As CustomersFrom = _ocur.GetObjectByKey(Of CustomersFrom)(_ORI_Invoice_Popup.CustomersFrom.Oid)
+            Dim _Customers As Customers = _ocur.GetObjectByKey(Of Customers)(_ORI_Invoice_Popup.Customers.Oid)
+            Dim _DateCreated As Date = _ORI_Invoice_Popup.DateCreated
+            Dim _DateExecution As Date = _ORI_Invoice_Popup.DateExecution
+            Dim _DatePayment As Date = _ORI_Invoice_Popup.DatePayment
+            Dim _PaymentOption As PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ORI_Invoice_Popup.PaymentOption.Oid)
+            Dim _ShipmentOption As ShipmentOption = _ocur.GetObjectByKey(Of ShipmentOption)(_ORI_Invoice_Popup.ShipmentOption.Oid)
+            Dim _CurrencyName As CurrencyName = _ocur.GetObjectByKey(Of CurrencyName)(_ORI_Invoice_Popup.CurrencyName.Oid)
+            Dim _BankInformation As BankInformation = _ocur.GetObjectByKey(Of BankInformation)(_ORI_Invoice_Popup.BankInformation.Oid)
+            Dim _Description As String = _ORI_Invoice_Popup.Description
+            Dim _DeliveryNoteOutRows As DeliveryNoteOutRows = Nothing
+            Dim _NG As NumberGenerator
+
+            Dim _InvoiceHeader As New InvoiceHeader(_ocur.Session)
+            _InvoiceHeader.InvoiceType = _InvoiceType
+            _InvoiceHeader.CustomersFrom = _CustomersFrom
+            _InvoiceHeader.Customers = _Customers
+            _InvoiceHeader.DateCreated = _DateCreated
+            _InvoiceHeader.DateExecution = _DateExecution
+            _InvoiceHeader.DatePayment = _DatePayment
+            _InvoiceHeader.PaymentOption = _PaymentOption
+            _InvoiceHeader.ShipmentOption = _ShipmentOption
+            _InvoiceHeader.CurrencyName = _CurrencyName
+            _InvoiceHeader.BankInformation = _BankInformation
+            _InvoiceHeader.Description = _Description
+            _InvoiceHeader.IsEditable = False
+            _InvoiceHeader.IsProforma = True
+            _InvoiceHeader.IsStorno = False
+            If _InvoiceHeader.PaymentOption.PayMode = ePayMode.InContinuous Then
+                _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution
+            Else
+                If _InvoiceHeader.PaymentOption.DatePaymentMode = eDatePaymentMode.eDateCreated Then
+                    _InvoiceHeader.DatePayment = _InvoiceHeader.DateCreated.AddDays(_InvoiceHeader.PaymentOption.PayDay)
+                Else
+                    _InvoiceHeader.DatePayment = _InvoiceHeader.DateExecution.AddDays(_InvoiceHeader.PaymentOption.PayDay)
+                End If
+            End If
+            If _InvoiceHeader.InvoiceType.NumberGeneratorProforma IsNot Nothing Then
+                _NG = _InvoiceHeader.InvoiceType.NumberGeneratorProforma
+                _InvoiceHeader.DocumentNumberProforma = _NG.GetNewNumber(_NG)
+            End If
+
+            For Each _DeliveryNoteOutRows_OrigView As DeliveryNoteOutRows In View.SelectedObjects
+                _DeliveryNoteOutRows = _ocur.GetObjectByKey(Of DeliveryNoteOutRows)(_DeliveryNoteOutRows_OrigView.Oid)
+
+                Dim _InvoiceRows As New InvoiceRows(_ocur.Session)
+
+                _InvoiceRows.InvoiceHeader = _InvoiceHeader
+                _InvoiceRows.OrderInRows = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows
+                _InvoiceRows.InvoiceRowtype = eInvoiceRowType.FromOrder
+                _InvoiceRows.DiscountPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceDEV
+                _InvoiceRows.DiscountPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.DiscountPriceHUF
+                _InvoiceRows.ListPriceDEV = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceDEV
+                _InvoiceRows.ListPriceHUF = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.ListPriceHUF
+                _InvoiceRows.QTT = _DeliveryNoteOutRows.QTT_Will
+                _InvoiceRows.QualityOption = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.QualityOption
+                _InvoiceRows.RowIndex = _InvoiceHeader.InvoiceRows.Count
+                _InvoiceRows.ShortName = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ProductNumber & vbNewLine & _
+                                         _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.ShortName
+                _InvoiceRows.Units = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.Units
+                _InvoiceRows.VAT = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.VAT
+                _InvoiceRows.Description = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Description
+                _InvoiceRows.CustomsTariffs = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageOutRows.OrderInRows.Products.CustomsTariff
+            Next
+
+            _ocur.CommitChanges()
+        Catch ex As Exception
+            Throw New Exception(ex.Message)
+        End Try
+    End Sub
+    '----------------------View.SelectionChanged Z ----------------------------------------------------
+    Private Sub StorageOutRowsInRows_ListView_DeliveryNote_Transfer_ViewSelectionChanged(sender As Object, e As EventArgs)
+        If View.SelectedObjects.Count = 0 Then Exit Sub
+        Dim _ActionEnabled As Boolean = True
+        If View.SelectedObjects.Count = 1 Then
+            If TryCast(View.SelectedObjects(0), StorageOutRowsInRows).QTT < TryCast(View.SelectedObjects(0), StorageOutRowsInRows).QTT_Will Then
+                _ActionEnabled = False
+            End If
+        Else
+            Dim _Act_CustomersFrom As CustomersFrom = TryCast(View.SelectedObjects(0), StorageOutRowsInRows).StorageOutRows.StorageOutHeader.CustomersFrom
+            If _Act_CustomersFrom IsNot Nothing Then
+                For Each _StorageOutRowsInRows As StorageOutRowsInRows In View.SelectedObjects
+                    If _StorageOutRowsInRows.StorageOutRows.StorageOutHeader.CustomersFrom.Oid <> _Act_CustomersFrom.Oid Or _
+                        _StorageOutRowsInRows.QTT < _StorageOutRowsInRows.QTT_Will Then
+                        _ActionEnabled = False
+                        Exit For
+                    End If
+                Next
+            End If
+        End If
+
+        Frame.GetController(Of DeliveryNoteOutVC).aCreate_DeliveryNoteOutFromStorageORIR.Enabled.SetItemValue("", _ActionEnabled)
+
+    End Sub
+    Private Sub DeliveryNoteOutRows_ListView_Invoice_ViewSelectionChanged(sender As Object, e As EventArgs)
+        If View.SelectedObjects.Count = 0 Then Exit Sub
+        Dim _ActionEnabled As Boolean = True
+        If View.SelectedObjects.Count = 1 Then
+            If TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).QTT < TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).QTT_Will Then
+                _ActionEnabled = False
+            End If
+        Else
+            Dim _Act_CustomersFrom As CustomersFrom = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader.CustomersFrom
+            If _Act_CustomersFrom IsNot Nothing Then
+                For Each _DeliveryNoteOutRows As DeliveryNoteOutRows In View.SelectedObjects
+                    If _DeliveryNoteOutRows.DeliveryNoteOutHeader.CustomersFrom.Oid <> _Act_CustomersFrom.Oid Or _
+                        _DeliveryNoteOutRows.QTT < _DeliveryNoteOutRows.QTT_Will Then
+                        _ActionEnabled = False
+                        Exit For
+                    End If
+                Next
+            End If
+        End If
+
+        Frame.GetController(Of DeliveryNoteOutVC).aCreate_InvoiceFromStorageORIR.Enabled.SetItemValue("", _ActionEnabled)
+    End Sub
+    Private Sub aDeliveryNoteOutRowsPrint_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aDeliveryNoteOutRowsPrint.Execute
+        Try
+            If View.SelectedObjects.Count = 0 Then Throw New Exception("*Nincs kiválasztva egyetlen sor sem!")
+            Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader = TryCast(View.SelectedObjects(0), DeliveryNoteOutRows).DeliveryNoteOutHeader
+            If _DeliveryNoteOutHeader Is Nothing Then Throw New Exception("*Váratlan hiba történt a folyamat megszakadt!")
+            Dim _ReportData As ReportData = _DeliveryNoteOutHeader.DeliveryNoteOutType.ReportData
+            If _ReportData Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ReportData, CriteriaOperator.Parse("DeliveryNoteOutHeader.DocumentNumber =?", _DeliveryNoteOutHeader.DocumentNumber), True)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+
+    Private Sub aCheckDeliveryNoteOutWeight_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCheckDeliveryNoteOutWeight.Execute
+        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+        Dim _DeliveryNoteOutHeader As DeliveryNoteOutHeader
+        Dim _DeliveryNoteOutRows As DeliveryNoteOutRows
+
+        For Each _DeliveryNoteOutHeader In View.SelectedObjects
+            For Each _DeliveryNoteOutRows In _DeliveryNoteOutHeader.DeliveryNoteOutRows
+                If _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows IsNot Nothing Then
+                    _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Weight = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.Weight
+                    _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.WeightMode = _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.DeliveryNoteInRows.WeightMode
+                    _DeliveryNoteOutRows.StorageOutRowsInRows.StorageInRows.Save()
+                End If
+            Next
+        Next
+        _ocur.CommitChanges()
+
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteOut/Popup/DeliveryNoteOutfromStorageOutrowsInRowsPopup.vb

@@ -0,0 +1,104 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NonPersistent()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class DeliveryNoteOutfromStorageOutrowsInRowsPopup
+    Inherits BaseObject
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Private _DeliveryNoteOutType As DeliveryNoteOutType
+    Private _CustomersFrom As CustomersFrom ' Sajátcég
+    Private _Customers As Customers ' Ügyfél
+    Private _ShipmentOption As ShipmentOption ' Szállítási opció
+    Private _QualityOption As QualityOption ' Minõségi opció
+    Private _CurrencyName As CurrencyName ' Deviza
+    Private _Note As String ' Megjegyzés
+    Private _TransportAddress As Address ' -- Szállítási cím
+
+    Property DeliveryNoteOutType As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If value IsNot Nothing Then
+                    CurrencyName = value.CurrencyName
+                End If
+            End If
+        End Set
+    End Property
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    Property CustomersFrom() As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    Property TransportAddress As Address
+        Get
+            Return _TransportAddress
+        End Get
+        Set(value As Address)
+            SetPropertyValue("TransportAddress", _TransportAddress, value)
+        End Set
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/Popup/DeliveryNoteView.vb

@@ -0,0 +1,161 @@
+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
+
+<NavigationItem(False), CreatableItem(False)> _
+<NonPersistent()> _
+<Appearance("DeliveryNoteView - StorageNeed Disable", AppearanceItemType.ViewItem, "1=1", TargetItems:="StorageNeed", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteView - Storage Hide", AppearanceItemType.ViewItem, "1=1", TargetItems:="Storage", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteView - Storage Disable", AppearanceItemType.ViewItem, "StorageNeed=False", TargetItems:="Storage", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteView - StorageMoveType Disable", AppearanceItemType.ViewItem, "StorageNeed=False", TargetItems:="StorageMoveType", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("DeliveryNoteView - DeliveryNoteOutType Disable", AppearanceItemType.ViewItem, "DeliveryNoteOutTypeNeed=False", TargetItems:="DeliveryNoteOutType", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class DeliveryNoteView ' -- szállítólevél készítéséhez a popup-hoz view
+    Inherits BaseObject
+
+    Private _TransportAddress As Address ' -- Szállítási cím
+    Private _CustomersFrom As CustomersFrom ' Sajátcég
+    Private _Customers As Customers ' Ügyfél
+    Private _DateExecution As Date ' Végrehajtás dátuma
+    Private _ShipmentOption As ShipmentOption ' Szállítási opció
+    Private _QualityOption As QualityOption ' Minőségi opció
+    Private _CurrencyName As CurrencyName ' Deviza
+    Private _Note As String ' Megjegyzés
+    Private _Storage As Storage 'Raktár a Kitárolás+szállítólevél action-hoz
+    Private _StorageMoveType As StorageMoveType
+    Private _DeliveryNoteOutType As DeliveryNoteOutType
+    Private _StorageNeed As Boolean 'Raktár megjelenítése
+    Private _DeliveryNoteOutTypeNeed As Boolean 'Deliveryhez
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        StorageNeed = False
+        DeliveryNoteOutTypeNeed = False
+    End Sub
+    <RuleRequiredField("DeliveryNoteView.TransportAddress", DefaultContexts.Save)> _
+    Property TransportAddress As Address
+        Get
+            Return _TransportAddress
+        End Get
+        Set(value As Address)
+            SetPropertyValue("TransportAddress", _TransportAddress, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteView.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteView.Customers", DefaultContexts.Save)> _
+    Property Customers() As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(ByVal value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteView.DateExecution", DefaultContexts.Save)> _
+    Property DateExecution() As Date
+        Get
+            Return _DateExecution
+        End Get
+        Set(ByVal value As Date)
+            SetPropertyValue("DateExecution", _DateExecution, value)
+        End Set
+    End Property
+    Property ShipmentOption() As ShipmentOption
+        Get
+            Return _ShipmentOption
+        End Get
+        Set(ByVal value As ShipmentOption)
+            SetPropertyValue("ShipmentOption", _ShipmentOption, value)
+        End Set
+    End Property
+    Property QualityOption() As QualityOption
+        Get
+            Return _QualityOption
+        End Get
+        Set(ByVal value As QualityOption)
+            SetPropertyValue("QualityOption", _QualityOption, value)
+        End Set
+    End Property
+    <RuleRequiredField("DeliveryNoteView.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName() As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(ByVal value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property Note() As String
+        Get
+            Return _Note
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("Note", _Note, value)
+        End Set
+    End Property
+    Property Storage As Storage
+        Get
+            Return _Storage
+        End Get
+        Set(value As Storage)
+            SetPropertyValue("Storage", _Storage, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+     <DataSourceCriteria("MoveType = 0")> _
+    Property StorageMoveType As StorageMoveType
+        Get
+            Return _StorageMoveType
+        End Get
+        Set(value As StorageMoveType)
+            SetPropertyValue("StorageMoveType", _StorageMoveType, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If value IsNot Nothing Then
+                    Storage = value.Storage 'MoveType
+                End If
+            End If
+        End Set
+    End Property
+    Property StorageNeed As Boolean
+        Get
+            Return _StorageNeed
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("StorageNeed", _StorageNeed, value)
+        End Set
+    End Property
+    Property DeliveryNoteOutType As DeliveryNoteOutType
+        Get
+            Return _DeliveryNoteOutType
+        End Get
+        Set(value As DeliveryNoteOutType)
+            SetPropertyValue("DeliveryNoteOutType", _DeliveryNoteOutType, value)
+        End Set
+    End Property
+    Property DeliveryNoteOutTypeNeed As Boolean
+        Get
+            Return _DeliveryNoteOutTypeNeed
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("DeliveryNoteOutTypeNeed", _DeliveryNoteOutTypeNeed, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatistics.vb

@@ -0,0 +1,67 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+Public Class CRMEstateStatistics
+    Inherits BaseObject
+
+    Private _Immovables As Immovables
+    Private _QTT_Sold As Long 'Eladott darabszám
+    Private _AreaNettoForSale_Sold As Double 'Eladott m2
+    Private _NettoPriceHUF As Double 'Érték
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+        ' This constructor is used when an object is loaded from a persistent storage.
+        ' Do not place any code here or place it only when the IsLoading property is false:
+        ' if (!IsLoading){
+        '   It is now OK to place your initialization code here.
+        ' }
+        ' or as an alternative, move your initialization code into the AfterConstruction method.
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        ' Place here your initialization code.
+    End Sub
+
+    Property Immovables As Immovables
+        Get
+            Return _Immovables
+        End Get
+        Set(value As Immovables)
+            SetPropertyValue("Immovables", _Immovables, value)
+        End Set
+    End Property
+    Property QTT_Sold As Long
+        Get
+            Return _QTT_Sold
+        End Get
+        Set(value As Long)
+            SetPropertyValue("QTT_Sold", _QTT_Sold, value)
+        End Set
+    End Property
+    Property AreaNettoForSale_Sold As Double
+        Get
+            Return _AreaNettoForSale_Sold
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaNettoForSale_Sold", _AreaNettoForSale_Sold, value)
+        End Set
+    End Property
+    Property NettoPriceHUF As Double
+        Get
+            Return _NettoPriceHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.Designer.vb

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.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="aCRMEstateStatisticsCreate.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/BusinessTransactions/Estate/CRM/CRMEstateStatisticsVC.vb

@@ -0,0 +1,197 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.Xpo
+
+Public Class CRMEstateStatisticsVC
+    Inherits DevExpress.ExpressApp.ViewController
+    Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
+    Public Event DoWork()
+    Public Event FinalWork
+    Public Sub New()
+        MyBase.New()
+
+        'This call is required by the Component Designer.
+        InitializeComponent()
+        RegisterActions(components)
+
+    End Sub
+    Protected Overrides Sub OnActivated()
+        MyBase.OnActivated()
+
+        If View.Id = "ContractRows_ListView_Apartments" Or _
+           View.Id = "ContractRows_ListView_Offices" Or _
+           View.Id = "ContractRows_ListView_Garages" Or _
+           View.Id = "ContractRows_ListView_Containers" Then
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _ListView As ListView = TryCast(View, ListView)
+            Dim _Controlling_Collections As New XPCollection(Of Controlling)(_ocur.Session, CriteriaOperator.Parse("IsEstateStatistics=True"))
+            _ListView.CollectionSource.BeginUpdateCriteria()
+            _ListView.CollectionSource.Criteria("") = New InOperator("Controlling", _Controlling_Collections)
+            _ListView.CollectionSource.EndUpdateCriteria()
+
+        End If
+    End Sub
+
+    Private Sub aCRMEstateStatisticsCreate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRMEstateStatisticsCreate.Execute
+        Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
+        Dim _CRMEstateStatistics As CRMEstateStatistics
+        Dim _Immovables As Immovables
+
+        '// Lakások
+        Dim _Apartments_Collection As New XPCollection(Of Apartments)(_onew.Session)
+        Dim _Apartments As Apartments
+
+
+        RaiseEvent InitWork(1, 1, _Apartments_Collection.Count)
+        For Each _Apartments In _Apartments_Collection
+            RaiseEvent DoWork()
+            _Immovables = TryCast(_Apartments, Immovables)
+
+            _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
+            If _CRMEstateStatistics Is Nothing Then
+                _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
+            End If
+            _CRMEstateStatistics.QTT_Sold = 1
+            _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
+            If _CRMEstateStatistics.NettoPriceHUF = 0 Then
+                _CRMEstateStatistics.NettoPriceHUF = _Apartments.PriceNettoHUF
+            Else
+                If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
+                    _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
+                End If
+            End If
+            _CRMEstateStatistics.Immovables = _Immovables
+            _CRMEstateStatistics.AreaNettoForSale_Sold = _Apartments.AreaNettoForSale
+
+
+            _onew.CommitChanges()
+
+        Next
+        _onew.CommitChanges()
+        RaiseEvent FinalWork
+
+        '// Garázsok
+        Dim _Garages_Collection As New XPCollection(Of Garages)(_onew.Session)
+        Dim _Garages As Garages
+
+
+        RaiseEvent InitWork(1, 1, _Garages_Collection.Count)
+        For Each _Garages In _Garages_Collection
+            RaiseEvent DoWork()
+            _Immovables = TryCast(_Garages, Immovables)
+
+            _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
+            If _CRMEstateStatistics Is Nothing Then
+                _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
+            End If
+            _CRMEstateStatistics.QTT_Sold = 1
+            _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
+            If _CRMEstateStatistics.NettoPriceHUF = 0 Then
+                _CRMEstateStatistics.NettoPriceHUF = _Garages.PriceNettoHUF
+            Else
+                If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
+                    _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
+                End If
+            End If
+
+            _CRMEstateStatistics.Immovables = _Immovables
+            _CRMEstateStatistics.AreaNettoForSale_Sold = _Garages.AreaNetto
+
+            _onew.CommitChanges()
+
+        Next
+        _onew.CommitChanges()
+        RaiseEvent FinalWork
+
+        '// Üzletek, irodák
+        Dim _Offices_Collection As New XPCollection(Of Offices)(_onew.Session)
+        Dim _Offices As Offices
+
+
+        RaiseEvent InitWork(1, 1, _Offices_Collection.Count)
+        For Each _Offices In _Offices_Collection
+            RaiseEvent DoWork()
+            _Immovables = TryCast(_Offices, Immovables)
+
+            _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
+            If _CRMEstateStatistics Is Nothing Then
+                _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
+            End If
+            _CRMEstateStatistics.QTT_Sold = 1
+            _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
+            If _CRMEstateStatistics.NettoPriceHUF = 0 Then
+                _CRMEstateStatistics.NettoPriceHUF = _Offices.PriceNettoHUF
+            Else
+                If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
+                    _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
+                End If
+            End If
+            _CRMEstateStatistics.Immovables = _Immovables
+            _CRMEstateStatistics.AreaNettoForSale_Sold = _Offices.AreaNettoForSale
+
+            _onew.CommitChanges()
+
+        Next
+        _onew.CommitChanges()
+        RaiseEvent FinalWork
+
+        '// Tárolók
+        Dim _Container_Collection As New XPCollection(Of Container)(_onew.Session)
+        Dim _Container As Container
+
+
+        RaiseEvent InitWork(1, 1, _Container_Collection.Count)
+        For Each _Container In _Container_Collection
+            RaiseEvent DoWork()
+            _Immovables = TryCast(_Container, Immovables)
+
+            _CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
+            If _CRMEstateStatistics Is Nothing Then
+                _CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
+            Else
+                If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
+                    _CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
+                End If
+            End If
+            _CRMEstateStatistics.QTT_Sold = 1
+            _CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
+            If _CRMEstateStatistics.NettoPriceHUF = 0 Then
+                _CRMEstateStatistics.NettoPriceHUF = _Container.PriceNettoHUF
+            End If
+            _CRMEstateStatistics.Immovables = _Immovables
+            _CRMEstateStatistics.AreaNettoForSale_Sold = _Container.AreaNetto
+
+            _onew.CommitChanges()
+
+        Next
+        _onew.CommitChanges()
+        RaiseEvent FinalWork
+
+    End Sub
+
+    Private Function GetNettoPriceHUF(_onew As Xpo.XPObjectSpace, _UniqueObjects As UniqueObjects) As Double
+        Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("UniqueObjects=?", _UniqueObjects))
+        Dim _ContractRows As ContractRows
+        Dim _NettoPriceHUF As Double = 0
+        Dim _Controlling_Collection As New XPCollection(Of Controlling)(_onew.Session, CriteriaOperator.Parse("IsEstateStatistics=True"))
+
+
+
+        _ContractRows_Collection.Filter = New InOperator("Controlling", _Controlling_Collection)
+
+        For Each _ContractRows In _ContractRows_Collection
+            _NettoPriceHUF += Math.Round(_ContractRows.QTT * _ContractRows.NettoPriceHUF, 0, MidpointRounding.AwayFromZero)
+        Next
+
+        Return _NettoPriceHUF
+
+    End Function
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.Designer.vb

@@ -0,0 +1,265 @@
+Partial Class CRMEstateVC
+
+	<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.aSelectImmovables_Apartments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateContacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateImmovablesReservation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateOpportunityRent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSelectImmovables_Offices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSelectImmovables_Garages = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aSelectImmovables_Container = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateOpportunitySold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
+        Me.aCreateContractRent = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        Me.aCreateContractSold = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
+        '
+        'aSelectImmovables_Apartments
+        '
+        Me.aSelectImmovables_Apartments.Caption = "Select immovables"
+        Me.aSelectImmovables_Apartments.ConfirmationMessage = Nothing
+        Me.aSelectImmovables_Apartments.Id = "aSelectImmovables_Apartments"
+        Me.aSelectImmovables_Apartments.ImageName = "BO_Address"
+        Me.aSelectImmovables_Apartments.Shortcut = Nothing
+        Me.aSelectImmovables_Apartments.Tag = Nothing
+        Me.aSelectImmovables_Apartments.TargetObjectsCriteria = Nothing
+        Me.aSelectImmovables_Apartments.TargetViewId = "CRMEstate_Leads_Apartments_ListView"
+        Me.aSelectImmovables_Apartments.ToolTip = Nothing
+        Me.aSelectImmovables_Apartments.TypeOfView = Nothing
+        '
+        'aCreateContacts
+        '
+        Me.aCreateContacts.Caption = "Create contact"
+        Me.aCreateContacts.Category = "aCreateContacts"
+        Me.aCreateContacts.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateContacts.Id = "aCreateContacts"
+        Me.aCreateContacts.ImageName = "BO_Person"
+        Me.aCreateContacts.Shortcut = Nothing
+        Me.aCreateContacts.Tag = Nothing
+        Me.aCreateContacts.TargetObjectsCriteria = Nothing
+        Me.aCreateContacts.TargetViewId = "CRMEstate_Leads_DetailView"
+        Me.aCreateContacts.ToolTip = Nothing
+        Me.aCreateContacts.TypeOfView = Nothing
+        '
+        'aCreateImmovablesReservation
+        '
+        Me.aCreateImmovablesReservation.AcceptButtonCaption = Nothing
+        Me.aCreateImmovablesReservation.CancelButtonCaption = Nothing
+        Me.aCreateImmovablesReservation.Caption = "Create reservation"
+        Me.aCreateImmovablesReservation.Category = "aCreateImmovablesReservation"
+        Me.aCreateImmovablesReservation.ConfirmationMessage = Nothing
+        Me.aCreateImmovablesReservation.Id = "aCreateImmovablesReservation"
+        Me.aCreateImmovablesReservation.ImageName = "alarmclock"
+        Me.aCreateImmovablesReservation.Shortcut = Nothing
+        Me.aCreateImmovablesReservation.Tag = Nothing
+        Me.aCreateImmovablesReservation.TargetObjectsCriteria = Nothing
+        Me.aCreateImmovablesReservation.TargetViewId = "CRMEstate_Leads_DetailView"
+        Me.aCreateImmovablesReservation.ToolTip = Nothing
+        Me.aCreateImmovablesReservation.TypeOfView = Nothing
+        '
+        'aCreateOpportunityRent
+        '
+        Me.aCreateOpportunityRent.Caption = "Create opportunity rent"
+        Me.aCreateOpportunityRent.Category = "aCreateOpportunityRent"
+        Me.aCreateOpportunityRent.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateOpportunityRent.Id = "aCreateOpportunityRent"
+        Me.aCreateOpportunityRent.ImageName = "BO_Opportunity"
+        Me.aCreateOpportunityRent.Shortcut = Nothing
+        Me.aCreateOpportunityRent.Tag = Nothing
+        Me.aCreateOpportunityRent.TargetObjectsCriteria = Nothing
+        Me.aCreateOpportunityRent.TargetViewId = "CRMEstate_Leads_DetailView"
+        Me.aCreateOpportunityRent.ToolTip = Nothing
+        Me.aCreateOpportunityRent.TypeOfView = Nothing
+        '
+        'aCreateNewCRMEstate_Opportunity_AdvanceMoney
+        '
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Caption = "New"
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Category = "ObjectsCreation"
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Id = "aCreateNewCRMEstate_Opportunity_AdvanceMoney"
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView"
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
+        '
+        'aFinalCRMEstate_Opportunity_AdvanceMoney
+        '
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Caption = "Final"
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Category = "Save"
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Id = "aFinalCRMEstate_Opportunity_AdvanceMoney"
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TargetViewId = "CRMEstate_Opportunity_AdvanceMoney_DetailView"
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
+        Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
+        '
+        'aSelectImmovables_Offices
+        '
+        Me.aSelectImmovables_Offices.Caption = "Select immovables"
+        Me.aSelectImmovables_Offices.ConfirmationMessage = Nothing
+        Me.aSelectImmovables_Offices.Id = "aSelectImmovables_Offices"
+        Me.aSelectImmovables_Offices.ImageName = "BO_Address"
+        Me.aSelectImmovables_Offices.Shortcut = Nothing
+        Me.aSelectImmovables_Offices.Tag = Nothing
+        Me.aSelectImmovables_Offices.TargetObjectsCriteria = Nothing
+        Me.aSelectImmovables_Offices.TargetViewId = "CRMEstate_Leads_Offices_ListView"
+        Me.aSelectImmovables_Offices.ToolTip = Nothing
+        Me.aSelectImmovables_Offices.TypeOfView = Nothing
+        '
+        'aSelectImmovables_Garages
+        '
+        Me.aSelectImmovables_Garages.Caption = "Select immovables"
+        Me.aSelectImmovables_Garages.ConfirmationMessage = Nothing
+        Me.aSelectImmovables_Garages.Id = "aSelectImmovables_Garages"
+        Me.aSelectImmovables_Garages.ImageName = "BO_Address"
+        Me.aSelectImmovables_Garages.Shortcut = Nothing
+        Me.aSelectImmovables_Garages.Tag = Nothing
+        Me.aSelectImmovables_Garages.TargetObjectsCriteria = Nothing
+        Me.aSelectImmovables_Garages.TargetViewId = "CRMEstate_Leads_Garages_ListView"
+        Me.aSelectImmovables_Garages.ToolTip = Nothing
+        Me.aSelectImmovables_Garages.TypeOfView = Nothing
+        '
+        'aSelectImmovables_Container
+        '
+        Me.aSelectImmovables_Container.Caption = "Select immovables"
+        Me.aSelectImmovables_Container.ConfirmationMessage = Nothing
+        Me.aSelectImmovables_Container.Id = "aSelectImmovables_Container"
+        Me.aSelectImmovables_Container.ImageName = "BO_Address"
+        Me.aSelectImmovables_Container.Shortcut = Nothing
+        Me.aSelectImmovables_Container.Tag = Nothing
+        Me.aSelectImmovables_Container.TargetObjectsCriteria = Nothing
+        Me.aSelectImmovables_Container.TargetViewId = "CRMEstate_Leads_Container_ListView"
+        Me.aSelectImmovables_Container.ToolTip = Nothing
+        Me.aSelectImmovables_Container.TypeOfView = Nothing
+        '
+        'aCreateOpportunitySold
+        '
+        Me.aCreateOpportunitySold.Caption = "Create opportunity sold"
+        Me.aCreateOpportunitySold.Category = "aCreateOpportunitySold"
+        Me.aCreateOpportunitySold.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateOpportunitySold.Id = "aCreateOpportunitySold"
+        Me.aCreateOpportunitySold.ImageName = "BO_Opportunity"
+        Me.aCreateOpportunitySold.Shortcut = Nothing
+        Me.aCreateOpportunitySold.Tag = Nothing
+        Me.aCreateOpportunitySold.TargetObjectsCriteria = Nothing
+        Me.aCreateOpportunitySold.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Leads)
+        Me.aCreateOpportunitySold.TargetViewId = "CRMEstate_Leads_DetailView"
+        Me.aCreateOpportunitySold.ToolTip = Nothing
+        Me.aCreateOpportunitySold.TypeOfView = Nothing
+        '
+        'aDeleteCRMEstate_Opportunity_AdvanceMoney
+        '
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Caption = "Delete"
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Category = "Edit"
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Id = "aDeleteCRMEstate_Opportunity_AdvanceMoney"
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity_AdvanceMoney)
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetViewId = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
+        Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
+        '
+        'aCreateNewCRMEstate_Opportunity_Payment_Forecast
+        '
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Caption = "aCreateNewCRMEstate_Opportunity_Payment_Forecast"
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Category = "ObjectsCreation"
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ConfirmationMessage = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Id = "aCreateNewCRMEstate_Opportunity_Payment_Forecast"
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ImageName = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Shortcut = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Tag = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectsCriteria = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity_Payment_Forecast)
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView"
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ToolTip = Nothing
+        Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TypeOfView = Nothing
+        '
+        'aCreateContractRent
+        '
+        Me.aCreateContractRent.AcceptButtonCaption = Nothing
+        Me.aCreateContractRent.CancelButtonCaption = Nothing
+        Me.aCreateContractRent.Caption = "aCreateContractRent"
+        Me.aCreateContractRent.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateContractRent.Id = "aCreateContractRent"
+        Me.aCreateContractRent.ImageName = "paragraph"
+        Me.aCreateContractRent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateContractRent.Shortcut = Nothing
+        Me.aCreateContractRent.Tag = Nothing
+        Me.aCreateContractRent.TargetObjectsCriteria = Nothing
+        Me.aCreateContractRent.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity)
+        Me.aCreateContractRent.TargetViewId = Nothing
+        Me.aCreateContractRent.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
+        Me.aCreateContractRent.ToolTip = Nothing
+        Me.aCreateContractRent.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
+        '
+        'aCreateContractSold
+        '
+        Me.aCreateContractSold.AcceptButtonCaption = Nothing
+        Me.aCreateContractSold.CancelButtonCaption = Nothing
+        Me.aCreateContractSold.Caption = "aCreate Contract Sold"
+        Me.aCreateContractSold.ConfirmationMessage = "Do you want to execute command ?"
+        Me.aCreateContractSold.Id = "aCreateContractSold"
+        Me.aCreateContractSold.ImageName = "paragraph"
+        Me.aCreateContractSold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
+        Me.aCreateContractSold.Shortcut = Nothing
+        Me.aCreateContractSold.Tag = Nothing
+        Me.aCreateContractSold.TargetObjectsCriteria = Nothing
+        Me.aCreateContractSold.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity)
+        Me.aCreateContractSold.TargetViewId = "CRMEstate_Opportunity_DetailView"
+        Me.aCreateContractSold.ToolTip = Nothing
+        Me.aCreateContractSold.TypeOfView = Nothing
+
+    End Sub
+    Friend WithEvents aSelectImmovables_Apartments As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateOpportunitySold As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateContacts As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateImmovablesReservation As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateOpportunityRent As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateNewCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aFinalCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aDeleteCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSelectImmovables_Offices As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSelectImmovables_Garages As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aSelectImmovables_Container As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateNewCRMEstate_Opportunity_Payment_Forecast As DevExpress.ExpressApp.Actions.SimpleAction
+    Friend WithEvents aCreateContractRent As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+    Friend WithEvents aCreateContractSold As DevExpress.ExpressApp.Actions.PopupWindowShowAction
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstateVC.resx

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

@@ -0,0 +1,39 @@
+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("RealEstateStocks")> _
+<DefaultProperty("ShortName")> _
+Public Class CRMEstate_FirstMeet 'Hol találkozott velünk elõször
+    Inherits BaseObject
+    Private _ShortName As String
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Property Shortname As String
+        Get
+            Return _ShortName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("ShortName", _ShortName, value)
+        End Set
+    End Property
+End Class
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads.vb

@@ -0,0 +1,394 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+'<EditorStateRule("Hide apartments", "Apartments", EditorState.Hidden, "ImmovablesTypes !=0", ViewType.DetailView)> _
+'<EditorStateRule("Hide offices", "Offices", EditorState.Hidden, "ImmovablesTypes !=1", ViewType.DetailView)> _
+'<EditorStateRule("Hide garages", "Garages", EditorState.Hidden, "ImmovablesTypes !=3", ViewType.DetailView)>
+'<EditorStateRule("Hide container", "Container", EditorState.Hidden, "ImmovablesTypes !=2", ViewType.DetailView)> _
+'<EditorStateRule("Hide studenthostel", "StudentHostel", EditorState.Hidden, "ImmovablesTypes !=4", ViewType.DetailView)> _
+
+<DefaultClassOptions()> _
+<NavigationItem("RealEstateTransactions")> _
+<DefaultProperty("DisplayName")> _
+<Appearance("Hide apartments", TargetItems:="Apartments", Criteria:="ImmovablesTypes !=0", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide offices", TargetItems:="Offices", Criteria:="ImmovablesTypes !=1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide garages", TargetItems:="Garages", Criteria:="ImmovablesTypes !=3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide container", TargetItems:="Container", Criteria:="ImmovablesTypes !=2", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+<Appearance("Hide studenthostel", TargetItems:="StudentHostel", Criteria:="ImmovablesTypes !=4", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
+Public Class CRMEstate_Leads
+    Inherits BaseObject
+    Private _FirstName As String 'Keresztnév
+    Private _LastName As String 'Vezetéknév
+    Private _EMail As String 'e-mail cím
+    Private _Mobile As String 'mobil telefon
+    Private _Contacts As Contacts 'Kapcsolat
+    Private _CRMEstate_FirstMeet As CRMEstate_FirstMeet 'Hol találkozott elõször
+    Private _LeadSource As eLeadSource
+    Private _PreferredContactMethod As ePreferredContactMethod
+    Private _LeadStatus As eLeadStatus
+    Private _ImmovablesTypes As eImmovablesTypes
+    Private _HRPerson As HRPerson
+    Private _ObjectCreated As Date
+    Private _UserCreated As User
+    Private _DocumentBody As String
+    Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        If Not SecuritySystem.CurrentUser Is Nothing Then
+            Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
+            HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", currentUser))
+        End If
+        FirstName = "<Nincs kitöltve>"
+        LastName = "<Nincs kitöltve>"
+    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
+    <ImmediatePostData(True)> _
+    Property ImmovablesPriceListHeader As ImmovablesPriceListHeader
+        Get
+            Return _ImmovablesPriceListHeader
+        End Get
+        Set(value As ImmovablesPriceListHeader)
+            SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value)
+        End Set
+    End Property
+    Property Contacts As Contacts
+        Get
+            Return _Contacts
+        End Get
+        Set(ByVal value As Contacts)
+            SetPropertyValue("Contacts", _Contacts, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Leads-FirstName", DefaultContexts.Save)> _
+    Property FirstName As String
+        Get
+            Return _FirstName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("FirstName", _FirstName, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Leads-LastName", DefaultContexts.Save)> _
+    Property LastName As String
+        Get
+            Return _LastName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("LastName", _LastName, value)
+        End Set
+    End Property
+    Property EMail As String
+        Get
+            Return _EMail
+        End Get
+        Set(value As String)
+            SetPropertyValue("EMail", _EMail, value)
+        End Set
+    End Property
+    Property Mobile As String
+        Get
+            Return _Mobile
+        End Get
+        Set(value As String)
+            SetPropertyValue("Mobile", _Mobile, value)
+        End Set
+    End Property
+    Property CRMEstate_FirstMeet As CRMEstate_FirstMeet
+        Get
+            Return _CRMEstate_FirstMeet
+        End Get
+        Set(ByVal value As CRMEstate_FirstMeet)
+            SetPropertyValue("CRMEstate_FirstMeet", _CRMEstate_FirstMeet, value)
+        End Set
+    End Property
+    Property LeadSource As eLeadSource
+        Get
+            Return _LeadSource
+        End Get
+        Set(ByVal value As eLeadSource)
+            SetPropertyValue("LeadSource", _LeadSource, value)
+        End Set
+    End Property
+    Property PreferredContactMethod As ePreferredContactMethod
+        Get
+            Return _PreferredContactMethod
+        End Get
+        Set(ByVal value As ePreferredContactMethod)
+            SetPropertyValue("PreferredContactMethod", _PreferredContactMethod, value)
+        End Set
+    End Property
+    Property LeadStatus As eLeadStatus
+        Get
+            Return _LeadStatus
+        End Get
+        Set(ByVal value As eLeadStatus)
+            SetPropertyValue("LeadStatus", _LeadStatus, value)
+        End Set
+    End Property
+    <ImmediatePostData(True)> _
+    Property ImmovablesTypes As eImmovablesTypes
+        Get
+            Return _ImmovablesTypes
+        End Get
+        Set(ByVal value As eImmovablesTypes)
+            SetPropertyValue("ImmovablesTypes", _ImmovablesTypes, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Leads-HRPerson", DefaultContexts.Save)> _
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBody As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+
+    '---------ReadOnly----------------
+    <VisibleInListView(False)> _
+    ReadOnly Property CRMEstate_Opportunity As XPCollection(Of CRMEstate_Opportunity)
+        Get
+            Return New XPCollection(Of CRMEstate_Opportunity)(Session, CriteriaOperator.Parse("CRMEstate_Leads=?", Me))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Apartments As XPCollection(Of ImmovablesPriceListRowsA)
+        Get
+            Return New XPCollection(Of ImmovablesPriceListRowsA)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", Me.ImmovablesPriceListHeader))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Offices As XPCollection(Of ImmovablesPriceListRowsO)
+        Get
+            Return New XPCollection(Of ImmovablesPriceListRowsO)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Garages As XPCollection(Of ImmovablesPriceListRowsG)
+        Get
+            Return New XPCollection(Of ImmovablesPriceListRowsG)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Container As XPCollection(Of ImmovablesPriceListRowsC)
+        Get
+            Return New XPCollection(Of ImmovablesPriceListRowsC)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property StudentHostel As XPCollection(Of StudentHostel)
+        Get
+            Return New XPCollection(Of StudentHostel)(Session, CriteriaOperator.Parse("CanForSale=True"))
+        End Get
+    End Property
+    <Association("CRMEstate_Leads-CRMEstate_Leads_Immovables", GetType(CRMEstate_Leads_Immovables)), VisibleInListView(False)> _
+    ReadOnly Property CRMEstate_Leads_Immovables As XPCollection(Of CRMEstate_Leads_Immovables)
+        Get
+            Return GetCollection(Of CRMEstate_Leads_Immovables)("CRMEstate_Leads_Immovables")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Selected_Apartments As XPCollection(Of Apartments)
+        Get
+            Dim _Criteria As String = ""
+            Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+
+            If Me.CRMEstate_Leads_Immovables.Count > 0 Then
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _Criteria = "" Then
+                        _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    Else
+                        _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    End If
+                Next
+                _Criteria += ")"
+            Else
+                _Criteria += "1=2"
+            End If
+
+            Dim _Apartments_Collection As New XPCollection(Of Apartments)(Session, CriteriaOperator.Parse(_Criteria))
+            Dim _Apartments As Apartments
+
+            For Each _Apartments In _Apartments_Collection
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Apartments.Oid.ToString Then
+                        _Apartments.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
+                        _Apartments.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
+                        _Apartments.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
+                        _Apartments.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
+                    End If
+                Next
+            Next
+
+            Return _Apartments_Collection
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Selected_Garages As XPCollection(Of Garages)
+        Get
+            Dim _Criteria As String = ""
+
+            Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+
+            If Me.CRMEstate_Leads_Immovables.Count > 0 Then
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _Criteria = "" Then
+                        _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    Else
+                        _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    End If
+                Next
+                _Criteria += ")"
+            Else
+                _Criteria += "1=2"
+            End If
+
+            Dim _Garages_Collection As New XPCollection(Of Garages)(Session, CriteriaOperator.Parse(_Criteria))
+
+            Dim _Garages As Garages
+
+            For Each _Garages In _Garages_Collection
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Garages.Oid.ToString Then
+                        _Garages.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
+                        _Garages.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
+                        _Garages.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
+                        _Garages.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
+                    End If
+                Next
+            Next
+
+            Return _Garages_Collection
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Selected_Container As XPCollection(Of Container)
+        Get
+            Dim _Criteria As String = ""
+            Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+
+            If Me.CRMEstate_Leads_Immovables.Count > 0 Then
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _Criteria = "" Then
+                        _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    Else
+                        _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    End If
+
+                Next
+                _Criteria += ")"
+            Else
+                _Criteria += "1=2"
+            End If
+            Dim _Container_Collection As New XPCollection(Of Container)(Session, CriteriaOperator.Parse(_Criteria))
+
+            Dim _Container As Container
+            For Each _Container In _Container_Collection
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Container.Oid.ToString Then
+                        _Container.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
+                        _Container.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
+                        _Container.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
+                        _Container.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
+                    End If
+                Next
+            Next
+            Return _Container_Collection
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Selected_Offices As XPCollection(Of Offices)
+        Get
+            Dim _Criteria As String = ""
+            Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+            If Me.CRMEstate_Leads_Immovables.Count > 0 Then
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _Criteria = "" Then
+                        _Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    Else
+                        _Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
+                    End If
+
+                Next
+                _Criteria += ")"
+            Else
+                _Criteria += "1=2"
+            End If
+            Dim _Offices_Collection As New XPCollection(Of Offices)(Session, CriteriaOperator.Parse(_Criteria))
+
+            Dim _Offices As Offices
+            For Each _Offices In _Offices_Collection
+                For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
+                    If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Offices.Oid.ToString Then
+                        _Offices.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
+                        _Offices.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
+                        _Offices.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
+                        _Offices.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
+                    End If
+                Next
+            Next
+            Return _Offices_Collection
+        End Get
+    End Property
+    <Association("CRMEstate_Leads-CRMEstate_Leads_Activity", GetType(CRMEstate_Leads_Activity)), VisibleInListView(False)> _
+    ReadOnly Property CRMEstate_Leads_Activity As XPCollection(Of CRMEstate_Leads_Activity)
+        Get
+            Return GetCollection(Of CRMEstate_Leads_Activity)("CRMEstate_Leads_Activity")
+        End Get
+    End Property
+    ReadOnly Property DisplayName As String
+        Get
+            Return LastName & " " & FirstName & ", m: " & Mobile & ", e: " & EMail
+        End Get
+    End Property
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Activity.vb

@@ -0,0 +1,94 @@
+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
+Imports DevExpress.ExpressApp.Utils
+
+'-- Paraméterek, enumok
+<DefaultClassOptions()>
+<NavigationItem(False), CreatableItem(False)> _
+Public Class CRMEstate_Leads_Activity
+    Inherits MySchedule
+    Private _CRMEstate_Leads As CRMEstate_Leads
+    Private _HRPersonEvent As HRPersonEvent
+    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()
+
+        'HRPersonEvents készítése is ! Meg értelemszerûen módosítása is !
+        If Me.EventType = eEventType.eMeeting Then
+            If HRPersonEvent Is Nothing Then
+                _HRPersonEvent = New HRPersonEvent(Session)
+                Dim _HRPerson As HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.Oid=?", SecuritySystem.CurrentUser.oid))
+                _HRPersonEvent.Resources.Add(_HRPerson)
+            End If
+            _HRPersonEvent.Subject = Me.Subject
+            _HRPersonEvent.StartOn = Me.StartOn
+            _HRPersonEvent.EndOn = Me.EndOn
+            _HRPersonEvent.Status = Me.Status
+            _HRPersonEvent.Type = Me.Type
+            _HRPersonEvent.Save()
+        End If
+    End Sub
+    Protected Overrides Sub OnDeleting()
+        MyBase.OnDeleting()
+        If Me.HRPersonEvent IsNot Nothing Then
+            Session.Delete(Me.HRPersonEvent)
+        End If
+    End Sub
+    <Association("CRMEstate_Leads-CRMEstate_Leads_Activity", GetType(CRMEstate_Leads))> _
+    Property CRMEstate_Leads As CRMEstate_Leads
+        Get
+            Return _CRMEstate_Leads
+        End Get
+        Set(value As CRMEstate_Leads)
+            SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
+        End Set
+    End Property
+    <Browsable(False)> _
+    Property HRPersonEvent As HRPersonEvent
+        Get
+            Return _HRPersonEvent
+        End Get
+        Set(value As HRPersonEvent)
+            SetPropertyValue("HRPersonEvent", _HRPersonEvent, value)
+        End Set
+    End Property
+
+    <VisibleInDetailView(False)> _
+    ReadOnly Property ImageType As Image
+        Get
+            Select Case Me.EventType
+                Case eEventType.eAlert
+                    Return ImageLoader.Instance.GetImageInfo("bell").Image
+                Case eEventType.eEMailIn
+                    Return ImageLoader.Instance.GetImageInfo("mail_into").Image
+                Case eEventType.eEmailOut
+                    Return ImageLoader.Instance.GetImageInfo("mail_out").Image
+                Case eEventType.eMeeting
+                    Return ImageLoader.Instance.GetImageInfo("calendar").Image
+                Case eEventType.ePhoneConversation
+                    Return ImageLoader.Instance.GetImageInfo("mobilephone1").Image
+                Case Else
+                    Return Nothing
+            End Select
+        End Get
+    End Property
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables.vb

@@ -0,0 +1,322 @@
+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
+
+'-- Paraméterek, enumok
+<DefaultClassOptions()>
+<NavigationItem("RealEstateTransactions")> _
+<CreatableItem(False)> _
+<DefaultProperty("CRMEstate_Leads")> _
+Public Class CRMEstate_Leads_Immovables
+    Inherits BaseObject
+    Private _CRMEstate_Leads As CRMEstate_Leads
+    Private _Immovables As Immovables
+
+    Private _VAT As VAT
+    Private _AreaPriceDivide As Double '%-ban a telek és felépítmény ár
+    Private _ParcelPriceNettoHUF As Double 'Telek netto ár
+    Private _SuperstructurePriceNettoHUF As Double 'Felépítmény ár
+    Private _ParcelPriceNettoDEV As Double 'Telek netto ár
+    Private _SuperstructurePriceNettoDEV As Double 'Felépítmény ár
+
+    'Értékesítési árak
+    Private _ListPriceBruttoDEV As Double
+    Private _ListPriceBruttoHUF As Double
+    Private _ListPriceNettoDEV As Double
+    Private _ListPriceNettoHUF As Double
+    '--
+
+    'Bérlési árak
+    Private _ListPriceBruttoDEVRent As Double
+    Private _ListPriceBruttoHUFRent As Double
+    Private _ListPriceNettoDEVRent As Double
+    Private _ListPriceNettoHUFRent As Double
+    '--
+
+    ' Értékesítési nm árak
+    Private _AreaListPriceBruttoDEV As Double
+    Private _AreaListPriceBruttoHUF As Double
+    Private _AreaListPriceNettoDEV As Double
+    Private _AreaListPriceNettoHUF As Double
+    '--
+
+    'Bérleti nm árak
+    Private _AreaListPriceBruttoDEVRent As Double
+    Private _AreaListPriceBruttoHUFRent As Double
+    Private _AreaListPriceNettoDEVRent As Double
+    Private _AreaListPriceNettoHUFRent 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()
+        Me.AreaPriceDivide = 30
+
+    End Sub
+    <Association("CRMEstate_Leads-CRMEstate_Leads_Immovables", GetType(CRMEstate_Leads))> _
+    Property CRMEstate_Leads As CRMEstate_Leads
+        Get
+            Return _CRMEstate_Leads
+        End Get
+        Set(value As CRMEstate_Leads)
+            SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
+        End Set
+    End Property
+    Property Immovables As Immovables
+        Get
+            Return _Immovables
+        End Get
+        Set(value As Immovables)
+            SetPropertyValue("Immovables", _Immovables, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property VAT As VAT
+        Get
+            Return _VAT
+        End Get
+        Set(value As VAT)
+            SetPropertyValue("VAT", _VAT, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.ListPriceBruttoHUF = Math.Round((1 + value.KeyValue) * ListPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
+                Me.ListPriceBruttoHUFRent = Math.Round((1 + value.KeyValue) * ListPriceNettoHUFRent, 0, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    Property AreaPriceDivide As Double
+        Get
+            Return _AreaPriceDivide
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaPriceDivide", _AreaPriceDivide, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.ParcelPriceNettoHUF = Math.Round((Me.ListPriceNettoHUF * (value / 100)), 0, MidpointRounding.AwayFromZero)
+                Me.SuperstructurePriceNettoHUF = Me.ListPriceNettoHUF - Me.ParcelPriceNettoHUF
+            End If
+        End Set
+    End Property
+    Property ParcelPriceNettoHUF As Double
+        Get
+            Return _ParcelPriceNettoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ParcelPriceNettoHUF", _ParcelPriceNettoHUF, value)
+        End Set
+    End Property
+    Property SuperstructurePriceNettoHUF As Double
+        Get
+            Return _SuperstructurePriceNettoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SuperstructurePriceNettoHUF", _SuperstructurePriceNettoHUF, value)
+        End Set
+    End Property
+    Property ParcelPriceNettoDEV As Double
+        Get
+            Return _ParcelPriceNettoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ParcelPriceNettoDEV", _ParcelPriceNettoDEV, value)
+        End Set
+    End Property
+    Property SuperstructurePriceNettoDEV As Double
+        Get
+            Return _SuperstructurePriceNettoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SuperstructurePriceNettoDEV", _SuperstructurePriceNettoDEV, value)
+        End Set
+    End Property
+
+
+    'Értékesítési árak
+    Property ListPriceBruttoDEV As Double
+        Get
+            Return _ListPriceBruttoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value)
+        End Set
+    End Property
+    Property ListPriceBruttoHUF As Double
+        Get
+            Return _ListPriceBruttoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value)
+        End Set
+    End Property
+    Property ListPriceNettoDEV As Double
+        Get
+            Return _ListPriceNettoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value)
+        End Set
+    End Property
+    Property ListPriceNettoHUF As Double
+        Get
+            Return _ListPriceNettoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                Me.ListPriceBruttoHUF = Math.Round(value * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+                Me.ParcelPriceNettoHUF = Math.Round(value * (AreaPriceDivide / 100), 0, MidpointRounding.AwayFromZero)
+                Me.SuperstructurePriceNettoHUF = Math.Round(value - Me.ParcelPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
+                If TryCast(Me.Immovables, Apartments) IsNot Nothing Then
+                    Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Apartments).AreaNettoForSale, 0, MidpointRounding.AwayFromZero)
+                    Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+                End If
+                If TryCast(Me.Immovables, Offices) IsNot Nothing Then
+                    Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Offices).AreaNettoForSale, 0, MidpointRounding.AwayFromZero)
+                    Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+                End If
+                If TryCast(Me.Immovables, Container) IsNot Nothing Then
+                    Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Container).AreaNetto, 0, MidpointRounding.AwayFromZero)
+                    Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+                End If
+                If TryCast(Me.Immovables, Garages) IsNot Nothing Then
+                    Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Garages).AreaNetto, 0, MidpointRounding.AwayFromZero)
+                    Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+                End If
+            End If
+        End Set
+    End Property
+    '--
+
+    'Bérlési árak
+    Property ListPriceBruttoDEVRent As Double
+        Get
+            Return _ListPriceBruttoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value)
+        End Set
+    End Property
+    Property ListPriceBruttoHUFRent As Double
+        Get
+            Return _ListPriceBruttoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value)
+        End Set
+    End Property
+    Property ListPriceNettoDEVRent As Double
+        Get
+            Return _ListPriceNettoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value)
+        End Set
+    End Property
+    Property ListPriceNettoHUFRent As Double
+        Get
+            Return _ListPriceNettoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value)
+            If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
+                ListPriceBruttoHUFRent = Math.Round(value * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
+            End If
+        End Set
+    End Property
+    '--
+
+    ' Értékesítési nm árak
+    Property AreaListPriceBruttoDEV As Double
+        Get
+            Return _AreaListPriceBruttoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value)
+        End Set
+    End Property
+    Property AreaListPriceBruttoHUF As Double
+        Get
+            Return _AreaListPriceBruttoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value)
+        End Set
+    End Property
+    Property AreaListPriceNettoDEV As Double
+        Get
+            Return _AreaListPriceNettoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value)
+        End Set
+    End Property
+    Property AreaListPriceNettoHUF As Double
+        Get
+            Return _AreaListPriceNettoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value)
+        End Set
+    End Property
+    '--
+
+    'Bérleti nm árak
+    Property AreaListPriceBruttoDEVRent As Double
+        Get
+            Return _AreaListPriceBruttoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value)
+        End Set
+    End Property
+    Property AreaListPriceBruttoHUFRent As Double
+        Get
+            Return _AreaListPriceBruttoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value)
+        End Set
+    End Property
+    Property AreaListPriceNettoDEVRent As Double
+        Get
+            Return _AreaListPriceNettoDEVRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value)
+        End Set
+    End Property
+    Property AreaListPriceNettoHUFRent As Double
+        Get
+            Return _AreaListPriceNettoHUFRent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value)
+        End Set
+    End Property
+
+    '---------ReadOnly properties--------------------
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Leads_Immovables-CRMEstate_Leads_Immovables_Reservation", GetType(CRMEstate_Leads_Immovables_Reservation))> _
+    ReadOnly Property CRMEstate_Leads_Immovables_Reservation As XPCollection(Of CRMEstate_Leads_Immovables_Reservation)
+        Get
+            Return GetCollection(Of CRMEstate_Leads_Immovables_Reservation)("CRMEstate_Leads_Immovables_Reservation")
+        End Get
+    End Property
+End Class
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Leads_Immovables_Reservation.vb

@@ -0,0 +1,81 @@
+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 CRMEstate_Leads_Immovables_Reservation 'Opciós foglalás ingatlanra, ami automatikusan lejár
+    Inherits BaseObject
+    Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'Milyen kiválasztott inatlanra
+    Private _DateFrom As Date 'Mettõl
+    Private _DateTo As Date 'Meddig
+    Private _ObjectCreated As Date 'Mikor
+    Private _UserCreated As User 'Ki csinálta a rekordot
+    Private _Task_EntryID As String 'Outlook task EntryID
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("CRMEstate_Leads_Immovables-CRMEstate_Leads_Immovables_Reservation", GetType(CRMEstate_Leads_Immovables))> _
+    Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+        Get
+            Return _CRMEstate_Leads_Immovables
+        End Get
+        Set(value As CRMEstate_Leads_Immovables)
+            SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value)
+        End Set
+    End Property
+    Property DateFrom As Date
+        Get
+            Return _DateFrom
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateFrom", _DateFrom, value)
+        End Set
+    End Property
+    Property DateTo As Date
+        Get
+            Return _DateTo
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateTo", _DateTo, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    <NonCloneable> _
+    Property UserCreated As User
+        Get
+            Return _UserCreated
+        End Get
+        Set(value As User)
+            SetPropertyValue("UserCreated", _UserCreated, value)
+        End Set
+    End Property
+    Property Task_EntryID As String
+        Get
+            Return _Task_EntryID
+        End Get
+        Set(value As String)
+            SetPropertyValue("Task_EntryID", _Task_EntryID, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template.vb

@@ -0,0 +1,143 @@
+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("RealEstateStocks")> _
+Public Class CRMEstate_Offer_Template
+    Inherits BaseObject
+    Private _DocumentBody As String 'Dokumentum törzs az árajánlatnak
+    Private _DocumentBodyPriceList As String 'Dokumentum törzs az árlistához
+    Private _ShortName As String 'Megnevezés
+    Private _ReportData As Reports.ReportData 'Árajánlati nyomtatvány
+    Private _ReportData_Contract_Temp As Reports.ReportData 'Szerzõdési nyomtatvány az ügyvédnek
+    Private _VAT As VAT 'Az ajánlathoz készülõ szerzõdések sorainak ÁFÁja
+    Private _Controlling_AdvanceMoney As Controlling 'Az ajánlathoz készülõ  elõleg szerzõdési sorok CM-je
+    Private _Controlling_Final As Controlling
+    Private _Controlling_Rent As Controlling
+    Private _PaymentOption As PaymentOption
+    Private _CostHolder As CostHolder 'Az ajánlathoz készülõ szerzõdési sorok költségviselõje
+    Private _CostPlace As CostPlace 'Az ajánlathoz készülõ szerzõdési sorok költséghelye
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <Size(-1)> _
+    Property DocumentBody() As String
+        Get
+            Return _DocumentBody
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("DocumentBody", _DocumentBody, value)
+        End Set
+    End Property
+    <Size(-1)> _
+    Property DocumentBodyPriceList As String
+        Get
+            Return _DocumentBodyPriceList
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentBodyPriceList", _DocumentBodyPriceList, 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 ReportData As Reports.ReportData
+        Get
+            Return _ReportData
+        End Get
+        Set(value As Reports.ReportData)
+            SetPropertyValue("ReportData", _ReportData, value)
+        End Set
+    End Property
+    Property ReportData_Contract_Temp As Reports.ReportData
+        Get
+            Return _ReportData_Contract_Temp
+        End Get
+        Set(value As Reports.ReportData)
+            SetPropertyValue("ReportData_Contract_Temp", _ReportData_Contract_Temp, 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
+    <DataSourceCriteria("IsParent=False")> _
+    Property Controlling_AdvanceMoney As Controlling
+        Get
+            Return _Controlling_AdvanceMoney
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling_AdvanceMoney", _Controlling_AdvanceMoney, value)
+        End Set
+    End Property
+    <DataSourceCriteria("IsParent=False")> _
+    Property Controlling_Final As Controlling
+        Get
+            Return _Controlling_Final
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling_Final", _Controlling_Final, value)
+        End Set
+    End Property
+    <DataSourceCriteria("IsParent=False")> _
+    Property Controlling_Rent As Controlling
+        Get
+            Return _Controlling_Rent
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling_Rent", _Controlling_Rent, value)
+        End Set
+    End Property
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Offer_Template-CRMEstate_Offer_Template_CustomersFrom", GetType(CRMEstate_Offer_Template_CustomersFrom))> _
+    ReadOnly Property CRMEstate_Offer_Template_CustomersFrom As XPCollection(Of CRMEstate_Offer_Template_CustomersFrom)
+        Get
+            Return GetCollection(Of CRMEstate_Offer_Template_CustomersFrom)("CRMEstate_Offer_Template_CustomersFrom")
+        End Get
+    End Property
+
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Offer_Template_CustomersFrom.vb

@@ -0,0 +1,71 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+Public Class CRMEstate_Offer_Template_CustomersFrom
+    Inherits BaseObject
+    Private _CustomersFrom As CustomersFrom
+    Private _ContractTemplate_AdvanceMoney As ContractTemplate 'Szerzõdési sablon az elõszerzõdéshez
+    Private _ContractTemplate_Final As ContractTemplate 'Szerzõdési sablon az értékesítési végszerzõdéshez
+    Private _ContractTemplate_Rent As ContractTemplate 'Szerzõdési sablon a bérleti szerzõdéshez
+    Private _CRMEstate_Offer_Template As CRMEstate_Offer_Template 'Általános ajánlati paraméterek
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    Public Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(ByVal value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND PartnerType=0")> _
+    Property ContractTemplate_AdvanceMoney As ContractTemplate
+        Get
+            Return _ContractTemplate_AdvanceMoney
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate_AdvanceMoney", _ContractTemplate_AdvanceMoney, value)
+        End Set
+    End Property
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND PartnerType=0")> _
+    Property ContractTemplate_Final As ContractTemplate
+        Get
+            Return _ContractTemplate_Final
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate_Final", _ContractTemplate_Final, value)
+        End Set
+    End Property
+    <DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND PartnerType=0")> _
+    Property ContractTemplate_Rent As ContractTemplate
+        Get
+            Return _ContractTemplate_Rent
+        End Get
+        Set(ByVal value As ContractTemplate)
+            SetPropertyValue("ContractTemplate_Rent", _ContractTemplate_Rent, value)
+        End Set
+    End Property
+    <Association("CRMEstate_Offer_Template-CRMEstate_Offer_Template_CustomersFrom", GetType(CRMEstate_Offer_Template))> _
+    Property CRMEstate_Offer_Template As CRMEstate_Offer_Template
+        Get
+            Return _CRMEstate_Offer_Template
+        End Get
+        Set(ByVal value As CRMEstate_Offer_Template)
+            SetPropertyValue("CRMEstate_Offer_Template", _CRMEstate_Offer_Template, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity.vb

@@ -0,0 +1,119 @@
+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("RealEstateTransactions")> _
+<DefaultProperty("DisplayName")> _
+<Appearance("Hide rent Action if opportunity type not rent", AppearanceItemType:="Action", Criteria:="OpportunityType=1", Context:="Any", TargetItems:="aCreateContractRent", Visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide sold Action if opportunity type not sold", AppearanceItemType:="Action", Criteria:="OpportunityType=0", Context:="Any", TargetItems:="aCreateContractSold", Visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class CRMEstate_Opportunity
+    Inherits BaseObject
+    Private _CRMEstate_Leads As CRMEstate_Leads
+    Private _OpportunityType As eOpportunityType
+    Private _DocumentNumber As String 'Ügy azonosító
+    Private _Description As String 'Leírás
+    Private _ObjectCreated As Date 'Létrehozva
+    Private _HRPerson As HRPerson 'Felelõs
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    Property CRMEstate_Leads As CRMEstate_Leads
+        Get
+            Return _CRMEstate_Leads
+        End Get
+        Set(ByVal value As CRMEstate_Leads)
+            SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
+        End Set
+    End Property
+    Property OpportunityType As eOpportunityType
+        Get
+            Return _OpportunityType
+        End Get
+        Set(value As eOpportunityType)
+            SetPropertyValue("OpportunityType", _OpportunityType, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <Size(4000)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    Property ObjectCreated As Date
+        Get
+            Return _ObjectCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("ObjectCreated", _ObjectCreated, value)
+        End Set
+    End Property
+    Property HRPerson As HRPerson
+        Get
+            Return _HRPerson
+        End Get
+        Set(value As HRPerson)
+            SetPropertyValue("HRPerson", _HRPerson, value)
+        End Set
+    End Property
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Opportunity-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity_Immovables))> _
+    ReadOnly Property CRMEstate_Opportunity_Immovables As XPCollection(Of CRMEstate_Opportunity_Immovables)
+        Get
+            Return GetCollection(Of CRMEstate_Opportunity_Immovables)("CRMEstate_Opportunity_Immovables")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property Contracts As XPCollection(Of Contracts)
+        Get
+            Return New XPCollection(Of Contracts)(Session, CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity=?", Me))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader)
+        Get
+            Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("Oid<>Oid"))
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    ReadOnly Property PCIGroup As XPCollection(Of PCIGroup)
+        Get
+            Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse("Oid<>Oid"))
+        End Get
+    End Property
+    ReadOnly Property DisplayName
+        Get
+            Return DocumentNumber & ", " & CRMEstate_Leads.LastName & " " & CRMEstate_Leads.FirstName & ", " & ObjectCreated
+        End Get
+    End Property
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.Designer.vb

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

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.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="aPrintContractTemplate.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/BusinessTransactions/Estate/CRM/CRMEstate_OpportunityVC.vb

@@ -0,0 +1,45 @@
+Imports System
+Imports System.ComponentModel
+Imports System.Collections.Generic
+Imports System.Diagnostics
+Imports System.Text
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.ExpressApp.Actions
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Data.Filtering
+Imports DevExpress.ExpressApp.Utils
+
+Public Class CRMEstate_OpportunityVC
+    Inherits DevExpress.ExpressApp.ViewController
+
+    Public Sub New()
+        MyBase.New()
+        InitializeComponent()
+        RegisterActions(components)
+    End Sub
+    Private Sub aPrintContractTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintContractTemplate.Execute
+        Try
+            Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
+            Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity)
+            Dim _e As CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity.CRMEstate_Opportunity_Immovables(0)
+            Dim _InOperator As InOperator
+            Dim _OidArray As New ArrayList
+
+            Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _
+                                                                                            _CRMEstate_Opportunity.CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups))
+            If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs beállítva ingatlancsoport paraméter!")
+
+            For Each _CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity.CRMEstate_Opportunity_Immovables
+                _OidArray.Add(_CRMEstate_Opportunity_Immovables.Oid)
+            Next
+
+            _InOperator = New InOperator("Oid", _OidArray)
+
+            If _ImmovablesGroupsParameters.ReportData_Contract_Temp Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
+            Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ImmovablesGroupsParameters.ReportData_Contract_Temp, _InOperator, True)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\SISBusinessExceptions", "MsgBoxCheckItAgain")))
+        End Try
+    End Sub
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_AdvanceMoney.vb

@@ -0,0 +1,154 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide HUF If currencyname != HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName != 'HUF'", Context:="Any", TargetItems:="AmountHUF", Visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide DEV If currencyname = HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName = 'HUF'", Context:="Any", TargetItems:="AmountDEV", Visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class CRMEstate_Opportunity_AdvanceMoney
+    Inherits BaseObject
+    Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+    Private _CustomersFrom As CustomersFrom
+    Private _Customers As Customers
+    Private _DocumentNumber As String 'Dokumentum sorszáma (nyomtatáshoz kell)
+    Private _DateCreated As Date 'Káll. dátuma
+    Private _DateExpiration As Date 'Lejárat dátuma
+    Private _AmountHUF As Double 'Összeg (HUF)
+    Private _AmountDEV As Double 'Összeg (DEV)
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _Active As Boolean = False
+    Private _ContractRows As ContractRows 'Számla fejléc (ha készült róla)
+    Private _PaymentOption As PaymentOption 'A kiállítandó számla fizetési opciója
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+        Me.PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=0"))
+    End Sub
+    <Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_AdvanceMoney", GetType(CRMEstate_Opportunity_Immovables))> _
+    Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+        Get
+            Return _CRMEstate_Opportunity_Immovables
+        End Get
+        Set(value As CRMEstate_Opportunity_Immovables)
+            SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
+                Me.CustomersFrom = TryCast(value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner, CustomersFrom)
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.Customers", DefaultContexts.Save)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("CustomersFrom", _Customers, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <NonCloneable()> _
+    Property DocumentNumber As String
+        Get
+            Return _DocumentNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("DocumentNumber", _DocumentNumber, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.DateCreated", DefaultContexts.Save)> _
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.DateExpiration = value.AddDays(14)
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.DateExpiration", DefaultContexts.Save)> _
+    Property DateExpiration As Date
+        Get
+            Return _DateExpiration
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateExpiration", _DateExpiration, value)
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_AdvanceMoney.AmountHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
+    Property AmountHUF As Double
+        Get
+            Return _AmountHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountHUF", _AmountHUF, value)
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_AdvanceMoney.AmountDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
+    Property AmountDEV As Double
+        Get
+            Return _AmountDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountDEV", _AmountDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    Property Active As Boolean
+        Get
+            Return _Active
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("Active", _Active, value)
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(ByVal value As ContractRows)
+            SetPropertyValue("InvoiceHeader", _ContractRows, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.PaymentOption", DefaultContexts.Save)> _
+    Property PaymentOption As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+End Class

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Customers.vb

@@ -0,0 +1,178 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultProperty("Customers")> _
+Public Class CRMEstate_Opportunity_Customers
+    Inherits BaseObject
+    Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+    Private _Customers As Customers
+    Private _BirthDay As Date
+    Private _PlaceOfBirth As String
+    Private _SocialNumberLastFourDigit As String 'Személyi szám 
+    Private _SocialNumber As String 'Személy igazolvány szám
+    Private _MotherName As String
+    Private _AddressNotice As Address 'Értesítési cím
+    Private _AddressInvoice As Address 'Számlázási cím
+    Private _RightQuota As Double
+    Private _RightState As eRightState
+    Private _KSHNumber As String
+    Private _CorporateNumber 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
+    <Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Customers", GetType(CRMEstate_Opportunity_Immovables))> _
+    Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+        Get
+            Return _CRMEstate_Opportunity_Immovables
+        End Get
+        Set(value As CRMEstate_Opportunity_Immovables)
+            SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
+        End Set
+    End Property
+    <ImmediatePostData()>
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.Customers", DefaultContexts.Save)> _
+    Property Customers As Customers
+        Get
+            Return _Customers
+        End Get
+        Set(value As Customers)
+            SetPropertyValue("Customers", _Customers, value)
+            If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value IsNot Nothing Then
+                Dim _ExistingCRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers = Session.FindObject(Of CRMEstate_Opportunity_Customers)(CriteriaOperator.Parse("Customers=?", value))
+                If _ExistingCRMEstate_Opportunity_Customers IsNot Nothing Then
+                    Me.AddressInvoice = _ExistingCRMEstate_Opportunity_Customers.AddressInvoice
+                    Me.AddressNotice = _ExistingCRMEstate_Opportunity_Customers.AddressNotice
+                    Me.BirthDay = _ExistingCRMEstate_Opportunity_Customers.BirthDay
+                    Me.MotherName = _ExistingCRMEstate_Opportunity_Customers.MotherName
+                    Me.PlaceOfBirth = _ExistingCRMEstate_Opportunity_Customers.PlaceOfBirth
+                    Me.SocialNumber = _ExistingCRMEstate_Opportunity_Customers.SocialNumber
+                    Me.SocialNumberLastFourDigit = _ExistingCRMEstate_Opportunity_Customers.SocialNumberLastFourDigit
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.BirthDay", DefaultContexts.Save)> _
+    Property BirthDay As Date
+        Get
+            Return _BirthDay
+        End Get
+        Set(value As Date)
+            SetPropertyValue("BirthDay", _BirthDay, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.PlaceOfBirth", DefaultContexts.Save)> _
+    Property PlaceOfBirth As String
+        Get
+            Return _PlaceOfBirth
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("PlaceOfBirth", _PlaceOfBirth, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.SocialNumberLastFourDigit", DefaultContexts.Save)> _
+    Property SocialNumberLastFourDigit As String
+        Get
+            Return _SocialNumberLastFourDigit
+        End Get
+        Set(value As String)
+            SetPropertyValue("SocialNumberLastFourDigit", _SocialNumberLastFourDigit, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.SocialNumber", DefaultContexts.Save)> _
+    Property SocialNumber As String
+        Get
+            Return _SocialNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("SocialNumber", _SocialNumber, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.MotherName", DefaultContexts.Save)> _
+    Property MotherName As String
+        Get
+            Return _MotherName
+        End Get
+        Set(ByVal value As String)
+            SetPropertyValue("MotherName", _MotherName, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.AddressNotice", DefaultContexts.Save)> _
+    Property AddressNotice As Address
+        Get
+            Return _AddressNotice
+        End Get
+        Set(value As Address)
+            SetPropertyValue("AddressNotice", _AddressNotice, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.AddressInvoice", DefaultContexts.Save)> _
+    Property AddressInvoice As Address
+        Get
+            Return _AddressInvoice
+        End Get
+        Set(value As Address)
+            SetPropertyValue("AddressInvoice", _AddressInvoice, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.RightQuota", DefaultContexts.Save)> _
+    Property RightQuota As Double
+        Get
+            Return _RightQuota
+        End Get
+        Set(value As Double)
+            SetPropertyValue("RightQuota", _RightQuota, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Customers.RightState", DefaultContexts.Save)> _
+    Property RightState As eRightState
+        Get
+            Return _RightState
+        End Get
+        Set(value As eRightState)
+            SetPropertyValue("RightState", _RightState, value)
+        End Set
+    End Property
+    Property KSHNumber As String
+        Get
+            Return _KSHNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("KSHNumber", _KSHNumber, value)
+        End Set
+    End Property
+    Property CorporateNumber As String
+        Get
+            Return _CorporateNumber
+        End Get
+        Set(value As String)
+            SetPropertyValue("CorporateNumber", _CorporateNumber, value)
+        End Set
+    End Property
+End Class
+
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Immovables.vb

@@ -0,0 +1,96 @@
+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
+
+'-- Paraméterek, enumok
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("Hide CRMEstate_Opportunity_Rent when CRMEstate_Opportunity.OpportunityType=1", AppearanceItemType.LayoutItem, "CRMEstate_Opportunity.OpportunityType=1", TargetItems:="CRMEstate_Opportunity_Rent", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide CRMEstate_Opportunity_Payment_Forecast when CRMEstate_Opportunity.OpportunityType=0", AppearanceItemType.LayoutItem, "CRMEstate_Opportunity.OpportunityType=0", TargetItems:="CRMEstate_Opportunity_Payment_Forecast;CRMEstate_Opportunity_AdvanceMoney", visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class CRMEstate_Opportunity_Immovables
+    Inherits BaseObject
+
+    Private _CRMEstate_Opportunity As CRMEstate_Opportunity
+    Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+
+    <Association("CRMEstate_Opportunity-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity))> _
+    Property CRMEstate_Opportunity As CRMEstate_Opportunity
+        Get
+            Return _CRMEstate_Opportunity
+        End Get
+        Set(value As CRMEstate_Opportunity)
+            SetPropertyValue("CRMEstate_Opportunity", _CRMEstate_Opportunity, value)
+        End Set
+    End Property
+    Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+        Get
+            Return _CRMEstate_Leads_Immovables
+        End Get
+        Set(value As CRMEstate_Leads_Immovables)
+            SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value)
+        End Set
+    End Property
+
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Customers", GetType(CRMEstate_Opportunity_Customers))> _
+    ReadOnly Property CRMEstate_Opportunity_Customers As XPCollection(Of CRMEstate_Opportunity_Customers)
+        Get
+            Return GetCollection(Of CRMEstate_Opportunity_Customers)("CRMEstate_Opportunity_Customers")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Payment_Forecast", GetType(CRMEstate_Opportunity_Payment_Forecast))> _
+    ReadOnly Property CRMEstate_Opportunity_Payment_Forecast As XPCollection(Of CRMEstate_Opportunity_Payment_Forecast)
+        Get
+            Return GetCollection(Of CRMEstate_Opportunity_Payment_Forecast)("CRMEstate_Opportunity_Payment_Forecast")
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Opportunity_Rent-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity_Rent))> _
+    ReadOnly Property CRMEstate_Opportunity_Rent As XPCollection(Of CRMEstate_Opportunity_Rent)
+        Get
+            Return GetCollection(Of CRMEstate_Opportunity_Rent)("CRMEstate_Opportunity_Rent")
+
+        End Get
+    End Property
+    <VisibleInListView(False)> _
+    <Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_AdvanceMoney", GetType(CRMEstate_Opportunity_AdvanceMoney))> _
+    ReadOnly Property CRMEstate_Opportunity_AdvanceMoney As XPCollection(Of CRMEstate_Opportunity_AdvanceMoney)
+        Get
+            Return GetCollection(Of CRMEstate_Opportunity_AdvanceMoney)("CRMEstate_Opportunity_AdvanceMoney")
+        End Get
+    End Property
+
+    <VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
+    ReadOnly Property Immovables_Oid As String
+        Get
+            Dim _Immovables_Oid As String = ""
+            If Me.CRMEstate_Leads_Immovables IsNot Nothing Then
+                If Me.CRMEstate_Leads_Immovables.Immovables IsNot Nothing Then
+                    _Immovables_Oid = Me.CRMEstate_Leads_Immovables.Immovables.Oid.ToString
+                End If
+            End If
+            Return _Immovables_Oid
+        End Get
+    End Property
+
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Payment_Forecast.vb

@@ -0,0 +1,223 @@
+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("CRMEstate_Opportunity_Payment_Forecast Hide HUF If currencyname != HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName != 'HUF'", Context:="Any", TargetItems:="SumPriceNettoHUF;SumPriceVATHUF;SumPriceBruttoHUF", Visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("CRMEstate_Opportunity_Payment_Forecast Hide DEV If currencyname = HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName = 'HUF'", Context:="Any", TargetItems:="SumPriceNettoDEV;SumPriceVATDEV;SumPriceBruttoDEV", Visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("CRMEstate_Opportunity_Payment_Forecast disable some porperties", AppearanceItemType.ViewItem, "1=1", TargetItems:="SumPriceVATHUF;SumPriceVATDEV;SumPriceBruttoHUF;SumPriceBruttoDEV", Enabled:=False)> _
+Public Class CRMEstate_Opportunity_Payment_Forecast
+    Inherits BaseObject
+    Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+    Private _CustomersFrom As CustomersFrom 'Saját cég
+    Private _RowIndex As Long 'Sor index
+    Private _MileStonePayment As eMileStonePayment 'Mérföldkõ
+    Private _InvoiceTypeBase As eInvoiceTypeBase 'Számla bázis tipusa
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _DateExecution As Date 'A pénzügyi teljesülés dátuma
+    Private _Description As String
+    Private _SumPriceNettoHUF As Double 'Netto HUF
+    Private _SumPriceVATHUF As Double 'ÁFA HUF
+    Private _SumPriceBruttoHUF As Double 'Bruttó HUF
+    Private _SumPriceNettoDEV As Double 'Netto DEV
+    Private _SumPriceVATDEV As Double 'ÁFA DEV
+    Private _SumPriceBruttoDEV As Double 'Brutto DEV
+    Private _SumPricePercent As Double 'Vételár %-os
+    Private _ContractRows As ContractRows
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+        Me.SumPricePercent = 100
+    End Sub
+    <Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Payment_Forecast", _
+    GetType(CRMEstate_Opportunity_Immovables))> _
+    Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+        Get
+            Return _CRMEstate_Opportunity_Immovables
+        End Get
+        Set(value As CRMEstate_Opportunity_Immovables)
+            SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Payment_Forecast.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Payment_Forecast.RowIndex", DefaultContexts.Save)> _
+    Property RowIndex As Long
+        Get
+            Return _RowIndex
+        End Get
+        Set(value As Long)
+            SetPropertyValue("RowIndex", _RowIndex, value)
+        End Set
+    End Property
+    Property MileStonePayment As eMileStonePayment
+        Get
+            Return _MileStonePayment
+        End Get
+        Set(value As eMileStonePayment)
+            SetPropertyValue("MileStonePayment", _MileStonePayment, value)
+        End Set
+    End Property
+
+    Property InvoiceTypeBase As eInvoiceTypeBase
+        Get
+            Return _InvoiceTypeBase
+        End Get
+        Set(value As eInvoiceTypeBase)
+            SetPropertyValue("InvoiceTypeBase", _InvoiceTypeBase, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("CRMEstate_Opportunity_Payment_Forecast.CurrencyName", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, 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
+    <Size(-1)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
+    Property SumPriceNettoHUF As Double
+        Get
+            Return _SumPriceNettoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceNettoHUF", _SumPriceNettoHUF, value)
+
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If Not Me.SumPriceBruttoHUF = value + Me.SumPriceVATHUF Then
+                    Me.SumPriceVATHUF = Math.Round((value * (Me.ImmovablesGroupsParameters.VAT.KeyValuePercent / 100)), 0, MidpointRounding.AwayFromZero)
+                    Me.SumPriceBruttoHUF = value + Me.SumPriceVATHUF
+
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceVATHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
+    Property SumPriceVATHUF As Double
+        Get
+            Return _SumPriceVATHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceBruttoHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
+    Property SumPriceBruttoHUF As Double
+        Get
+            Return _SumPriceBruttoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                If Not Me.SumPriceNettoHUF = value - Me.SumPriceVATHUF Then
+                    Me.SumPriceVATHUF = Math.Round((value / (100 + Me.ImmovablesGroupsParameters.VAT.KeyValuePercent) * Me.ImmovablesGroupsParameters.VAT.KeyValuePercent), 0, MidpointRounding.AwayFromZero)
+                    Me.SumPriceNettoHUF = value - Me.SumPriceVATHUF
+                End If
+            End If
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
+    Property SumPriceNettoDEV As Double
+        Get
+            Return _SumPriceNettoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceNettoDEV", _SumPriceNettoDEV, value)
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceVATDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
+    Property SumPriceVATDEV As Double
+        Get
+            Return _SumPriceVATDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value)
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceBruttoDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
+    Property SumPriceBruttoDEV As Double
+        Get
+            Return _SumPriceBruttoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value)
+        End Set
+    End Property
+    Property SumPricePercent As Double
+        Get
+            Return _SumPricePercent
+        End Get
+        Set(value As Double)
+            SetPropertyValue("SumPricePercent", _SumPricePercent, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.SumPriceBruttoHUF = Me.SumPriceBruttoHUF * (value / 100)
+            End If
+        End Set
+    End Property
+    Property ContractRows As ContractRows
+        Get
+            Return _ContractRows
+        End Get
+        Set(value As ContractRows)
+            SetPropertyValue("ContractRows", _ContractRows, value)
+        End Set
+    End Property
+
+    '----------ReadOnly--------------------
+    <Browsable(False)> _
+    ReadOnly Property ImmovablesGroupsParameters As ImmovablesGroupsParameters
+        Get
+            If Me.CRMEstate_Opportunity_Immovables IsNot Nothing Then
+                Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = Session.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups))
+                Return _ImmovablesGroupsParameters
+            Else
+                Return Nothing
+            End If
+        End Get
+    End Property
+
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Rent.vb

@@ -0,0 +1,220 @@
+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
+
+'-- Paraméterek, enumok
+<DefaultClassOptions()> _
+<NavigationItem(False), CreatableItem(False)> _
+<Appearance("CRMEstate_Opportunity_Rent Hide HUF If currencyname != HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName != 'HUF'", Context:="Any", TargetItems:="AmountNettoHUF", Visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("CRMEstate_Opportunity_Rent Hide DEV If currencyname = HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName = 'HUF'", Context:="Any", TargetItems:="AmountNettoDEV", Visibility:=Editors.ViewItemVisibility.Hide)> _
+Public Class CRMEstate_Opportunity_Rent
+    Inherits BaseObject
+    Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+    Private _CustomersFrom As CustomersFrom
+    Private _Contracts As Contracts 'Bérleti szerzõdés
+    Private _DateCreated As Date 'Szerzõdés kelte
+    Private _DateStart As Date 'Szerzõdés -tól
+    Private _DateStop As Date 'Szerzõdés -ig
+    Private _DayOfExecution As eDayOfMonth 'Forduló nap
+    Private _AmountNettoHUF As Double 'Havi bérleti dij
+    Private _AmountNettoDEV As Double 'Havi bérleti dij devizában
+    Private _CurrencyName As CurrencyName 'Deviza
+    Private _Description As String 'Egyéb megjegyzések
+    'Bérleti szerződés paraméterek
+    Private _Controlling As Controlling
+    Private _PaymentOption As PaymentOption '--Fizetési opció
+    Private _CostHolder As CostHolder ' -- Költségviselõ
+    Private _CostPlace As CostPlace '-- Költséghely
+    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()
+        Me.DateCreated = GetSQLTime(Session)
+        Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
+    End Sub
+    Protected Overrides Sub OnSaving()
+        MyBase.OnSaving()
+        CheckImmovableForRent(Me)
+    End Sub
+    Protected Overrides Sub OnDeleting()
+        MyBase.OnDeleting()
+
+    End Sub
+    <Association("CRMEstate_Opportunity_Rent-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity_Immovables))> _
+    Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
+        Get
+            Return _CRMEstate_Opportunity_Immovables
+        End Get
+        Set(value As CRMEstate_Opportunity_Immovables)
+            SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
+                If TryCast(value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner, CustomersFrom) IsNot Nothing Then
+                    Me.CustomersFrom = value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner
+                End If
+                Me.AmountNettoHUF = value.CRMEstate_Leads_Immovables.Immovables.PriceNettoHUFRent
+                Me.AmountNettoDEV = value.CRMEstate_Leads_Immovables.Immovables.PriceNettoDEVRent
+            End If
+        End Set
+    End Property
+    Property Contracts As Contracts
+        Get
+            Return _Contracts
+        End Get
+        Set(value As Contracts)
+            SetPropertyValue("Contracts", _Contracts, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent.CustomersFrom", DefaultContexts.Save)> _
+    Property CustomersFrom As CustomersFrom
+        Get
+            Return _CustomersFrom
+        End Get
+        Set(value As CustomersFrom)
+            SetPropertyValue("CustomersFrom", _CustomersFrom, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent.DateCreated", DefaultContexts.Save)> _
+    Property DateCreated As Date
+        Get
+            Return _DateCreated
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateCreated", _DateCreated, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent.DateStart", DefaultContexts.Save)> _
+    Property DateStart As Date
+        Get
+            Return _DateStart
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateStart", _DateStart, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent.DateStop", DefaultContexts.Save)> _
+    Property DateStop As Date
+        Get
+            Return _DateStop
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateStop", _DateStop, value)
+        End Set
+    End Property
+    Property DayOfExecution As eDayOfMonth
+        Get
+            Return _DayOfExecution
+        End Get
+        Set(value As eDayOfMonth)
+            SetPropertyValue("DayOfExecution", _DayOfExecution, value)
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_Rent.AmountNettoHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
+    Property AmountNettoHUF As Double
+        Get
+            Return _AmountNettoHUF
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value)
+        End Set
+    End Property
+    <RuleRange("CRMEstate_Opportunity_Rent.AmountNettoDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
+    Property AmountNettoDEV As Double
+        Get
+            Return _AmountNettoDEV
+        End Get
+        Set(value As Double)
+            SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value)
+        End Set
+    End Property
+    <ImmediatePostData()> _
+    <RuleRequiredField("CRMEstate_Opportunity_Rent.CurrencyRate", DefaultContexts.Save)> _
+    Property CurrencyName As CurrencyName
+        Get
+            Return _CurrencyName
+        End Get
+        Set(value As CurrencyName)
+            SetPropertyValue("CurrencyName", _CurrencyName, value)
+        End Set
+    End Property
+    <Size(4000)> _
+    Property Description As String
+        Get
+            Return _Description
+        End Get
+        Set(value As String)
+            SetPropertyValue("Description", _Description, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent-Controlling", DefaultContexts.Save)> _
+    <DataSourceCriteria("IsParent=False")> _
+    Property Controlling() As Controlling
+        Get
+            Return _Controlling
+        End Get
+        Set(ByVal value As Controlling)
+            SetPropertyValue("Controlling", _Controlling, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent-PaymentOptions", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.PartnerType = 0")> _
+    Property PaymentOption() As PaymentOption
+        Get
+            Return _PaymentOption
+        End Get
+        Set(ByVal value As PaymentOption)
+            SetPropertyValue("PaymentOption", _PaymentOption, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Opportunity_Rent-CostHolder", DefaultContexts.Save)> _
+    Property CostHolder As CostHolder
+        Get
+            Return _CostHolder
+        End Get
+        Set(ByVal value As CostHolder)
+            SetPropertyValue("CostHolder", _CostHolder, value)
+        End Set
+    End Property
+    Property CostPlace As CostPlace
+        Get
+            Return _CostPlace
+        End Get
+        Set(ByVal value As CostPlace)
+            SetPropertyValue("CostPlace", _CostPlace, value)
+        End Set
+    End Property
+    Public Function CheckImmovableForRent(p_CRMEstate_Opportunity_Rent As CRMEstate_Opportunity_Rent) As Boolean
+
+        'Ellenőrzi a bérlési foglalásokat
+
+        Dim _IsReservationOK As Boolean = False
+        Dim _ExistingReservation As CRMEstate_Opportunity_Rent = Session.FindObject(Of CRMEstate_Opportunity_Rent)(CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables =? AND ((DateStart>=? AND DateStart<=?) OR (DateStop<=? AND DateStop>=?))", _
+                            p_CRMEstate_Opportunity_Rent.CRMEstate_Opportunity_Immovables, p_CRMEstate_Opportunity_Rent.DateStart, p_CRMEstate_Opportunity_Rent.DateStop, p_CRMEstate_Opportunity_Rent.DateStop, p_CRMEstate_Opportunity_Rent.DateStart))
+
+        If _ExistingReservation IsNot Nothing And _ExistingReservation IsNot p_CRMEstate_Opportunity_Rent Then
+            Throw New Exception("*A kiválasztott ingatlanra (" & p_CRMEstate_Opportunity_Rent.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & ") vonatkozó foglalás ütközik egy foglalással a következő időintervallumra: " & _ExistingReservation.DateStart.ToString & " - " & _ExistingReservation.DateStop.ToString & "!")
+        Else
+            _IsReservationOK = True
+        End If
+
+        Return _IsReservationOK
+
+    End Function
+End Class
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Enums.vb

@@ -0,0 +1,30 @@
+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
+
+'-- Paraméterek, enumok
+Public Enum eRightState
+    ePossessor = 0 'Tulajdonos
+    eUsufructuary = 1 'Haszonélvezeti jog
+End Enum
+Public Enum eMileStonePayment
+    eSigned = 0
+    eEnterIntoPossession = 1
+    eOther = 2
+End Enum
+Public Enum eOpportunityType
+    eRent = 0
+    eSold = 1
+End Enum
+
+
+

SISBusiness.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/Popup/CRMEstate_Leads_Immovables_Reservation_Popup.vb

@@ -0,0 +1,76 @@
+Imports System
+Imports System.ComponentModel
+
+Imports DevExpress.Xpo
+Imports DevExpress.Data.Filtering
+
+Imports DevExpress.ExpressApp
+Imports DevExpress.Persistent.Base
+Imports DevExpress.Persistent.BaseImpl
+Imports DevExpress.Persistent.Validation
+Imports DevExpress.ExpressApp.ConditionalAppearance
+
+<NavigationItem(False), CreatableItem(False)> _
+<DefaultClassOptions()> _
+<Appearance("Hide CRMEstate_Leads_Immovables", AppearanceItemType.ViewItem, "1=1", TargetItems:="CRMEstate_Leads_Immovables", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Disable DateTo", AppearanceItemType.ViewItem, "1=1", TargetItems:="DateTo", Enabled:=False)> _
+Public Class CRMEstate_Leads_Immovables_Reservation_Popup
+    Inherits BaseObject
+    Private _DateTo As Date ' Meddig
+    Private _DateFrom As Date ' Mettől
+    Private _AlertPeriod As AlertPeriod
+    Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables ' A kiválasztott ingatlan
+
+    Public Sub New(ByVal session As Session)
+        MyBase.New(session)
+    End Sub
+    Public Overrides Sub AfterConstruction()
+        MyBase.AfterConstruction()
+    End Sub
+    <RuleRequiredField("CRMEstate_Leads_Immovables_Reservation_Popup-DateTo", DefaultContexts.Save)> _
+    Property DateTo As Date
+        Get
+            Return _DateTo
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateTo", _DateTo, value)
+        End Set
+    End Property
+    <RuleRequiredField("CRMEstate_Leads_Immovables_Reservation_Popup-DateFrom", DefaultContexts.Save)> _
+    <ImmediatePostData()> _
+    Property DateFrom As Date
+        Get
+            Return _DateFrom
+        End Get
+        Set(value As Date)
+            SetPropertyValue("DateFrom", _DateFrom, value)
+            If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
+                Me.DateTo = Me.DateFrom.AddHours(72)
+            End If
+        End Set
+    End Property
+    Property AlertPeriod As AlertPeriod
+        Get
+            Return _AlertPeriod
+        End Get
+        Set(value As AlertPeriod)
+            SetPropertyValue("AlertPeriod", _AlertPeriod, value)
+        End Set
+    End Property
+    Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
+        Get
+            Return _CRMEstate_Leads_Immovables
+        End Get
+        Set(value As CRMEstate_Leads_Immovables)
+            SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value)
+        End Set
+    End Property
+
+    '------------ReadOnly-------------------
+    <VisibleInListView(False)> _
+    ReadOnly Property CollectionOfReservation As XPCollection(Of CRMEstate_Leads_Immovables_Reservation)
+        Get
+            Return _CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation
+        End Get
+    End Property
+End Class