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