Reconfigure for GIT

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