First create solution
This commit is contained in:
+67
@@ -0,0 +1,67 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRMEstateStatistics
|
||||
Inherits BaseObject
|
||||
|
||||
Private _Immovables As Immovables
|
||||
Private _QTT_Sold As Long 'Eladott darabszám
|
||||
Private _AreaNettoForSale_Sold As Double 'Eladott m2
|
||||
Private _NettoPriceHUF As Double 'Érték
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
Property Immovables As Immovables
|
||||
Get
|
||||
Return _Immovables
|
||||
End Get
|
||||
Set(value As Immovables)
|
||||
SetPropertyValue("Immovables", _Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
Property QTT_Sold As Long
|
||||
Get
|
||||
Return _QTT_Sold
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("QTT_Sold", _QTT_Sold, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNettoForSale_Sold As Double
|
||||
Get
|
||||
Return _AreaNettoForSale_Sold
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaNettoForSale_Sold", _AreaNettoForSale_Sold, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NettoPriceHUF As Double
|
||||
Get
|
||||
Return _NettoPriceHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("NettoPriceHUF", _NettoPriceHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
Partial Class CRMEstateStatisticsVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aCRMEstateStatisticsCreate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aCRMEstateStatisticsCreate
|
||||
'
|
||||
Me.aCRMEstateStatisticsCreate.Caption = "aCRMEstate Statistics Create"
|
||||
Me.aCRMEstateStatisticsCreate.ConfirmationMessage = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.Id = "aCRMEstateStatisticsCreate"
|
||||
Me.aCRMEstateStatisticsCreate.ImageName = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.Shortcut = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.Tag = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.TargetObjectsCriteria = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.TargetObjectType = GetType(Nuvolar.[Module].CRMEstateStatistics)
|
||||
Me.aCRMEstateStatisticsCreate.TargetViewId = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.ToolTip = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aCRMEstateStatisticsCreate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aCRMEstateStatisticsCreate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+197
@@ -0,0 +1,197 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo
|
||||
|
||||
Public Class CRMEstateStatisticsVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Public Event InitWork(ByVal _Minimum As Long, ByVal _Step As Long, ByVal _Maximum As Long)
|
||||
Public Event DoWork()
|
||||
Public Event FinalWork
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
If View.Id = "ContractRows_ListView_Apartments" Or _
|
||||
View.Id = "ContractRows_ListView_Offices" Or _
|
||||
View.Id = "ContractRows_ListView_Garages" Or _
|
||||
View.Id = "ContractRows_ListView_Containers" Then
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ListView As ListView = TryCast(View, ListView)
|
||||
Dim _Controlling_Collections As New XPCollection(Of Controlling)(_ocur.Session, CriteriaOperator.Parse("IsEstateStatistics=True"))
|
||||
_ListView.CollectionSource.BeginUpdateCriteria()
|
||||
_ListView.CollectionSource.Criteria("") = New InOperator("Controlling", _Controlling_Collections)
|
||||
_ListView.CollectionSource.EndUpdateCriteria()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aCRMEstateStatisticsCreate_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aCRMEstateStatisticsCreate.Execute
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _CRMEstateStatistics As CRMEstateStatistics
|
||||
Dim _Immovables As Immovables
|
||||
|
||||
'// Lakások
|
||||
Dim _Apartments_Collection As New XPCollection(Of Apartments)(_onew.Session)
|
||||
Dim _Apartments As Apartments
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, _Apartments_Collection.Count)
|
||||
For Each _Apartments In _Apartments_Collection
|
||||
RaiseEvent DoWork()
|
||||
_Immovables = TryCast(_Apartments, Immovables)
|
||||
|
||||
_CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
|
||||
If _CRMEstateStatistics Is Nothing Then
|
||||
_CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
|
||||
End If
|
||||
_CRMEstateStatistics.QTT_Sold = 1
|
||||
_CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
|
||||
If _CRMEstateStatistics.NettoPriceHUF = 0 Then
|
||||
_CRMEstateStatistics.NettoPriceHUF = _Apartments.PriceNettoHUF
|
||||
Else
|
||||
If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
|
||||
_CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
|
||||
End If
|
||||
End If
|
||||
_CRMEstateStatistics.Immovables = _Immovables
|
||||
_CRMEstateStatistics.AreaNettoForSale_Sold = _Apartments.AreaNettoForSale
|
||||
|
||||
|
||||
_onew.CommitChanges()
|
||||
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
'// Garázsok
|
||||
Dim _Garages_Collection As New XPCollection(Of Garages)(_onew.Session)
|
||||
Dim _Garages As Garages
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, _Garages_Collection.Count)
|
||||
For Each _Garages In _Garages_Collection
|
||||
RaiseEvent DoWork()
|
||||
_Immovables = TryCast(_Garages, Immovables)
|
||||
|
||||
_CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
|
||||
If _CRMEstateStatistics Is Nothing Then
|
||||
_CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
|
||||
End If
|
||||
_CRMEstateStatistics.QTT_Sold = 1
|
||||
_CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
|
||||
If _CRMEstateStatistics.NettoPriceHUF = 0 Then
|
||||
_CRMEstateStatistics.NettoPriceHUF = _Garages.PriceNettoHUF
|
||||
Else
|
||||
If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
|
||||
_CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
|
||||
End If
|
||||
End If
|
||||
|
||||
_CRMEstateStatistics.Immovables = _Immovables
|
||||
_CRMEstateStatistics.AreaNettoForSale_Sold = _Garages.AreaNetto
|
||||
|
||||
_onew.CommitChanges()
|
||||
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
'// Üzletek, irodák
|
||||
Dim _Offices_Collection As New XPCollection(Of Offices)(_onew.Session)
|
||||
Dim _Offices As Offices
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, _Offices_Collection.Count)
|
||||
For Each _Offices In _Offices_Collection
|
||||
RaiseEvent DoWork()
|
||||
_Immovables = TryCast(_Offices, Immovables)
|
||||
|
||||
_CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
|
||||
If _CRMEstateStatistics Is Nothing Then
|
||||
_CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
|
||||
End If
|
||||
_CRMEstateStatistics.QTT_Sold = 1
|
||||
_CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
|
||||
If _CRMEstateStatistics.NettoPriceHUF = 0 Then
|
||||
_CRMEstateStatistics.NettoPriceHUF = _Offices.PriceNettoHUF
|
||||
Else
|
||||
If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
|
||||
_CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
|
||||
End If
|
||||
End If
|
||||
_CRMEstateStatistics.Immovables = _Immovables
|
||||
_CRMEstateStatistics.AreaNettoForSale_Sold = _Offices.AreaNettoForSale
|
||||
|
||||
_onew.CommitChanges()
|
||||
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
'// Tárolók
|
||||
Dim _Container_Collection As New XPCollection(Of Container)(_onew.Session)
|
||||
Dim _Container As Container
|
||||
|
||||
|
||||
RaiseEvent InitWork(1, 1, _Container_Collection.Count)
|
||||
For Each _Container In _Container_Collection
|
||||
RaiseEvent DoWork()
|
||||
_Immovables = TryCast(_Container, Immovables)
|
||||
|
||||
_CRMEstateStatistics = _onew.FindObject(Of CRMEstateStatistics)(CriteriaOperator.Parse("Immovables=?", _Immovables))
|
||||
If _CRMEstateStatistics Is Nothing Then
|
||||
_CRMEstateStatistics = _onew.CreateObject(Of CRMEstateStatistics)()
|
||||
Else
|
||||
If _CRMEstateStatistics.Immovables.ImmovableSoldState <> eImmovableSoldState.eSold Then
|
||||
_CRMEstateStatistics.Immovables.ImmovableSoldState = eImmovableSoldState.eSold
|
||||
End If
|
||||
End If
|
||||
_CRMEstateStatistics.QTT_Sold = 1
|
||||
_CRMEstateStatistics.NettoPriceHUF = GetNettoPriceHUF(_onew, _Immovables.UniqueObjects)
|
||||
If _CRMEstateStatistics.NettoPriceHUF = 0 Then
|
||||
_CRMEstateStatistics.NettoPriceHUF = _Container.PriceNettoHUF
|
||||
End If
|
||||
_CRMEstateStatistics.Immovables = _Immovables
|
||||
_CRMEstateStatistics.AreaNettoForSale_Sold = _Container.AreaNetto
|
||||
|
||||
_onew.CommitChanges()
|
||||
|
||||
Next
|
||||
_onew.CommitChanges()
|
||||
RaiseEvent FinalWork
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function GetNettoPriceHUF(_onew As Xpo.XPObjectSpace, _UniqueObjects As UniqueObjects) As Double
|
||||
Dim _ContractRows_Collection As New XPCollection(Of ContractRows)(_onew.Session, CriteriaOperator.Parse("UniqueObjects=?", _UniqueObjects))
|
||||
Dim _ContractRows As ContractRows
|
||||
Dim _NettoPriceHUF As Double = 0
|
||||
Dim _Controlling_Collection As New XPCollection(Of Controlling)(_onew.Session, CriteriaOperator.Parse("IsEstateStatistics=True"))
|
||||
|
||||
|
||||
|
||||
_ContractRows_Collection.Filter = New InOperator("Controlling", _Controlling_Collection)
|
||||
|
||||
For Each _ContractRows In _ContractRows_Collection
|
||||
_NettoPriceHUF += Math.Round(_ContractRows.QTT * _ContractRows.NettoPriceHUF, 0, MidpointRounding.AwayFromZero)
|
||||
Next
|
||||
|
||||
Return _NettoPriceHUF
|
||||
|
||||
End Function
|
||||
End Class
|
||||
Generated
+265
@@ -0,0 +1,265 @@
|
||||
Partial Class CRMEstateVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aSelectImmovables_Apartments = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateContacts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateImmovablesReservation = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreateOpportunityRent = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSelectImmovables_Offices = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSelectImmovables_Garages = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aSelectImmovables_Container = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateOpportunitySold = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aCreateContractRent = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreateContractSold = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aSelectImmovables_Apartments
|
||||
'
|
||||
Me.aSelectImmovables_Apartments.Caption = "Select immovables"
|
||||
Me.aSelectImmovables_Apartments.ConfirmationMessage = Nothing
|
||||
Me.aSelectImmovables_Apartments.Id = "aSelectImmovables_Apartments"
|
||||
Me.aSelectImmovables_Apartments.ImageName = "BO_Address"
|
||||
Me.aSelectImmovables_Apartments.Shortcut = Nothing
|
||||
Me.aSelectImmovables_Apartments.Tag = Nothing
|
||||
Me.aSelectImmovables_Apartments.TargetObjectsCriteria = Nothing
|
||||
Me.aSelectImmovables_Apartments.TargetViewId = "CRMEstate_Leads_Apartments_ListView"
|
||||
Me.aSelectImmovables_Apartments.ToolTip = Nothing
|
||||
Me.aSelectImmovables_Apartments.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateContacts
|
||||
'
|
||||
Me.aCreateContacts.Caption = "Create contact"
|
||||
Me.aCreateContacts.Category = "aCreateContacts"
|
||||
Me.aCreateContacts.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateContacts.Id = "aCreateContacts"
|
||||
Me.aCreateContacts.ImageName = "BO_Person"
|
||||
Me.aCreateContacts.Shortcut = Nothing
|
||||
Me.aCreateContacts.Tag = Nothing
|
||||
Me.aCreateContacts.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContacts.TargetViewId = "CRMEstate_Leads_DetailView"
|
||||
Me.aCreateContacts.ToolTip = Nothing
|
||||
Me.aCreateContacts.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateImmovablesReservation
|
||||
'
|
||||
Me.aCreateImmovablesReservation.AcceptButtonCaption = Nothing
|
||||
Me.aCreateImmovablesReservation.CancelButtonCaption = Nothing
|
||||
Me.aCreateImmovablesReservation.Caption = "Create reservation"
|
||||
Me.aCreateImmovablesReservation.Category = "aCreateImmovablesReservation"
|
||||
Me.aCreateImmovablesReservation.ConfirmationMessage = Nothing
|
||||
Me.aCreateImmovablesReservation.Id = "aCreateImmovablesReservation"
|
||||
Me.aCreateImmovablesReservation.ImageName = "alarmclock"
|
||||
Me.aCreateImmovablesReservation.Shortcut = Nothing
|
||||
Me.aCreateImmovablesReservation.Tag = Nothing
|
||||
Me.aCreateImmovablesReservation.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateImmovablesReservation.TargetViewId = "CRMEstate_Leads_DetailView"
|
||||
Me.aCreateImmovablesReservation.ToolTip = Nothing
|
||||
Me.aCreateImmovablesReservation.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateOpportunityRent
|
||||
'
|
||||
Me.aCreateOpportunityRent.Caption = "Create opportunity rent"
|
||||
Me.aCreateOpportunityRent.Category = "aCreateOpportunityRent"
|
||||
Me.aCreateOpportunityRent.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateOpportunityRent.Id = "aCreateOpportunityRent"
|
||||
Me.aCreateOpportunityRent.ImageName = "BO_Opportunity"
|
||||
Me.aCreateOpportunityRent.Shortcut = Nothing
|
||||
Me.aCreateOpportunityRent.Tag = Nothing
|
||||
Me.aCreateOpportunityRent.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateOpportunityRent.TargetViewId = "CRMEstate_Leads_DetailView"
|
||||
Me.aCreateOpportunityRent.ToolTip = Nothing
|
||||
Me.aCreateOpportunityRent.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateNewCRMEstate_Opportunity_AdvanceMoney
|
||||
'
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Caption = "New"
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Category = "ObjectsCreation"
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Id = "aCreateNewCRMEstate_Opportunity_AdvanceMoney"
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_AdvanceMoney_ListView"
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
|
||||
'
|
||||
'aFinalCRMEstate_Opportunity_AdvanceMoney
|
||||
'
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Caption = "Final"
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Category = "Save"
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Id = "aFinalCRMEstate_Opportunity_AdvanceMoney"
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TargetViewId = "CRMEstate_Opportunity_AdvanceMoney_DetailView"
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
|
||||
Me.aFinalCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
|
||||
'
|
||||
'aSelectImmovables_Offices
|
||||
'
|
||||
Me.aSelectImmovables_Offices.Caption = "Select immovables"
|
||||
Me.aSelectImmovables_Offices.ConfirmationMessage = Nothing
|
||||
Me.aSelectImmovables_Offices.Id = "aSelectImmovables_Offices"
|
||||
Me.aSelectImmovables_Offices.ImageName = "BO_Address"
|
||||
Me.aSelectImmovables_Offices.Shortcut = Nothing
|
||||
Me.aSelectImmovables_Offices.Tag = Nothing
|
||||
Me.aSelectImmovables_Offices.TargetObjectsCriteria = Nothing
|
||||
Me.aSelectImmovables_Offices.TargetViewId = "CRMEstate_Leads_Offices_ListView"
|
||||
Me.aSelectImmovables_Offices.ToolTip = Nothing
|
||||
Me.aSelectImmovables_Offices.TypeOfView = Nothing
|
||||
'
|
||||
'aSelectImmovables_Garages
|
||||
'
|
||||
Me.aSelectImmovables_Garages.Caption = "Select immovables"
|
||||
Me.aSelectImmovables_Garages.ConfirmationMessage = Nothing
|
||||
Me.aSelectImmovables_Garages.Id = "aSelectImmovables_Garages"
|
||||
Me.aSelectImmovables_Garages.ImageName = "BO_Address"
|
||||
Me.aSelectImmovables_Garages.Shortcut = Nothing
|
||||
Me.aSelectImmovables_Garages.Tag = Nothing
|
||||
Me.aSelectImmovables_Garages.TargetObjectsCriteria = Nothing
|
||||
Me.aSelectImmovables_Garages.TargetViewId = "CRMEstate_Leads_Garages_ListView"
|
||||
Me.aSelectImmovables_Garages.ToolTip = Nothing
|
||||
Me.aSelectImmovables_Garages.TypeOfView = Nothing
|
||||
'
|
||||
'aSelectImmovables_Container
|
||||
'
|
||||
Me.aSelectImmovables_Container.Caption = "Select immovables"
|
||||
Me.aSelectImmovables_Container.ConfirmationMessage = Nothing
|
||||
Me.aSelectImmovables_Container.Id = "aSelectImmovables_Container"
|
||||
Me.aSelectImmovables_Container.ImageName = "BO_Address"
|
||||
Me.aSelectImmovables_Container.Shortcut = Nothing
|
||||
Me.aSelectImmovables_Container.Tag = Nothing
|
||||
Me.aSelectImmovables_Container.TargetObjectsCriteria = Nothing
|
||||
Me.aSelectImmovables_Container.TargetViewId = "CRMEstate_Leads_Container_ListView"
|
||||
Me.aSelectImmovables_Container.ToolTip = Nothing
|
||||
Me.aSelectImmovables_Container.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateOpportunitySold
|
||||
'
|
||||
Me.aCreateOpportunitySold.Caption = "Create opportunity sold"
|
||||
Me.aCreateOpportunitySold.Category = "aCreateOpportunitySold"
|
||||
Me.aCreateOpportunitySold.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateOpportunitySold.Id = "aCreateOpportunitySold"
|
||||
Me.aCreateOpportunitySold.ImageName = "BO_Opportunity"
|
||||
Me.aCreateOpportunitySold.Shortcut = Nothing
|
||||
Me.aCreateOpportunitySold.Tag = Nothing
|
||||
Me.aCreateOpportunitySold.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateOpportunitySold.TargetObjectType = GetType(Nuvolar.[Module].CRMEstate_Leads)
|
||||
Me.aCreateOpportunitySold.TargetViewId = "CRMEstate_Leads_DetailView"
|
||||
Me.aCreateOpportunitySold.ToolTip = Nothing
|
||||
Me.aCreateOpportunitySold.TypeOfView = Nothing
|
||||
'
|
||||
'aDeleteCRMEstate_Opportunity_AdvanceMoney
|
||||
'
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Caption = "Delete"
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Category = "Edit"
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Id = "aDeleteCRMEstate_Opportunity_AdvanceMoney"
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectType = GetType(Nuvolar.[Module].CRMEstate_Opportunity_AdvanceMoney)
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetViewId = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateNewCRMEstate_Opportunity_Payment_Forecast
|
||||
'
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Caption = "aCreateNewCRMEstate_Opportunity_Payment_Forecast"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Category = "ObjectsCreation"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ConfirmationMessage = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Id = "aCreateNewCRMEstate_Opportunity_Payment_Forecast"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ImageName = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Shortcut = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Tag = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectType = GetType(Nuvolar.[Module].CRMEstate_Opportunity_Payment_Forecast)
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ToolTip = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateContractRent
|
||||
'
|
||||
Me.aCreateContractRent.AcceptButtonCaption = Nothing
|
||||
Me.aCreateContractRent.CancelButtonCaption = Nothing
|
||||
Me.aCreateContractRent.Caption = "aCreateContractRent"
|
||||
Me.aCreateContractRent.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateContractRent.Id = "aCreateContractRent"
|
||||
Me.aCreateContractRent.ImageName = "paragraph"
|
||||
Me.aCreateContractRent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCreateContractRent.Shortcut = Nothing
|
||||
Me.aCreateContractRent.Tag = Nothing
|
||||
Me.aCreateContractRent.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContractRent.TargetObjectType = GetType(Nuvolar.[Module].CRMEstate_Opportunity)
|
||||
Me.aCreateContractRent.TargetViewId = Nothing
|
||||
Me.aCreateContractRent.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aCreateContractRent.ToolTip = Nothing
|
||||
Me.aCreateContractRent.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aCreateContractSold
|
||||
'
|
||||
Me.aCreateContractSold.AcceptButtonCaption = Nothing
|
||||
Me.aCreateContractSold.CancelButtonCaption = Nothing
|
||||
Me.aCreateContractSold.Caption = "aCreate Contract Sold"
|
||||
Me.aCreateContractSold.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateContractSold.Id = "aCreateContractSold"
|
||||
Me.aCreateContractSold.ImageName = "paragraph"
|
||||
Me.aCreateContractSold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCreateContractSold.Shortcut = Nothing
|
||||
Me.aCreateContractSold.Tag = Nothing
|
||||
Me.aCreateContractSold.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContractSold.TargetObjectType = GetType(Nuvolar.[Module].CRMEstate_Opportunity)
|
||||
Me.aCreateContractSold.TargetViewId = "CRMEstate_Opportunity_DetailView"
|
||||
Me.aCreateContractSold.ToolTip = Nothing
|
||||
Me.aCreateContractSold.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSelectImmovables_Apartments As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateOpportunitySold As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateContacts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateImmovablesReservation As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateOpportunityRent As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateNewCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDeleteCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSelectImmovables_Offices As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSelectImmovables_Garages As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSelectImmovables_Container As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateNewCRMEstate_Opportunity_Payment_Forecast As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateContractRent As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateContractSold As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+165
@@ -0,0 +1,165 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aSelectImmovables_Apartments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateContacts.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateImmovablesReservation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 134</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateOpportunityRent.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 212</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateNewCRMEstate_Opportunity_AdvanceMoney.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 290</value>
|
||||
</metadata>
|
||||
<metadata name="aFinalCRMEstate_Opportunity_AdvanceMoney.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 329</value>
|
||||
</metadata>
|
||||
<metadata name="aSelectImmovables_Offices.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 368</value>
|
||||
</metadata>
|
||||
<metadata name="aSelectImmovables_Garages.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 485</value>
|
||||
</metadata>
|
||||
<metadata name="aSelectImmovables_Container.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 524</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateOpportunitySold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 251</value>
|
||||
</metadata>
|
||||
<metadata name="aDeleteCRMEstate_Opportunity_AdvanceMoney.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 446</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateNewCRMEstate_Opportunity_Payment_Forecast.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 173</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateContractRent.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 563</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateContractSold.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>756, 175</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+1174
File diff suppressed because it is too large
Load Diff
+39
@@ -0,0 +1,39 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
<DefaultProperty("ShortName")> _
|
||||
Public Class CRMEstate_FirstMeet 'Hol találkozott velünk elõször
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Property Shortname As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
+394
@@ -0,0 +1,394 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'<EditorStateRule("Hide apartments", "Apartments", EditorState.Hidden, "ImmovablesTypes !=0", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide offices", "Offices", EditorState.Hidden, "ImmovablesTypes !=1", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide garages", "Garages", EditorState.Hidden, "ImmovablesTypes !=3", ViewType.DetailView)>
|
||||
'<EditorStateRule("Hide container", "Container", EditorState.Hidden, "ImmovablesTypes !=2", ViewType.DetailView)> _
|
||||
'<EditorStateRule("Hide studenthostel", "StudentHostel", EditorState.Hidden, "ImmovablesTypes !=4", ViewType.DetailView)> _
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateTransactions")> _
|
||||
<DefaultProperty("DisplayName")> _
|
||||
<Appearance("Hide apartments", TargetItems:="Apartments", Criteria:="ImmovablesTypes !=0", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide offices", TargetItems:="Offices", Criteria:="ImmovablesTypes !=1", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide garages", TargetItems:="Garages", Criteria:="ImmovablesTypes !=3", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide container", TargetItems:="Container", Criteria:="ImmovablesTypes !=2", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
<Appearance("Hide studenthostel", TargetItems:="StudentHostel", Criteria:="ImmovablesTypes !=4", Visibility:=Editors.ViewItemVisibility.Hide, Context:="DetailView")> _
|
||||
Public Class CRMEstate_Leads
|
||||
Inherits BaseObject
|
||||
Private _FirstName As String 'Keresztnév
|
||||
Private _LastName As String 'Vezetéknév
|
||||
Private _EMail As String 'e-mail cím
|
||||
Private _Mobile As String 'mobil telefon
|
||||
Private _Contacts As Contacts 'Kapcsolat
|
||||
Private _CRMEstate_FirstMeet As CRMEstate_FirstMeet 'Hol találkozott elõször
|
||||
Private _LeadSource As eLeadSource
|
||||
Private _PreferredContactMethod As ePreferredContactMethod
|
||||
Private _LeadStatus As eLeadStatus
|
||||
Private _ImmovablesTypes As eImmovablesTypes
|
||||
Private _HRPerson As HRPerson
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
Private _DocumentBody As String
|
||||
Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If Not SecuritySystem.CurrentUser Is Nothing Then
|
||||
Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User=?", currentUser))
|
||||
End If
|
||||
FirstName = "<Nincs kitöltve>"
|
||||
LastName = "<Nincs kitöltve>"
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
ObjectCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<ImmediatePostData(True)> _
|
||||
Property ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Get
|
||||
Return _ImmovablesPriceListHeader
|
||||
End Get
|
||||
Set(value As ImmovablesPriceListHeader)
|
||||
SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Contacts As Contacts
|
||||
Get
|
||||
Return _Contacts
|
||||
End Get
|
||||
Set(ByVal value As Contacts)
|
||||
SetPropertyValue("Contacts", _Contacts, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Leads-FirstName", DefaultContexts.Save)> _
|
||||
Property FirstName As String
|
||||
Get
|
||||
Return _FirstName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("FirstName", _FirstName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Leads-LastName", DefaultContexts.Save)> _
|
||||
Property LastName As String
|
||||
Get
|
||||
Return _LastName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("LastName", _LastName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property EMail As String
|
||||
Get
|
||||
Return _EMail
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("EMail", _EMail, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Mobile As String
|
||||
Get
|
||||
Return _Mobile
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Mobile", _Mobile, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CRMEstate_FirstMeet As CRMEstate_FirstMeet
|
||||
Get
|
||||
Return _CRMEstate_FirstMeet
|
||||
End Get
|
||||
Set(ByVal value As CRMEstate_FirstMeet)
|
||||
SetPropertyValue("CRMEstate_FirstMeet", _CRMEstate_FirstMeet, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LeadSource As eLeadSource
|
||||
Get
|
||||
Return _LeadSource
|
||||
End Get
|
||||
Set(ByVal value As eLeadSource)
|
||||
SetPropertyValue("LeadSource", _LeadSource, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PreferredContactMethod As ePreferredContactMethod
|
||||
Get
|
||||
Return _PreferredContactMethod
|
||||
End Get
|
||||
Set(ByVal value As ePreferredContactMethod)
|
||||
SetPropertyValue("PreferredContactMethod", _PreferredContactMethod, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LeadStatus As eLeadStatus
|
||||
Get
|
||||
Return _LeadStatus
|
||||
End Get
|
||||
Set(ByVal value As eLeadStatus)
|
||||
SetPropertyValue("LeadStatus", _LeadStatus, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property ImmovablesTypes As eImmovablesTypes
|
||||
Get
|
||||
Return _ImmovablesTypes
|
||||
End Get
|
||||
Set(ByVal value As eImmovablesTypes)
|
||||
SetPropertyValue("ImmovablesTypes", _ImmovablesTypes, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Leads-HRPerson", DefaultContexts.Save)> _
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property DocumentBody As String
|
||||
Get
|
||||
Return _DocumentBody
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentBody", _DocumentBody, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'---------ReadOnly----------------
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property CRMEstate_Opportunity As XPCollection(Of CRMEstate_Opportunity)
|
||||
Get
|
||||
Return New XPCollection(Of CRMEstate_Opportunity)(Session, CriteriaOperator.Parse("CRMEstate_Leads=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Apartments As XPCollection(Of ImmovablesPriceListRowsA)
|
||||
Get
|
||||
Return New XPCollection(Of ImmovablesPriceListRowsA)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", Me.ImmovablesPriceListHeader))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Offices As XPCollection(Of ImmovablesPriceListRowsO)
|
||||
Get
|
||||
Return New XPCollection(Of ImmovablesPriceListRowsO)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Garages As XPCollection(Of ImmovablesPriceListRowsG)
|
||||
Get
|
||||
Return New XPCollection(Of ImmovablesPriceListRowsG)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Container As XPCollection(Of ImmovablesPriceListRowsC)
|
||||
Get
|
||||
Return New XPCollection(Of ImmovablesPriceListRowsC)(Session, CriteriaOperator.Parse("ImmovablesPriceListHeader=?", ImmovablesPriceListHeader))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property StudentHostel As XPCollection(Of StudentHostel)
|
||||
Get
|
||||
Return New XPCollection(Of StudentHostel)(Session, CriteriaOperator.Parse("CanForSale=True"))
|
||||
End Get
|
||||
End Property
|
||||
<Association("CRMEstate_Leads-CRMEstate_Leads_Immovables", GetType(CRMEstate_Leads_Immovables)), VisibleInListView(False)> _
|
||||
ReadOnly Property CRMEstate_Leads_Immovables As XPCollection(Of CRMEstate_Leads_Immovables)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Leads_Immovables)("CRMEstate_Leads_Immovables")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Selected_Apartments As XPCollection(Of Apartments)
|
||||
Get
|
||||
Dim _Criteria As String = ""
|
||||
Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
|
||||
If Me.CRMEstate_Leads_Immovables.Count > 0 Then
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _Criteria = "" Then
|
||||
_Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
Else
|
||||
_Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
End If
|
||||
Next
|
||||
_Criteria += ")"
|
||||
Else
|
||||
_Criteria += "1=2"
|
||||
End If
|
||||
|
||||
Dim _Apartments_Collection As New XPCollection(Of Apartments)(Session, CriteriaOperator.Parse(_Criteria))
|
||||
Dim _Apartments As Apartments
|
||||
|
||||
For Each _Apartments In _Apartments_Collection
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Apartments.Oid.ToString Then
|
||||
_Apartments.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
|
||||
_Apartments.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
|
||||
_Apartments.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
|
||||
_Apartments.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
Return _Apartments_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Selected_Garages As XPCollection(Of Garages)
|
||||
Get
|
||||
Dim _Criteria As String = ""
|
||||
|
||||
Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
|
||||
If Me.CRMEstate_Leads_Immovables.Count > 0 Then
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _Criteria = "" Then
|
||||
_Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
Else
|
||||
_Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
End If
|
||||
Next
|
||||
_Criteria += ")"
|
||||
Else
|
||||
_Criteria += "1=2"
|
||||
End If
|
||||
|
||||
Dim _Garages_Collection As New XPCollection(Of Garages)(Session, CriteriaOperator.Parse(_Criteria))
|
||||
|
||||
Dim _Garages As Garages
|
||||
|
||||
For Each _Garages In _Garages_Collection
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Garages.Oid.ToString Then
|
||||
_Garages.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
|
||||
_Garages.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
|
||||
_Garages.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
|
||||
_Garages.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
|
||||
Return _Garages_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Selected_Container As XPCollection(Of Container)
|
||||
Get
|
||||
Dim _Criteria As String = ""
|
||||
Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
|
||||
If Me.CRMEstate_Leads_Immovables.Count > 0 Then
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _Criteria = "" Then
|
||||
_Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
Else
|
||||
_Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
End If
|
||||
|
||||
Next
|
||||
_Criteria += ")"
|
||||
Else
|
||||
_Criteria += "1=2"
|
||||
End If
|
||||
Dim _Container_Collection As New XPCollection(Of Container)(Session, CriteriaOperator.Parse(_Criteria))
|
||||
|
||||
Dim _Container As Container
|
||||
For Each _Container In _Container_Collection
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Container.Oid.ToString Then
|
||||
_Container.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
|
||||
_Container.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
|
||||
_Container.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
|
||||
_Container.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
Return _Container_Collection
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Selected_Offices As XPCollection(Of Offices)
|
||||
Get
|
||||
Dim _Criteria As String = ""
|
||||
Dim _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
If Me.CRMEstate_Leads_Immovables.Count > 0 Then
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _Criteria = "" Then
|
||||
_Criteria = "Oid in ('" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
Else
|
||||
_Criteria += ",'" & _CRMEstate_Leads_Immovables.Immovables.Oid.ToString & "'"
|
||||
End If
|
||||
|
||||
Next
|
||||
_Criteria += ")"
|
||||
Else
|
||||
_Criteria += "1=2"
|
||||
End If
|
||||
Dim _Offices_Collection As New XPCollection(Of Offices)(Session, CriteriaOperator.Parse(_Criteria))
|
||||
|
||||
Dim _Offices As Offices
|
||||
For Each _Offices In _Offices_Collection
|
||||
For Each _CRMEstate_Leads_Immovables In Me.CRMEstate_Leads_Immovables
|
||||
If _CRMEstate_Leads_Immovables.Immovables.Oid.ToString = _Offices.Oid.ToString Then
|
||||
_Offices.OfferListPriceNettoHUF = _CRMEstate_Leads_Immovables.ListPriceNettoHUF
|
||||
_Offices.OfferListPriceNettoHUFRent = _CRMEstate_Leads_Immovables.ListPriceNettoHUFRent
|
||||
_Offices.OfferListPriceBruttoHUF = _CRMEstate_Leads_Immovables.ListPriceBruttoHUF
|
||||
_Offices.OfferListPriceBruttoHUFRent = _CRMEstate_Leads_Immovables.ListPriceBruttoDEVRent
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
Return _Offices_Collection
|
||||
End Get
|
||||
End Property
|
||||
<Association("CRMEstate_Leads-CRMEstate_Leads_Activity", GetType(CRMEstate_Leads_Activity)), VisibleInListView(False)> _
|
||||
ReadOnly Property CRMEstate_Leads_Activity As XPCollection(Of CRMEstate_Leads_Activity)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Leads_Activity)("CRMEstate_Leads_Activity")
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DisplayName As String
|
||||
Get
|
||||
Return LastName & " " & FirstName & ", m: " & Mobile & ", e: " & EMail
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
+94
@@ -0,0 +1,94 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Imports System.Drawing
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
'-- Paraméterek, enumok
|
||||
<DefaultClassOptions()>
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRMEstate_Leads_Activity
|
||||
Inherits MySchedule
|
||||
Private _CRMEstate_Leads As CRMEstate_Leads
|
||||
Private _HRPersonEvent As HRPersonEvent
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
|
||||
'HRPersonEvents készítése is ! Meg értelemszerûen módosítása is !
|
||||
If Me.EventType = eEventType.eMeeting Then
|
||||
If HRPersonEvent Is Nothing Then
|
||||
_HRPersonEvent = New HRPersonEvent(Session)
|
||||
Dim _HRPerson As HRPerson = Session.FindObject(Of HRPerson)(CriteriaOperator.Parse("User.Oid=?", SecuritySystem.CurrentUser.oid))
|
||||
_HRPersonEvent.Resources.Add(_HRPerson)
|
||||
End If
|
||||
_HRPersonEvent.Subject = Me.Subject
|
||||
_HRPersonEvent.StartOn = Me.StartOn
|
||||
_HRPersonEvent.EndOn = Me.EndOn
|
||||
_HRPersonEvent.Status = Me.Status
|
||||
_HRPersonEvent.Type = Me.Type
|
||||
_HRPersonEvent.Save()
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeleting()
|
||||
MyBase.OnDeleting()
|
||||
If Me.HRPersonEvent IsNot Nothing Then
|
||||
Session.Delete(Me.HRPersonEvent)
|
||||
End If
|
||||
End Sub
|
||||
<Association("CRMEstate_Leads-CRMEstate_Leads_Activity", GetType(CRMEstate_Leads))> _
|
||||
Property CRMEstate_Leads As CRMEstate_Leads
|
||||
Get
|
||||
Return _CRMEstate_Leads
|
||||
End Get
|
||||
Set(value As CRMEstate_Leads)
|
||||
SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
<Browsable(False)> _
|
||||
Property HRPersonEvent As HRPersonEvent
|
||||
Get
|
||||
Return _HRPersonEvent
|
||||
End Get
|
||||
Set(value As HRPersonEvent)
|
||||
SetPropertyValue("HRPersonEvent", _HRPersonEvent, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInDetailView(False)> _
|
||||
ReadOnly Property ImageType As Image
|
||||
Get
|
||||
Select Case Me.EventType
|
||||
Case eEventType.eAlert
|
||||
Return ImageLoader.Instance.GetImageInfo("bell").Image
|
||||
Case eEventType.eEMailIn
|
||||
Return ImageLoader.Instance.GetImageInfo("mail_into").Image
|
||||
Case eEventType.eEmailOut
|
||||
Return ImageLoader.Instance.GetImageInfo("mail_out").Image
|
||||
Case eEventType.eMeeting
|
||||
Return ImageLoader.Instance.GetImageInfo("calendar").Image
|
||||
Case eEventType.ePhoneConversation
|
||||
Return ImageLoader.Instance.GetImageInfo("mobilephone1").Image
|
||||
Case Else
|
||||
Return Nothing
|
||||
End Select
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
+322
@@ -0,0 +1,322 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'-- Paraméterek, enumok
|
||||
<DefaultClassOptions()>
|
||||
<NavigationItem("RealEstateTransactions")> _
|
||||
<CreatableItem(False)> _
|
||||
<DefaultProperty("CRMEstate_Leads")> _
|
||||
Public Class CRMEstate_Leads_Immovables
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Leads As CRMEstate_Leads
|
||||
Private _Immovables As Immovables
|
||||
|
||||
Private _VAT As VAT
|
||||
Private _AreaPriceDivide As Double '%-ban a telek és felépítmény ár
|
||||
Private _ParcelPriceNettoHUF As Double 'Telek netto ár
|
||||
Private _SuperstructurePriceNettoHUF As Double 'Felépítmény ár
|
||||
Private _ParcelPriceNettoDEV As Double 'Telek netto ár
|
||||
Private _SuperstructurePriceNettoDEV As Double 'Felépítmény ár
|
||||
|
||||
'Értékesítési árak
|
||||
Private _ListPriceBruttoDEV As Double
|
||||
Private _ListPriceBruttoHUF As Double
|
||||
Private _ListPriceNettoDEV As Double
|
||||
Private _ListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérlési árak
|
||||
Private _ListPriceBruttoDEVRent As Double
|
||||
Private _ListPriceBruttoHUFRent As Double
|
||||
Private _ListPriceNettoDEVRent As Double
|
||||
Private _ListPriceNettoHUFRent As Double
|
||||
'--
|
||||
|
||||
' Értékesítési nm árak
|
||||
Private _AreaListPriceBruttoDEV As Double
|
||||
Private _AreaListPriceBruttoHUF As Double
|
||||
Private _AreaListPriceNettoDEV As Double
|
||||
Private _AreaListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérleti nm árak
|
||||
Private _AreaListPriceBruttoDEVRent As Double
|
||||
Private _AreaListPriceBruttoHUFRent As Double
|
||||
Private _AreaListPriceNettoDEVRent As Double
|
||||
Private _AreaListPriceNettoHUFRent As Double
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.AreaPriceDivide = 30
|
||||
|
||||
End Sub
|
||||
<Association("CRMEstate_Leads-CRMEstate_Leads_Immovables", GetType(CRMEstate_Leads))> _
|
||||
Property CRMEstate_Leads As CRMEstate_Leads
|
||||
Get
|
||||
Return _CRMEstate_Leads
|
||||
End Get
|
||||
Set(value As CRMEstate_Leads)
|
||||
SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Immovables As Immovables
|
||||
Get
|
||||
Return _Immovables
|
||||
End Get
|
||||
Set(value As Immovables)
|
||||
SetPropertyValue("Immovables", _Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property VAT As VAT
|
||||
Get
|
||||
Return _VAT
|
||||
End Get
|
||||
Set(value As VAT)
|
||||
SetPropertyValue("VAT", _VAT, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.ListPriceBruttoHUF = Math.Round((1 + value.KeyValue) * ListPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
|
||||
Me.ListPriceBruttoHUFRent = Math.Round((1 + value.KeyValue) * ListPriceNettoHUFRent, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property AreaPriceDivide As Double
|
||||
Get
|
||||
Return _AreaPriceDivide
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaPriceDivide", _AreaPriceDivide, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.ParcelPriceNettoHUF = Math.Round((Me.ListPriceNettoHUF * (value / 100)), 0, MidpointRounding.AwayFromZero)
|
||||
Me.SuperstructurePriceNettoHUF = Me.ListPriceNettoHUF - Me.ParcelPriceNettoHUF
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ParcelPriceNettoHUF As Double
|
||||
Get
|
||||
Return _ParcelPriceNettoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ParcelPriceNettoHUF", _ParcelPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SuperstructurePriceNettoHUF As Double
|
||||
Get
|
||||
Return _SuperstructurePriceNettoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SuperstructurePriceNettoHUF", _SuperstructurePriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ParcelPriceNettoDEV As Double
|
||||
Get
|
||||
Return _ParcelPriceNettoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ParcelPriceNettoDEV", _ParcelPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SuperstructurePriceNettoDEV As Double
|
||||
Get
|
||||
Return _SuperstructurePriceNettoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SuperstructurePriceNettoDEV", _SuperstructurePriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
'Értékesítési árak
|
||||
Property ListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.ListPriceBruttoHUF = Math.Round(value * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
Me.ParcelPriceNettoHUF = Math.Round(value * (AreaPriceDivide / 100), 0, MidpointRounding.AwayFromZero)
|
||||
Me.SuperstructurePriceNettoHUF = Math.Round(value - Me.ParcelPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
|
||||
If TryCast(Me.Immovables, Apartments) IsNot Nothing Then
|
||||
Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Apartments).AreaNettoForSale, 0, MidpointRounding.AwayFromZero)
|
||||
Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
If TryCast(Me.Immovables, Offices) IsNot Nothing Then
|
||||
Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Offices).AreaNettoForSale, 0, MidpointRounding.AwayFromZero)
|
||||
Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
If TryCast(Me.Immovables, Container) IsNot Nothing Then
|
||||
Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Container).AreaNetto, 0, MidpointRounding.AwayFromZero)
|
||||
Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
If TryCast(Me.Immovables, Garages) IsNot Nothing Then
|
||||
Me.AreaListPriceNettoHUF = Math.Round(value / TryCast(Me.Immovables, Garages).AreaNetto, 0, MidpointRounding.AwayFromZero)
|
||||
Me.AreaListPriceBruttoHUF = Math.Round(Me.AreaListPriceNettoHUF * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'--
|
||||
|
||||
'Bérlési árak
|
||||
Property ListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceBruttoHUFRent = Math.Round(value * (1 + Me.VAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
'--
|
||||
|
||||
' Értékesítési nm árak
|
||||
Property AreaListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
'--
|
||||
|
||||
'Bérleti nm árak
|
||||
Property AreaListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'---------ReadOnly properties--------------------
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Leads_Immovables-CRMEstate_Leads_Immovables_Reservation", GetType(CRMEstate_Leads_Immovables_Reservation))> _
|
||||
ReadOnly Property CRMEstate_Leads_Immovables_Reservation As XPCollection(Of CRMEstate_Leads_Immovables_Reservation)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Leads_Immovables_Reservation)("CRMEstate_Leads_Immovables_Reservation")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
+81
@@ -0,0 +1,81 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRMEstate_Leads_Immovables_Reservation 'Opciós foglalás ingatlanra, ami automatikusan lejár
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables 'Milyen kiválasztott inatlanra
|
||||
Private _DateFrom As Date 'Mettõl
|
||||
Private _DateTo As Date 'Meddig
|
||||
Private _ObjectCreated As Date 'Mikor
|
||||
Private _UserCreated As User 'Ki csinálta a rekordot
|
||||
Private _Task_EntryID As String 'Outlook task EntryID
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<Association("CRMEstate_Leads_Immovables-CRMEstate_Leads_Immovables_Reservation", GetType(CRMEstate_Leads_Immovables))> _
|
||||
Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Leads_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Leads_Immovables)
|
||||
SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateFrom As Date
|
||||
Get
|
||||
Return _DateFrom
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFrom", _DateFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateTo As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Task_EntryID As String
|
||||
Get
|
||||
Return _Task_EntryID
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Task_EntryID", _Task_EntryID, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+119
@@ -0,0 +1,119 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateTransactions")> _
|
||||
<DefaultProperty("DisplayName")> _
|
||||
<Appearance("Hide rent Action if opportunity type not rent", AppearanceItemType:="Action", Criteria:="OpportunityType=1", Context:="Any", TargetItems:="aCreateContractRent", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide sold Action if opportunity type not sold", AppearanceItemType:="Action", Criteria:="OpportunityType=0", Context:="Any", TargetItems:="aCreateContractSold", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CRMEstate_Opportunity
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Leads As CRMEstate_Leads
|
||||
Private _OpportunityType As eOpportunityType
|
||||
Private _DocumentNumber As String 'Ügy azonosító
|
||||
Private _Description As String 'Leírás
|
||||
Private _ObjectCreated As Date 'Létrehozva
|
||||
Private _HRPerson As HRPerson 'Felelõs
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property CRMEstate_Leads As CRMEstate_Leads
|
||||
Get
|
||||
Return _CRMEstate_Leads
|
||||
End Get
|
||||
Set(ByVal value As CRMEstate_Leads)
|
||||
SetPropertyValue("CRMEstate_Leads", _CRMEstate_Leads, value)
|
||||
End Set
|
||||
End Property
|
||||
Property OpportunityType As eOpportunityType
|
||||
Get
|
||||
Return _OpportunityType
|
||||
End Get
|
||||
Set(value As eOpportunityType)
|
||||
SetPropertyValue("OpportunityType", _OpportunityType, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(4000)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property HRPerson As HRPerson
|
||||
Get
|
||||
Return _HRPerson
|
||||
End Get
|
||||
Set(value As HRPerson)
|
||||
SetPropertyValue("HRPerson", _HRPerson, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Opportunity-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity_Immovables))> _
|
||||
ReadOnly Property CRMEstate_Opportunity_Immovables As XPCollection(Of CRMEstate_Opportunity_Immovables)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Opportunity_Immovables)("CRMEstate_Opportunity_Immovables")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property Contracts As XPCollection(Of Contracts)
|
||||
Get
|
||||
Return New XPCollection(Of Contracts)(Session, CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables.CRMEstate_Opportunity=?", Me))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property InvoiceHeader As XPCollection(Of InvoiceHeader)
|
||||
Get
|
||||
Return New XPCollection(Of InvoiceHeader)(Session, CriteriaOperator.Parse("Oid<>Oid"))
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property PCIGroup As XPCollection(Of PCIGroup)
|
||||
Get
|
||||
Return New XPCollection(Of PCIGroup)(Session, CriteriaOperator.Parse("Oid<>Oid"))
|
||||
End Get
|
||||
End Property
|
||||
ReadOnly Property DisplayName
|
||||
Get
|
||||
Return DocumentNumber & ", " & CRMEstate_Leads.LastName & " " & CRMEstate_Leads.FirstName & ", " & ObjectCreated
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
Partial Class CRMEstate_OpportunityVC
|
||||
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Public Sub New(ByVal Container As System.ComponentModel.IContainer)
|
||||
MyClass.New()
|
||||
|
||||
'Required for Windows.Forms Class Composition Designer support
|
||||
Container.Add(Me)
|
||||
|
||||
End Sub
|
||||
|
||||
'Component overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Component Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Component Designer
|
||||
'It can be modified using the Component Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.aPrintContractTemplate = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aPrintContractTemplate
|
||||
'
|
||||
Me.aPrintContractTemplate.Caption = "Print template"
|
||||
Me.aPrintContractTemplate.ConfirmationMessage = Nothing
|
||||
Me.aPrintContractTemplate.Id = "aPrintContractTemplate"
|
||||
Me.aPrintContractTemplate.ImageName = "Action_Printing_Print"
|
||||
Me.aPrintContractTemplate.Shortcut = Nothing
|
||||
Me.aPrintContractTemplate.Tag = Nothing
|
||||
Me.aPrintContractTemplate.TargetObjectsCriteria = Nothing
|
||||
Me.aPrintContractTemplate.TargetObjectType = GetType(Nuvolar.[Module].CRMEstate_Opportunity)
|
||||
Me.aPrintContractTemplate.TargetViewId = "CRMEstate_Opportunity_DetailView"
|
||||
Me.aPrintContractTemplate.ToolTip = Nothing
|
||||
Me.aPrintContractTemplate.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aPrintContractTemplate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -0,0 +1,126 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="aPrintContractTemplate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+45
@@ -0,0 +1,45 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Utils
|
||||
|
||||
Public Class CRMEstate_OpportunityVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
Private Sub aPrintContractTemplate_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aPrintContractTemplate.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _CRMEstate_Opportunity As CRMEstate_Opportunity = TryCast(View.SelectedObjects(0), CRMEstate_Opportunity)
|
||||
Dim _e As CRMEstate_Opportunity_Immovables = _CRMEstate_Opportunity.CRMEstate_Opportunity_Immovables(0)
|
||||
Dim _InOperator As InOperator
|
||||
Dim _OidArray As New ArrayList
|
||||
|
||||
Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = _ocur.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _
|
||||
_CRMEstate_Opportunity.CRMEstate_Leads.ImmovablesPriceListHeader.ImmovablesGroups))
|
||||
If _ImmovablesGroupsParameters Is Nothing Then Throw New Exception("*Nincs beállítva ingatlancsoport paraméter!")
|
||||
|
||||
For Each _CRMEstate_Opportunity_Immovables In _CRMEstate_Opportunity.CRMEstate_Opportunity_Immovables
|
||||
_OidArray.Add(_CRMEstate_Opportunity_Immovables.Oid)
|
||||
Next
|
||||
|
||||
_InOperator = New InOperator("Oid", _OidArray)
|
||||
|
||||
If _ImmovablesGroupsParameters.ReportData_Contract_Temp Is Nothing Then Throw New Exception("*Nincs beállítva nyomtatvány!")
|
||||
Frame.GetController(Of Reports.ReportServiceController).ShowPreview(_ImmovablesGroupsParameters.ReportData_Contract_Temp, _InOperator, True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, String.Format(CaptionHelper.GetLocalizedText("Exceptions\NuvolarExceptions", "MsgBoxCheckItAgain")))
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
+154
@@ -0,0 +1,154 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Hide HUF If currencyname != HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName != 'HUF'", Context:="Any", TargetItems:="AmountHUF", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide DEV If currencyname = HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName = 'HUF'", Context:="Any", TargetItems:="AmountDEV", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CRMEstate_Opportunity_AdvanceMoney
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _Customers As Customers
|
||||
Private _DocumentNumber As String 'Dokumentum sorszáma (nyomtatáshoz kell)
|
||||
Private _DateCreated As Date 'Káll. dátuma
|
||||
Private _DateExpiration As Date 'Lejárat dátuma
|
||||
Private _AmountHUF As Double 'Összeg (HUF)
|
||||
Private _AmountDEV As Double 'Összeg (DEV)
|
||||
Private _CurrencyName As CurrencyName 'Deviza
|
||||
Private _Active As Boolean = False
|
||||
Private _ContractRows As ContractRows 'Számla fejléc (ha készült róla)
|
||||
Private _PaymentOption As PaymentOption 'A kiállítandó számla fizetési opciója
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
Me.PaymentOption = Session.FindObject(Of PaymentOption)(CriteriaOperator.Parse("PayMode=0"))
|
||||
End Sub
|
||||
<Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_AdvanceMoney", GetType(CRMEstate_Opportunity_Immovables))> _
|
||||
Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Opportunity_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Opportunity_Immovables)
|
||||
SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
|
||||
Me.CustomersFrom = TryCast(value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner, CustomersFrom)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.Customers", DefaultContexts.Save)> _
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("CustomersFrom", _Customers, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.CustomersFrom", DefaultContexts.Save)> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property DocumentNumber As String
|
||||
Get
|
||||
Return _DocumentNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentNumber", _DocumentNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.DateCreated", DefaultContexts.Save)> _
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.DateExpiration = value.AddDays(14)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.DateExpiration", DefaultContexts.Save)> _
|
||||
Property DateExpiration As Date
|
||||
Get
|
||||
Return _DateExpiration
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExpiration", _DateExpiration, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_AdvanceMoney.AmountHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
|
||||
Property AmountHUF As Double
|
||||
Get
|
||||
Return _AmountHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountHUF", _AmountHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_AdvanceMoney.AmountDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
|
||||
Property AmountDEV As Double
|
||||
Get
|
||||
Return _AmountDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountDEV", _AmountDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.CurrencyName", DefaultContexts.Save)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Active As Boolean
|
||||
Get
|
||||
Return _Active
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("Active", _Active, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ContractRows As ContractRows
|
||||
Get
|
||||
Return _ContractRows
|
||||
End Get
|
||||
Set(ByVal value As ContractRows)
|
||||
SetPropertyValue("InvoiceHeader", _ContractRows, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_AdvanceMoney.PaymentOption", DefaultContexts.Save)> _
|
||||
Property PaymentOption As PaymentOption
|
||||
Get
|
||||
Return _PaymentOption
|
||||
End Get
|
||||
Set(ByVal value As PaymentOption)
|
||||
SetPropertyValue("PaymentOption", _PaymentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+178
@@ -0,0 +1,178 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DefaultProperty("Customers")> _
|
||||
Public Class CRMEstate_Opportunity_Customers
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Private _Customers As Customers
|
||||
Private _BirthDay As Date
|
||||
Private _PlaceOfBirth As String
|
||||
Private _SocialNumberLastFourDigit As String 'Személyi szám
|
||||
Private _SocialNumber As String 'Személy igazolvány szám
|
||||
Private _MotherName As String
|
||||
Private _AddressNotice As Address 'Értesítési cím
|
||||
Private _AddressInvoice As Address 'Számlázási cím
|
||||
Private _RightQuota As Double
|
||||
Private _RightState As eRightState
|
||||
Private _KSHNumber As String
|
||||
Private _CorporateNumber As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
<Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Customers", GetType(CRMEstate_Opportunity_Immovables))> _
|
||||
Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Opportunity_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Opportunity_Immovables)
|
||||
SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()>
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.Customers", DefaultContexts.Save)> _
|
||||
Property Customers As Customers
|
||||
Get
|
||||
Return _Customers
|
||||
End Get
|
||||
Set(value As Customers)
|
||||
SetPropertyValue("Customers", _Customers, value)
|
||||
If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value IsNot Nothing Then
|
||||
Dim _ExistingCRMEstate_Opportunity_Customers As CRMEstate_Opportunity_Customers = Session.FindObject(Of CRMEstate_Opportunity_Customers)(CriteriaOperator.Parse("Customers=?", value))
|
||||
If _ExistingCRMEstate_Opportunity_Customers IsNot Nothing Then
|
||||
Me.AddressInvoice = _ExistingCRMEstate_Opportunity_Customers.AddressInvoice
|
||||
Me.AddressNotice = _ExistingCRMEstate_Opportunity_Customers.AddressNotice
|
||||
Me.BirthDay = _ExistingCRMEstate_Opportunity_Customers.BirthDay
|
||||
Me.MotherName = _ExistingCRMEstate_Opportunity_Customers.MotherName
|
||||
Me.PlaceOfBirth = _ExistingCRMEstate_Opportunity_Customers.PlaceOfBirth
|
||||
Me.SocialNumber = _ExistingCRMEstate_Opportunity_Customers.SocialNumber
|
||||
Me.SocialNumberLastFourDigit = _ExistingCRMEstate_Opportunity_Customers.SocialNumberLastFourDigit
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.BirthDay", DefaultContexts.Save)> _
|
||||
Property BirthDay As Date
|
||||
Get
|
||||
Return _BirthDay
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("BirthDay", _BirthDay, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.PlaceOfBirth", DefaultContexts.Save)> _
|
||||
Property PlaceOfBirth As String
|
||||
Get
|
||||
Return _PlaceOfBirth
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("PlaceOfBirth", _PlaceOfBirth, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.SocialNumberLastFourDigit", DefaultContexts.Save)> _
|
||||
Property SocialNumberLastFourDigit As String
|
||||
Get
|
||||
Return _SocialNumberLastFourDigit
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("SocialNumberLastFourDigit", _SocialNumberLastFourDigit, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.SocialNumber", DefaultContexts.Save)> _
|
||||
Property SocialNumber As String
|
||||
Get
|
||||
Return _SocialNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("SocialNumber", _SocialNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.MotherName", DefaultContexts.Save)> _
|
||||
Property MotherName As String
|
||||
Get
|
||||
Return _MotherName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("MotherName", _MotherName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.AddressNotice", DefaultContexts.Save)> _
|
||||
Property AddressNotice As Address
|
||||
Get
|
||||
Return _AddressNotice
|
||||
End Get
|
||||
Set(value As Address)
|
||||
SetPropertyValue("AddressNotice", _AddressNotice, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.AddressInvoice", DefaultContexts.Save)> _
|
||||
Property AddressInvoice As Address
|
||||
Get
|
||||
Return _AddressInvoice
|
||||
End Get
|
||||
Set(value As Address)
|
||||
SetPropertyValue("AddressInvoice", _AddressInvoice, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.RightQuota", DefaultContexts.Save)> _
|
||||
Property RightQuota As Double
|
||||
Get
|
||||
Return _RightQuota
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("RightQuota", _RightQuota, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Customers.RightState", DefaultContexts.Save)> _
|
||||
Property RightState As eRightState
|
||||
Get
|
||||
Return _RightState
|
||||
End Get
|
||||
Set(value As eRightState)
|
||||
SetPropertyValue("RightState", _RightState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property KSHNumber As String
|
||||
Get
|
||||
Return _KSHNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("KSHNumber", _KSHNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CorporateNumber As String
|
||||
Get
|
||||
Return _CorporateNumber
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("CorporateNumber", _CorporateNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
+96
@@ -0,0 +1,96 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'-- Paraméterek, enumok
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Hide CRMEstate_Opportunity_Rent when CRMEstate_Opportunity.OpportunityType=1", AppearanceItemType.LayoutItem, "CRMEstate_Opportunity.OpportunityType=1", TargetItems:="CRMEstate_Opportunity_Rent", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Hide CRMEstate_Opportunity_Payment_Forecast when CRMEstate_Opportunity.OpportunityType=0", AppearanceItemType.LayoutItem, "CRMEstate_Opportunity.OpportunityType=0", TargetItems:="CRMEstate_Opportunity_Payment_Forecast;CRMEstate_Opportunity_AdvanceMoney", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CRMEstate_Opportunity_Immovables
|
||||
Inherits BaseObject
|
||||
|
||||
Private _CRMEstate_Opportunity As CRMEstate_Opportunity
|
||||
Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
<Association("CRMEstate_Opportunity-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity))> _
|
||||
Property CRMEstate_Opportunity As CRMEstate_Opportunity
|
||||
Get
|
||||
Return _CRMEstate_Opportunity
|
||||
End Get
|
||||
Set(value As CRMEstate_Opportunity)
|
||||
SetPropertyValue("CRMEstate_Opportunity", _CRMEstate_Opportunity, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Leads_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Leads_Immovables)
|
||||
SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Customers", GetType(CRMEstate_Opportunity_Customers))> _
|
||||
ReadOnly Property CRMEstate_Opportunity_Customers As XPCollection(Of CRMEstate_Opportunity_Customers)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Opportunity_Customers)("CRMEstate_Opportunity_Customers")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Payment_Forecast", GetType(CRMEstate_Opportunity_Payment_Forecast))> _
|
||||
ReadOnly Property CRMEstate_Opportunity_Payment_Forecast As XPCollection(Of CRMEstate_Opportunity_Payment_Forecast)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Opportunity_Payment_Forecast)("CRMEstate_Opportunity_Payment_Forecast")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Opportunity_Rent-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity_Rent))> _
|
||||
ReadOnly Property CRMEstate_Opportunity_Rent As XPCollection(Of CRMEstate_Opportunity_Rent)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Opportunity_Rent)("CRMEstate_Opportunity_Rent")
|
||||
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_AdvanceMoney", GetType(CRMEstate_Opportunity_AdvanceMoney))> _
|
||||
ReadOnly Property CRMEstate_Opportunity_AdvanceMoney As XPCollection(Of CRMEstate_Opportunity_AdvanceMoney)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Opportunity_AdvanceMoney)("CRMEstate_Opportunity_AdvanceMoney")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property Immovables_Oid As String
|
||||
Get
|
||||
Dim _Immovables_Oid As String = ""
|
||||
If Me.CRMEstate_Leads_Immovables IsNot Nothing Then
|
||||
If Me.CRMEstate_Leads_Immovables.Immovables IsNot Nothing Then
|
||||
_Immovables_Oid = Me.CRMEstate_Leads_Immovables.Immovables.Oid.ToString
|
||||
End If
|
||||
End If
|
||||
Return _Immovables_Oid
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
+223
@@ -0,0 +1,223 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("CRMEstate_Opportunity_Payment_Forecast Hide HUF If currencyname != HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName != 'HUF'", Context:="Any", TargetItems:="SumPriceNettoHUF;SumPriceVATHUF;SumPriceBruttoHUF", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("CRMEstate_Opportunity_Payment_Forecast Hide DEV If currencyname = HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName = 'HUF'", Context:="Any", TargetItems:="SumPriceNettoDEV;SumPriceVATDEV;SumPriceBruttoDEV", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("CRMEstate_Opportunity_Payment_Forecast disable some porperties", AppearanceItemType.ViewItem, "1=1", TargetItems:="SumPriceVATHUF;SumPriceVATDEV;SumPriceBruttoHUF;SumPriceBruttoDEV", Enabled:=False)> _
|
||||
Public Class CRMEstate_Opportunity_Payment_Forecast
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Private _CustomersFrom As CustomersFrom 'Saját cég
|
||||
Private _RowIndex As Long 'Sor index
|
||||
Private _MileStonePayment As eMileStonePayment 'Mérföldkõ
|
||||
Private _InvoiceTypeBase As eInvoiceTypeBase 'Számla bázis tipusa
|
||||
Private _CurrencyName As CurrencyName 'Deviza
|
||||
Private _DateExecution As Date 'A pénzügyi teljesülés dátuma
|
||||
Private _Description As String
|
||||
Private _SumPriceNettoHUF As Double 'Netto HUF
|
||||
Private _SumPriceVATHUF As Double 'ÁFA HUF
|
||||
Private _SumPriceBruttoHUF As Double 'Bruttó HUF
|
||||
Private _SumPriceNettoDEV As Double 'Netto DEV
|
||||
Private _SumPriceVATDEV As Double 'ÁFA DEV
|
||||
Private _SumPriceBruttoDEV As Double 'Brutto DEV
|
||||
Private _SumPricePercent As Double 'Vételár %-os
|
||||
Private _ContractRows As ContractRows
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.SumPricePercent = 100
|
||||
End Sub
|
||||
<Association("CRMEstate_Opportunity_Immovables-CRMEstate_Opportunity_Payment_Forecast", _
|
||||
GetType(CRMEstate_Opportunity_Immovables))> _
|
||||
Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Opportunity_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Opportunity_Immovables)
|
||||
SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Payment_Forecast.CustomersFrom", DefaultContexts.Save)> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Payment_Forecast.RowIndex", DefaultContexts.Save)> _
|
||||
Property RowIndex As Long
|
||||
Get
|
||||
Return _RowIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("RowIndex", _RowIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
Property MileStonePayment As eMileStonePayment
|
||||
Get
|
||||
Return _MileStonePayment
|
||||
End Get
|
||||
Set(value As eMileStonePayment)
|
||||
SetPropertyValue("MileStonePayment", _MileStonePayment, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property InvoiceTypeBase As eInvoiceTypeBase
|
||||
Get
|
||||
Return _InvoiceTypeBase
|
||||
End Get
|
||||
Set(value As eInvoiceTypeBase)
|
||||
SetPropertyValue("InvoiceTypeBase", _InvoiceTypeBase, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Payment_Forecast.CurrencyName", DefaultContexts.Save)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
|
||||
Property SumPriceNettoHUF As Double
|
||||
Get
|
||||
Return _SumPriceNettoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceNettoHUF", _SumPriceNettoHUF, value)
|
||||
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
If Not Me.SumPriceBruttoHUF = value + Me.SumPriceVATHUF Then
|
||||
Me.SumPriceVATHUF = Math.Round((value * (Me.ImmovablesGroupsParameters.VAT.KeyValuePercent / 100)), 0, MidpointRounding.AwayFromZero)
|
||||
Me.SumPriceBruttoHUF = value + Me.SumPriceVATHUF
|
||||
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceVATHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
|
||||
Property SumPriceVATHUF As Double
|
||||
Get
|
||||
Return _SumPriceVATHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceBruttoHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
|
||||
Property SumPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _SumPriceBruttoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
If Not Me.SumPriceNettoHUF = value - Me.SumPriceVATHUF Then
|
||||
Me.SumPriceVATHUF = Math.Round((value / (100 + Me.ImmovablesGroupsParameters.VAT.KeyValuePercent) * Me.ImmovablesGroupsParameters.VAT.KeyValuePercent), 0, MidpointRounding.AwayFromZero)
|
||||
Me.SumPriceNettoHUF = value - Me.SumPriceVATHUF
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceNettoDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
|
||||
Property SumPriceNettoDEV As Double
|
||||
Get
|
||||
Return _SumPriceNettoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceNettoDEV", _SumPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceVATDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
|
||||
Property SumPriceVATDEV As Double
|
||||
Get
|
||||
Return _SumPriceVATDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_Payment_Forecast.SumPriceBruttoDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
|
||||
Property SumPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _SumPriceBruttoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SumPricePercent As Double
|
||||
Get
|
||||
Return _SumPricePercent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("SumPricePercent", _SumPricePercent, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.SumPriceBruttoHUF = Me.SumPriceBruttoHUF * (value / 100)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ContractRows As ContractRows
|
||||
Get
|
||||
Return _ContractRows
|
||||
End Get
|
||||
Set(value As ContractRows)
|
||||
SetPropertyValue("ContractRows", _ContractRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'----------ReadOnly--------------------
|
||||
<Browsable(False)> _
|
||||
ReadOnly Property ImmovablesGroupsParameters As ImmovablesGroupsParameters
|
||||
Get
|
||||
If Me.CRMEstate_Opportunity_Immovables IsNot Nothing Then
|
||||
Dim _ImmovablesGroupsParameters As ImmovablesGroupsParameters = Session.FindObject(Of ImmovablesGroupsParameters)(CriteriaOperator.Parse("ImmovablesGroups=?", _CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.ImmovableGroups))
|
||||
Return _ImmovablesGroupsParameters
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
+220
@@ -0,0 +1,220 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'-- Paraméterek, enumok
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("CRMEstate_Opportunity_Rent Hide HUF If currencyname != HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName != 'HUF'", Context:="Any", TargetItems:="AmountNettoHUF", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("CRMEstate_Opportunity_Rent Hide DEV If currencyname = HUF", AppearanceItemType:="LayoutItem", Criteria:="CurrencyName.ShortName = 'HUF'", Context:="Any", TargetItems:="AmountNettoDEV", Visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
Public Class CRMEstate_Opportunity_Rent
|
||||
Inherits BaseObject
|
||||
Private _CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _Contracts As Contracts 'Bérleti szerzõdés
|
||||
Private _DateCreated As Date 'Szerzõdés kelte
|
||||
Private _DateStart As Date 'Szerzõdés -tól
|
||||
Private _DateStop As Date 'Szerzõdés -ig
|
||||
Private _DayOfExecution As eDayOfMonth 'Forduló nap
|
||||
Private _AmountNettoHUF As Double 'Havi bérleti dij
|
||||
Private _AmountNettoDEV As Double 'Havi bérleti dij devizában
|
||||
Private _CurrencyName As CurrencyName 'Deviza
|
||||
Private _Description As String 'Egyéb megjegyzések
|
||||
'Bérleti szerződés paraméterek
|
||||
Private _Controlling As Controlling
|
||||
Private _PaymentOption As PaymentOption '--Fizetési opció
|
||||
Private _CostHolder As CostHolder ' -- Költségviselõ
|
||||
Private _CostPlace As CostPlace '-- Költséghely
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.DateCreated = GetSQLTime(Session)
|
||||
Me.CurrencyName = Session.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
CheckImmovableForRent(Me)
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeleting()
|
||||
MyBase.OnDeleting()
|
||||
|
||||
End Sub
|
||||
<Association("CRMEstate_Opportunity_Rent-CRMEstate_Opportunity_Immovables", GetType(CRMEstate_Opportunity_Immovables))> _
|
||||
Property CRMEstate_Opportunity_Immovables As CRMEstate_Opportunity_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Opportunity_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Opportunity_Immovables)
|
||||
SetPropertyValue("CRMEstate_Opportunity_Immovables", _CRMEstate_Opportunity_Immovables, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
|
||||
If TryCast(value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner, CustomersFrom) IsNot Nothing Then
|
||||
Me.CustomersFrom = value.CRMEstate_Leads_Immovables.Immovables.CustomersOwner
|
||||
End If
|
||||
Me.AmountNettoHUF = value.CRMEstate_Leads_Immovables.Immovables.PriceNettoHUFRent
|
||||
Me.AmountNettoDEV = value.CRMEstate_Leads_Immovables.Immovables.PriceNettoDEVRent
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property Contracts As Contracts
|
||||
Get
|
||||
Return _Contracts
|
||||
End Get
|
||||
Set(value As Contracts)
|
||||
SetPropertyValue("Contracts", _Contracts, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent.CustomersFrom", DefaultContexts.Save)> _
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent.DateCreated", DefaultContexts.Save)> _
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent.DateStart", DefaultContexts.Save)> _
|
||||
Property DateStart As Date
|
||||
Get
|
||||
Return _DateStart
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateStart", _DateStart, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent.DateStop", DefaultContexts.Save)> _
|
||||
Property DateStop As Date
|
||||
Get
|
||||
Return _DateStop
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateStop", _DateStop, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DayOfExecution As eDayOfMonth
|
||||
Get
|
||||
Return _DayOfExecution
|
||||
End Get
|
||||
Set(value As eDayOfMonth)
|
||||
SetPropertyValue("DayOfExecution", _DayOfExecution, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_Rent.AmountNettoHUF", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName = 'HUF'")> _
|
||||
Property AmountNettoHUF As Double
|
||||
Get
|
||||
Return _AmountNettoHUF
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountNettoHUF", _AmountNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRange("CRMEstate_Opportunity_Rent.AmountNettoDEV", DefaultContexts.Save, 0.1, Int64.MaxValue, TargetCriteria:="CurrencyName.ShortName != 'HUF'")> _
|
||||
Property AmountNettoDEV As Double
|
||||
Get
|
||||
Return _AmountNettoDEV
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountNettoDEV", _AmountNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent.CurrencyRate", DefaultContexts.Save)> _
|
||||
Property CurrencyName As CurrencyName
|
||||
Get
|
||||
Return _CurrencyName
|
||||
End Get
|
||||
Set(value As CurrencyName)
|
||||
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(4000)> _
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent-Controlling", DefaultContexts.Save)>
|
||||
<ImmediatePostData(True), DataSourceCriteria("IsParent=False")>
|
||||
Property Controlling() As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent-PaymentOptions", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.PartnerType = 0")> _
|
||||
Property PaymentOption() As PaymentOption
|
||||
Get
|
||||
Return _PaymentOption
|
||||
End Get
|
||||
Set(ByVal value As PaymentOption)
|
||||
SetPropertyValue("PaymentOption", _PaymentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Opportunity_Rent-CostHolder", DefaultContexts.Save)> _
|
||||
Property CostHolder As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(ByVal value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPlace As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(ByVal value As CostPlace)
|
||||
SetPropertyValue("CostPlace", _CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Function CheckImmovableForRent(p_CRMEstate_Opportunity_Rent As CRMEstate_Opportunity_Rent) As Boolean
|
||||
|
||||
'Ellenőrzi a bérlési foglalásokat
|
||||
|
||||
Dim _IsReservationOK As Boolean = False
|
||||
Dim _ExistingReservation As CRMEstate_Opportunity_Rent = Session.FindObject(Of CRMEstate_Opportunity_Rent)(CriteriaOperator.Parse("CRMEstate_Opportunity_Immovables =? AND ((DateStart>=? AND DateStart<=?) OR (DateStop<=? AND DateStop>=?))", _
|
||||
p_CRMEstate_Opportunity_Rent.CRMEstate_Opportunity_Immovables, p_CRMEstate_Opportunity_Rent.DateStart, p_CRMEstate_Opportunity_Rent.DateStop, p_CRMEstate_Opportunity_Rent.DateStop, p_CRMEstate_Opportunity_Rent.DateStart))
|
||||
|
||||
If _ExistingReservation IsNot Nothing And _ExistingReservation IsNot p_CRMEstate_Opportunity_Rent Then
|
||||
Throw New Exception("*A kiválasztott ingatlanra (" & p_CRMEstate_Opportunity_Rent.CRMEstate_Opportunity_Immovables.CRMEstate_Leads_Immovables.Immovables.UniqueObjects.Name & ") vonatkozó foglalás ütközik egy foglalással a következő időintervallumra: " & _ExistingReservation.DateStart.ToString & " - " & _ExistingReservation.DateStop.ToString & "!")
|
||||
Else
|
||||
_IsReservationOK = True
|
||||
End If
|
||||
|
||||
Return _IsReservationOK
|
||||
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
@@ -0,0 +1,30 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
'-- Paraméterek, enumok
|
||||
Public Enum eRightState
|
||||
ePossessor = 0 'Tulajdonos
|
||||
eUsufructuary = 1 'Haszonélvezeti jog
|
||||
End Enum
|
||||
Public Enum eMileStonePayment
|
||||
eSigned = 0
|
||||
eEnterIntoPossession = 1
|
||||
eOther = 2
|
||||
End Enum
|
||||
Public Enum eOpportunityType
|
||||
eRent = 0
|
||||
eSold = 1
|
||||
End Enum
|
||||
|
||||
|
||||
|
||||
+76
@@ -0,0 +1,76 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<DefaultClassOptions()> _
|
||||
<Appearance("Hide CRMEstate_Leads_Immovables", AppearanceItemType.ViewItem, "1=1", TargetItems:="CRMEstate_Leads_Immovables", visibility:=Editors.ViewItemVisibility.Hide)> _
|
||||
<Appearance("Disable DateTo", AppearanceItemType.ViewItem, "1=1", TargetItems:="DateTo", Enabled:=False)> _
|
||||
Public Class CRMEstate_Leads_Immovables_Reservation_Popup
|
||||
Inherits BaseObject
|
||||
Private _DateTo As Date ' Meddig
|
||||
Private _DateFrom As Date ' Mettől
|
||||
Private _AlertPeriod As AlertPeriod
|
||||
Private _CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables ' A kiválasztott ingatlan
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<RuleRequiredField("CRMEstate_Leads_Immovables_Reservation_Popup-DateTo", DefaultContexts.Save)> _
|
||||
Property DateTo As Date
|
||||
Get
|
||||
Return _DateTo
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateTo", _DateTo, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("CRMEstate_Leads_Immovables_Reservation_Popup-DateFrom", DefaultContexts.Save)> _
|
||||
<ImmediatePostData()> _
|
||||
Property DateFrom As Date
|
||||
Get
|
||||
Return _DateFrom
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateFrom", _DateFrom, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
Me.DateTo = Me.DateFrom.AddHours(72)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AlertPeriod As AlertPeriod
|
||||
Get
|
||||
Return _AlertPeriod
|
||||
End Get
|
||||
Set(value As AlertPeriod)
|
||||
SetPropertyValue("AlertPeriod", _AlertPeriod, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CRMEstate_Leads_Immovables As CRMEstate_Leads_Immovables
|
||||
Get
|
||||
Return _CRMEstate_Leads_Immovables
|
||||
End Get
|
||||
Set(value As CRMEstate_Leads_Immovables)
|
||||
SetPropertyValue("CRMEstate_Leads_Immovables", _CRMEstate_Leads_Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------ReadOnly-------------------
|
||||
<VisibleInListView(False)> _
|
||||
ReadOnly Property CollectionOfReservation As XPCollection(Of CRMEstate_Leads_Immovables_Reservation)
|
||||
Get
|
||||
Return _CRMEstate_Leads_Immovables.CRMEstate_Leads_Immovables_Reservation
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+17
@@ -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 ImmovablesPriceListRowsType
|
||||
Apartments = 0
|
||||
Offices = 1
|
||||
Garages = 2
|
||||
Containers = 3
|
||||
End Enum
|
||||
+151
@@ -0,0 +1,151 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
<Appearance("Disable UserCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="UserCreated", Enabled:=False)> _
|
||||
<Appearance("Disable DateCreated", AppearanceItemType.ViewItem, "1=1", TargetItems:="DateCreated", Enabled:=False)> _
|
||||
Public Class ImmovablesPriceListHeader
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ImmovablesGroups As ImmovablesGroups
|
||||
Private _UserCreated As User
|
||||
Private _DateCreated As Date
|
||||
Private _DueDate As Date 'Ajánlat érvényessége
|
||||
Private _DocumentBody As String ' RichText
|
||||
Private _IsActive As Boolean '
|
||||
Private _ShortName As String '
|
||||
Private _Description As String '
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
' This constructor is used when an object is loaded from a persistent storage.
|
||||
' Do not place any code here or place it only when the IsLoading property is false:
|
||||
' if (!IsLoading){
|
||||
' It is now OK to place your initialization code here.
|
||||
' }
|
||||
' or as an alternative, move your initialization code into the AfterConstruction method.
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
If DueDate = "#12:00:00 AM#" Then
|
||||
DueDate = GetSQLTime(Session)
|
||||
DueDate = DueDate.AddDays(30)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
DateCreated = GetSQLTime(Session)
|
||||
UserCreated = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
End If
|
||||
End Sub
|
||||
<ImmediatePostData()> _
|
||||
Property ImmovablesGroups As ImmovablesGroups
|
||||
Get
|
||||
Return _ImmovablesGroups
|
||||
End Get
|
||||
Set(value As ImmovablesGroups)
|
||||
SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving Then
|
||||
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(ByVal value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DueDate As Date
|
||||
Get
|
||||
Return _DueDate
|
||||
End Get
|
||||
Set(ByVal value As Date)
|
||||
SetPropertyValue("DueDate", _DueDate, 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
|
||||
Property IsActive As Boolean
|
||||
Get
|
||||
Return _IsActive
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsActive", _IsActive, value)
|
||||
End Set
|
||||
End Property
|
||||
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 Desctiption As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsA", GetType(ImmovablesPriceListRowsA))> _
|
||||
ReadOnly Property ImmovablesPriceListRowsA As XPCollection(Of ImmovablesPriceListRowsA)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesPriceListRowsA)("ImmovablesPriceListRowsA")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsO", GetType(ImmovablesPriceListRowsO))> _
|
||||
ReadOnly Property ImmovablesPriceListRowsO As XPCollection(Of ImmovablesPriceListRowsO)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesPriceListRowsO)("ImmovablesPriceListRowsO")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsC", GetType(ImmovablesPriceListRowsC))> _
|
||||
ReadOnly Property ImmovablesPriceListRowsC As XPCollection(Of ImmovablesPriceListRowsC)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesPriceListRowsC)("ImmovablesPriceListRowsC")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsG", GetType(ImmovablesPriceListRowsG))> _
|
||||
ReadOnly Property ImmovablesPriceListRowsG As XPCollection(Of ImmovablesPriceListRowsG)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesPriceListRowsG)("ImmovablesPriceListRowsG")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+254
@@ -0,0 +1,254 @@
|
||||
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 ImmovablesPriceListRowsA
|
||||
Inherits BaseObject
|
||||
Private _Apartments As Apartments
|
||||
Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Private _RowType As ImmovablesPriceListRowsType
|
||||
|
||||
'Értékesítési árak
|
||||
Private _ListPriceBruttoDEV As Double 'InLine edit
|
||||
Private _ListPriceBruttoHUF As Double 'InLine edit
|
||||
Private _ListPriceNettoDEV As Double ' math.round(ListBriceBruttoDEV/1.25,2,wawyfromzero)
|
||||
Private _ListPriceNettoHUF As Double ' math.round(ListBriceBruttoHUF/1.25,0,wawyfromzero)
|
||||
'--
|
||||
|
||||
'Bérlési árak
|
||||
Private _ListPriceBruttoDEVRent As Double 'InLine edit
|
||||
Private _ListPriceBruttoHUFRent As Double 'InLine edit
|
||||
Private _ListPriceNettoDEVRent As Double
|
||||
Private _ListPriceNettoHUFRent As Double
|
||||
'--
|
||||
|
||||
' Értékesítési nm árak
|
||||
Private _AreaListPriceBruttoDEV As Double 'AreaNettoForSale !!! Ezt kell használni az osztáshoz !
|
||||
Private _AreaListPriceBruttoHUF As Double
|
||||
Private _AreaListPriceNettoDEV As Double
|
||||
Private _AreaListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérleti nm árak
|
||||
Private _AreaListPriceBruttoDEVRent As Double
|
||||
Private _AreaListPriceBruttoHUFRent As Double
|
||||
Private _AreaListPriceNettoDEVRent As Double
|
||||
Private _AreaListPriceNettoHUFRent As Double
|
||||
'--
|
||||
Private _NoteRow 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 Apartments As Apartments
|
||||
Get
|
||||
Return _Apartments
|
||||
End Get
|
||||
Set(value As Apartments)
|
||||
SetPropertyValue("Apartments", _Apartments, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
|
||||
'Me.AreaListPriceBruttoDEV = value.a
|
||||
Me.AreaListPriceBruttoDEVRent = value.PriceAreaBruttoDEVRent
|
||||
'Me.AreaListPriceBruttoHUF = value.PriceAreaBruttoHUFRent
|
||||
Me.AreaListPriceBruttoHUFRent = value.PriceAreaBruttoHUFRent
|
||||
Me.AreaListPriceNettoDEV = value.AreaPriceNettoDEV
|
||||
Me.AreaListPriceNettoDEVRent = value.PriceAreaNettoDEVRent
|
||||
Me.AreaListPriceNettoHUF = value.AreaPriceNettoHUF
|
||||
Me.AreaListPriceNettoHUFRent = value.PriceAreaNettoHUFRent
|
||||
Me.ListPriceBruttoDEV = value.PriceBruttoDEV
|
||||
Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent
|
||||
Me.ListPriceBruttoHUF = value.PriceBruttoHUF
|
||||
Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent
|
||||
Me.ListPriceNettoDEV = value.PriceNettoDEV
|
||||
Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent
|
||||
Me.ListPriceNettoHUF = value.PriceNettoHUF
|
||||
Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsA", GetType(ImmovablesPriceListHeader))> _
|
||||
Property ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Get
|
||||
Return _ImmovablesPriceListHeader
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesPriceListHeader)
|
||||
SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoDEV = Math.Round((value / Me.Apartments.AreaNettoForSale), 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoHUF = Math.Round((value / Me.Apartments.AreaNettoForSale), 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoDEVRent = Math.Round((value / Me.Apartments.AreaNettoForSale), 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / Me.Apartments.AreaNettoForSale, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoHUFRent = Math.Round((value / Me.Apartments.AreaNettoForSale), 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(255)>
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+244
@@ -0,0 +1,244 @@
|
||||
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 ImmovablesPriceListRowsC
|
||||
Inherits BaseObject
|
||||
Private _Container As Container
|
||||
Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Private _RowType As ImmovablesPriceListRowsType
|
||||
|
||||
'Értékesítési árak
|
||||
Private _ListPriceBruttoDEV As Double
|
||||
Private _ListPriceBruttoHUF As Double
|
||||
Private _ListPriceNettoDEV As Double
|
||||
Private _ListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérlési árak
|
||||
Private _ListPriceBruttoDEVRent As Double
|
||||
Private _ListPriceBruttoHUFRent As Double
|
||||
Private _ListPriceNettoDEVRent As Double
|
||||
Private _ListPriceNettoHUFRent As Double
|
||||
'--
|
||||
' Értékesítési nm árak
|
||||
Private _AreaListPriceBruttoDEV As Double 'AreaNettoForSale !!! Ezt kell használni az osztáshoz !
|
||||
Private _AreaListPriceBruttoHUF As Double
|
||||
Private _AreaListPriceNettoDEV As Double
|
||||
Private _AreaListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérleti nm árak
|
||||
Private _AreaListPriceBruttoDEVRent As Double
|
||||
Private _AreaListPriceBruttoHUFRent As Double
|
||||
Private _AreaListPriceNettoDEVRent As Double
|
||||
Private _AreaListPriceNettoHUFRent As Double
|
||||
'--
|
||||
Private _NoteRow 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 Container As Container
|
||||
Get
|
||||
Return _Container
|
||||
End Get
|
||||
Set(value As Container)
|
||||
SetPropertyValue("Container", _Container, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
|
||||
Me.ListPriceBruttoDEV = value.PriceBruttoDEV
|
||||
Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent
|
||||
Me.ListPriceBruttoHUF = value.PriceBruttoHUF
|
||||
Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent
|
||||
Me.ListPriceNettoDEV = value.PriceNettoDEV
|
||||
Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent
|
||||
Me.ListPriceNettoHUF = value.PriceNettoHUF
|
||||
Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsC", GetType(ImmovablesPriceListHeader))> _
|
||||
Property ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Get
|
||||
Return _ImmovablesPriceListHeader
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesPriceListHeader)
|
||||
SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoDEV = Math.Round((value / Me.Container.AreaNetto), 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoHUF = Math.Round((value / Me.Container.AreaNetto), 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoDEVRent = Math.Round((value / Me.Container.AreaNetto), 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoHUFRent = Math.Round((value / Me.Container.AreaNetto), 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+244
@@ -0,0 +1,244 @@
|
||||
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 ImmovablesPriceListRowsG
|
||||
Inherits BaseObject
|
||||
Private _Garages As Garages
|
||||
Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Private _RowType As ImmovablesPriceListRowsType
|
||||
|
||||
'Értékesítési árak
|
||||
Private _ListPriceBruttoDEV As Double
|
||||
Private _ListPriceBruttoHUF As Double
|
||||
Private _ListPriceNettoDEV As Double
|
||||
Private _ListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérlési árak
|
||||
Private _ListPriceBruttoDEVRent As Double
|
||||
Private _ListPriceBruttoHUFRent As Double
|
||||
Private _ListPriceNettoDEVRent As Double
|
||||
Private _ListPriceNettoHUFRent As Double
|
||||
'--
|
||||
' Értékesítési nm árak
|
||||
Private _AreaListPriceBruttoDEV As Double 'AreaNettoForSale !!! Ezt kell használni az osztáshoz !
|
||||
Private _AreaListPriceBruttoHUF As Double
|
||||
Private _AreaListPriceNettoDEV As Double
|
||||
Private _AreaListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérleti nm árak
|
||||
Private _AreaListPriceBruttoDEVRent As Double
|
||||
Private _AreaListPriceBruttoHUFRent As Double
|
||||
Private _AreaListPriceNettoDEVRent As Double
|
||||
Private _AreaListPriceNettoHUFRent As Double
|
||||
|
||||
Private _NoteRow 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 Garages As Garages
|
||||
Get
|
||||
Return _Garages
|
||||
End Get
|
||||
Set(value As Garages)
|
||||
SetPropertyValue("Garages", _Garages, value)
|
||||
If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading And value IsNot Nothing Then
|
||||
Me.ListPriceBruttoDEV = value.PriceBruttoDEV
|
||||
Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent
|
||||
Me.ListPriceBruttoHUF = value.PriceBruttoHUF
|
||||
Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent
|
||||
Me.ListPriceNettoDEV = value.PriceNettoDEV
|
||||
Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent
|
||||
Me.ListPriceNettoHUF = value.PriceNettoHUF
|
||||
Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsG", GetType(ImmovablesPriceListHeader))> _
|
||||
Property ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Get
|
||||
Return _ImmovablesPriceListHeader
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesPriceListHeader)
|
||||
SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoDEV = Math.Round((value / Me.Garages.AreaNetto), 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoHUF = Math.Round((value / Me.Garages.AreaNetto), 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoDEVRent = Math.Round((value / Me.Garages.AreaNetto), 2, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceBruttoHUFRent = Math.Round((value / Me.Garages.AreaNetto), 0, MidpointRounding.AwayFromZero)
|
||||
'AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+254
@@ -0,0 +1,254 @@
|
||||
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 ImmovablesPriceListRowsO
|
||||
Inherits BaseObject
|
||||
Private _Offices As Offices
|
||||
Private _ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Private _RowType As ImmovablesPriceListRowsType
|
||||
|
||||
'Értékesítési árak
|
||||
Private _ListPriceBruttoDEV As Double
|
||||
Private _ListPriceBruttoHUF As Double
|
||||
Private _ListPriceNettoDEV As Double
|
||||
Private _ListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérlési árak
|
||||
Private _ListPriceBruttoDEVRent As Double
|
||||
Private _ListPriceBruttoHUFRent As Double
|
||||
Private _ListPriceNettoDEVRent As Double
|
||||
Private _ListPriceNettoHUFRent As Double
|
||||
'--
|
||||
|
||||
' Értékesítési nm árak
|
||||
Private _AreaListPriceBruttoDEV As Double
|
||||
Private _AreaListPriceBruttoHUF As Double
|
||||
Private _AreaListPriceNettoDEV As Double
|
||||
Private _AreaListPriceNettoHUF As Double
|
||||
'--
|
||||
|
||||
'Bérleti nm árak
|
||||
Private _AreaListPriceBruttoDEVRent As Double
|
||||
Private _AreaListPriceBruttoHUFRent As Double
|
||||
Private _AreaListPriceNettoDEVRent As Double
|
||||
Private _AreaListPriceNettoHUFRent As Double
|
||||
'--
|
||||
Private _NoteRow 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 Offices As Offices
|
||||
Get
|
||||
Return _Offices
|
||||
End Get
|
||||
Set(value As Offices)
|
||||
SetPropertyValue("Offices", _Offices, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And value IsNot Nothing Then
|
||||
'Me.AreaListPriceBruttoDEV = value.AreaPriceNettoDEV
|
||||
Me.AreaListPriceBruttoDEVRent = value.PriceAreaBruttoDEVRent
|
||||
'Me.AreaListPriceBruttoHUF = value.PriceAreaBruttoHUFRent
|
||||
Me.AreaListPriceBruttoHUFRent = value.PriceAreaBruttoHUFRent
|
||||
Me.AreaListPriceNettoDEV = value.AreaPriceNettoDEV
|
||||
Me.AreaListPriceNettoDEVRent = value.PriceAreaNettoDEVRent
|
||||
Me.AreaListPriceNettoHUF = value.AreaPriceNettoHUF
|
||||
Me.AreaListPriceNettoHUFRent = value.PriceAreaNettoHUFRent
|
||||
Me.ListPriceBruttoDEV = value.PriceBruttoDEV
|
||||
Me.ListPriceBruttoDEVRent = value.PriceBruttoDEVRent
|
||||
Me.ListPriceBruttoHUF = value.PriceBruttoHUF
|
||||
Me.ListPriceBruttoHUFRent = value.PriceBruttoHUFRent
|
||||
Me.ListPriceNettoDEV = value.PriceNettoDEV
|
||||
Me.ListPriceNettoDEVRent = value.PriceNettoDEVRent
|
||||
Me.ListPriceNettoHUF = value.PriceNettoHUF
|
||||
Me.ListPriceNettoHUFRent = value.PriceNettoHUFRent
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesPriceListHeader-ImmovablesPriceListRowsO", GetType(ImmovablesPriceListHeader))> _
|
||||
Property ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Get
|
||||
Return _ImmovablesPriceListHeader
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesPriceListHeader)
|
||||
SetPropertyValue("ImmovablesPriceListHeader", _ImmovablesPriceListHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEV", _ListPriceBruttoDEV, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEV = Math.Round(ListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoDEV = Math.Round((value / Me.Offices.AreaNettoForSale), 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoDEV = Math.Round(AreaListPriceBruttoDEV / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUF", _ListPriceBruttoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUF = Math.Round(ListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoHUF = Math.Round((value / Me.Offices.AreaNettoForSale), 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoHUF = Math.Round(AreaListPriceBruttoHUF / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEV", _ListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUF", _ListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoDEVRent", _ListPriceBruttoDEVRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoDEVRent = Math.Round(ListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoDEVRent = Math.Round((value / Me.Offices.AreaNettoForSale), 2, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoDEVRent = Math.Round(AreaListPriceBruttoDEVRent / 1.25, 2, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceBruttoHUFRent", _ListPriceBruttoHUFRent, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
ListPriceNettoHUFRent = Math.Round(ListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceBruttoHUFRent = Math.Round((value / Me.Offices.AreaNettoForSale), 0, MidpointRounding.AwayFromZero)
|
||||
AreaListPriceNettoHUFRent = Math.Round(AreaListPriceBruttoHUFRent / 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoDEVRent", _ListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _ListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("ListPriceNettoHUFRent", _ListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEV", _AreaListPriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUF", _AreaListPriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEV As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEV", _AreaListPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUF As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUF", _AreaListPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoDEVRent", _AreaListPriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceBruttoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceBruttoHUFRent", _AreaListPriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoDEVRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoDEVRent", _AreaListPriceNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaListPriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _AreaListPriceNettoHUFRent
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaListPriceNettoHUFRent", _AreaListPriceNettoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property NoteRow As String
|
||||
Get
|
||||
Return _NoteRow
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("NoteRow", _NoteRow, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+49
@@ -0,0 +1,49 @@
|
||||
Partial Class ImmovablesPriceListVC
|
||||
|
||||
<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.aGenerateIPriceList = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aGenerateIPriceList
|
||||
'
|
||||
Me.aGenerateIPriceList.Caption = "Run query"
|
||||
Me.aGenerateIPriceList.Category = "View"
|
||||
Me.aGenerateIPriceList.ConfirmationMessage = Nothing
|
||||
Me.aGenerateIPriceList.Id = "aGenerateIPriceList"
|
||||
Me.aGenerateIPriceList.ImageName = "stopwatch_run"
|
||||
Me.aGenerateIPriceList.Shortcut = Nothing
|
||||
Me.aGenerateIPriceList.Tag = Nothing
|
||||
Me.aGenerateIPriceList.TargetObjectsCriteria = Nothing
|
||||
Me.aGenerateIPriceList.TargetViewId = "ImmovablesPriceListHeader_DetailView"
|
||||
Me.aGenerateIPriceList.ToolTip = Nothing
|
||||
Me.aGenerateIPriceList.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aGenerateIPriceList As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -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="aGenerateIPriceList.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+141
@@ -0,0 +1,141 @@
|
||||
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.Xpo
|
||||
Imports DevExpress.ExpressApp.Filtering
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.CloneObject
|
||||
|
||||
Public Class ImmovablesPriceListVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsA_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsC_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsG_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "ImmovablesPriceListHeader_ImmovablesPriceListRowsO_ListView" Then
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub aGenerateIPriceList_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aGenerateIPriceList.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _uow As UnitOfWork = New UnitOfWork(_ocur.Session.DataLayer)
|
||||
Dim _ImmovablesPriceListHeader = _uow.GetObjectByKey(Of ImmovablesPriceListHeader)(TryCast(View.SelectedObjects(0), ImmovablesPriceListHeader).Oid)
|
||||
|
||||
Dim _ApartmentsCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsA), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader))
|
||||
Dim _OfficesCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsO), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader))
|
||||
Dim _GaragesCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsG), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader))
|
||||
Dim _ContainerCollection_DEL As New XPCollection(_uow, GetType(ImmovablesPriceListRowsC), CriteriaOperator.Parse("ImmovablesPriceListHeader=?", _ImmovablesPriceListHeader))
|
||||
|
||||
_uow.Delete(_ApartmentsCollection_DEL)
|
||||
_uow.Delete(_OfficesCollection_DEL)
|
||||
_uow.Delete(_GaragesCollection_DEL)
|
||||
_uow.Delete(_ContainerCollection_DEL)
|
||||
_uow.CommitChanges()
|
||||
|
||||
Dim _ApartmentsCollection As New XPCollection(_uow, GetType(Apartments), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups))
|
||||
Dim _OfficesCollection As New XPCollection(_uow, GetType(Offices), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups))
|
||||
Dim _GaragesCollection As New XPCollection(_uow, GetType(Garages), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups))
|
||||
Dim _ContainerCollection As New XPCollection(_uow, GetType(Container), CriteriaOperator.Parse("(CanForSale=True Or CanForRent = True) and ImmovableGroups=?", _ImmovablesPriceListHeader.ImmovablesGroups))
|
||||
|
||||
Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA
|
||||
Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO
|
||||
Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG
|
||||
Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC
|
||||
|
||||
For Each _Apartments As Apartments In _ApartmentsCollection
|
||||
_ImmovablesPriceListRowsA = New ImmovablesPriceListRowsA(_uow)
|
||||
_ImmovablesPriceListRowsA.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsA.Apartments = _Apartments
|
||||
_ImmovablesPriceListRowsA.Save()
|
||||
Next
|
||||
|
||||
For Each _Offices As Offices In _OfficesCollection
|
||||
_ImmovablesPriceListRowsO = New ImmovablesPriceListRowsO(_uow)
|
||||
_ImmovablesPriceListRowsO.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsO.Offices = _Offices
|
||||
_ImmovablesPriceListRowsO.Save()
|
||||
Next
|
||||
|
||||
For Each _Garages As Garages In _GaragesCollection
|
||||
_ImmovablesPriceListRowsG = New ImmovablesPriceListRowsG(_uow)
|
||||
_ImmovablesPriceListRowsG.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsG.Garages = _Garages
|
||||
_ImmovablesPriceListRowsG.Save()
|
||||
Next
|
||||
|
||||
For Each _Container As Container In _ContainerCollection
|
||||
_ImmovablesPriceListRowsC = New ImmovablesPriceListRowsC(_uow)
|
||||
_ImmovablesPriceListRowsC.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsC.Container = _Container
|
||||
_ImmovablesPriceListRowsC.Save()
|
||||
Next
|
||||
_uow.CommitChanges()
|
||||
If Frame.GetController(Of RefreshController).RefreshAction.Enabled Then
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+346
@@ -0,0 +1,346 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class Apartments
|
||||
Inherits Immovables
|
||||
Private _Floor As Floors 'Emelet
|
||||
Private _Stairway As Stairways 'Lépcsőház
|
||||
Private _RoomString As String 'Szoba szövegesen
|
||||
Private _WindowDirection As eWindowDirection 'Ablak tájolás
|
||||
Private _AreaPriceNettoHUF As Double 'Netto négyzetméter ár (HUF)
|
||||
Private _AreaPriceNettoDEV As Double '
|
||||
Private _PriceBruttoHUF As Double 'Bruttó listaár számoltatni a nettó vételárból (HUF)
|
||||
Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
|
||||
Private _PriceBruttoDEV As Double
|
||||
Private _PriceNettoDEV As Double 'Nettó vételár
|
||||
Private _AreaNetto As Double = 0 'Nettó négyzetméter
|
||||
Private _AreaNettoUnder190 As Double = 0 'Nettó négyzetméter 1.90 alatt
|
||||
Private _AreaNettoForSale As Double = 0 'Nettó eladható négyzetméter
|
||||
Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
|
||||
Private _Direction As eIDirection 'Tájolás
|
||||
Private _IsTerrace As Boolean 'Terasz van-e hozzá
|
||||
Private _AreaTerrace As Double = 0 ' Összes terasz négyzetmétere
|
||||
Private _Note As String 'Megjegyzés
|
||||
Private _UniqueTag As String 'Egyedi tag
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
If UniqueTag <> "*" Then Me.MakeUniqueObjects_Apartments()
|
||||
End If
|
||||
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.ImmovablesTypes = eImmovablesTypes.eApartment
|
||||
End Sub
|
||||
Protected Sub RecalculatePrice()
|
||||
PriceNettoHUF = Math.Round(AreaNettoForSale * AreaPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
|
||||
PriceNettoDEV = Math.Round(AreaNettoForSale * AreaPriceNettoDEV, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
Protected Sub RecalculatePriceBrutto()
|
||||
PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
Protected Sub RecalculateAreaNettoForSale()
|
||||
AreaNettoForSale = Math.Round((AreaNetto + (AreaNettoUnder190 / 2) + (AreaTerrace / 2)), 2, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
<RuleRequiredField("Apartments-Floors", DefaultContexts.Save)> _
|
||||
Property Floor() As Floors
|
||||
Get
|
||||
Return _Floor
|
||||
End Get
|
||||
Set(ByVal value As Floors)
|
||||
SetPropertyValue("Floor", _Floor, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Apartments-Stairway", DefaultContexts.Save)> _
|
||||
Property Stairway() As Stairways
|
||||
Get
|
||||
Return _Stairway
|
||||
End Get
|
||||
Set(ByVal value As Stairways)
|
||||
SetPropertyValue("Stairway", _Stairway, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInListView(False)> _
|
||||
<Association("Apartments-LocalityLists", GetType(LocalityLists))> _
|
||||
Public ReadOnly Property LocalityLists() As XPCollection(Of LocalityLists)
|
||||
Get
|
||||
Return GetCollection(Of LocalityLists)("LocalityLists")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Property WindowDirection() As eWindowDirection
|
||||
Get
|
||||
Return _WindowDirection
|
||||
End Get
|
||||
Set(ByVal value As eWindowDirection)
|
||||
SetPropertyValue("WindowDirection", _WindowDirection, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property AreaPriceNettoHUF() As Double
|
||||
Get
|
||||
Return _AreaPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaPriceNettoHUF", _AreaPriceNettoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculatePrice()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AreaPriceNettoDEV() As Double
|
||||
Get
|
||||
Return _AreaPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaPriceNettoDEV", _AreaPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Direction() As eIDirection
|
||||
Get
|
||||
Return _Direction
|
||||
End Get
|
||||
Set(ByVal value As eIDirection)
|
||||
SetPropertyValue("Direction", _Direction, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoHUF() As Double
|
||||
Get
|
||||
Return _PriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property PriceNettoHUF As Double
|
||||
Get
|
||||
Return _PriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoDEV() As Double
|
||||
Get
|
||||
Return _PriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property PriceNettoDEV As Double
|
||||
Get
|
||||
Return _PriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
<Description("Terület négyzetméterben")> _
|
||||
Property AreaNetto() As Double
|
||||
Get
|
||||
Return _AreaNetto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNetto", _AreaNetto, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculateAreaNettoForSale()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property AreaNettoUnder190() As Double
|
||||
Get
|
||||
Return _AreaNettoUnder190
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNettoUnder190", _AreaNettoUnder190, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculateAreaNettoForSale()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property AreaNettoForSale As Double
|
||||
Get
|
||||
Return _AreaNettoForSale
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNettoForSale", _AreaNettoForSale, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculatePrice()
|
||||
MyBase.RecalculatePriceRent()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNettoForCostRecord As Double
|
||||
Get
|
||||
Return _AreaNettoForCostRecord
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsTerrace() As Boolean
|
||||
Get
|
||||
Return _IsTerrace
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsTerrace", _IsTerrace, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property AreaTerrace As Double
|
||||
Get
|
||||
Return _AreaTerrace
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaTerrace", _AreaTerrace, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculateAreaNettoForSale()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RoomString() As String
|
||||
Get
|
||||
Return _RoomString
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("RoomString", _RoomString, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Apartments-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Sub MakeUniqueObjects_Apartments()
|
||||
Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
|
||||
Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
|
||||
Dim _Name_Stairway As String : Dim _UniqueObjects_Stairway As UniqueObjects
|
||||
Dim _Name_Stairway_X As String : Dim _UniqueObjects_Stairway_X As UniqueObjects
|
||||
Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
|
||||
Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
|
||||
Dim _Name_Apartments As String : Dim _UniqueObjects_Apartments As UniqueObjects
|
||||
|
||||
|
||||
_Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
|
||||
_Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
|
||||
If _UniqueObjects_ImmovablesGroups Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups.Save()
|
||||
End If
|
||||
_UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
|
||||
If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
|
||||
_UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Stairway = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag
|
||||
_Name_Stairway_X = _Name_ImmovablesGroups & "-" & Stairway.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_Stairway = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway))
|
||||
If _UniqueObjects_Stairway Is Nothing Then
|
||||
_UniqueObjects_Stairway = New UniqueObjects(Session)
|
||||
_UniqueObjects_Stairway.Name = _Name_Stairway
|
||||
_UniqueObjects_Stairway.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_Stairway.Save()
|
||||
End If
|
||||
_UniqueObjects_Stairway_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway_X))
|
||||
If _UniqueObjects_Stairway_X Is Nothing Then
|
||||
_UniqueObjects_Stairway_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Stairway_X.Name = _Name_Stairway_X
|
||||
_UniqueObjects_Stairway_X.Parent = _UniqueObjects_Stairway
|
||||
_UniqueObjects_Stairway_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Floor = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag
|
||||
_Name_Floor_X = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
|
||||
If _UniqueObjects_Floor Is Nothing Then
|
||||
_UniqueObjects_Floor = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor.Name = _Name_Floor
|
||||
_UniqueObjects_Floor.Parent = _UniqueObjects_Stairway
|
||||
_UniqueObjects_Floor.Save()
|
||||
End If
|
||||
_UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
|
||||
If _UniqueObjects_Floor_X Is Nothing Then
|
||||
_UniqueObjects_Floor_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor_X.Name = _Name_Floor_X
|
||||
_UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Floor_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Apartments = Me.ImmovableGroups.UniqueTag & "-" & Me.Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag
|
||||
|
||||
_UniqueObjects_Apartments = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments))
|
||||
If _UniqueObjects_Apartments Is Nothing Then
|
||||
_UniqueObjects_Apartments = New UniqueObjects(Session)
|
||||
_UniqueObjects_Apartments.Name = _Name_Apartments
|
||||
_UniqueObjects_Apartments.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Apartments.Save()
|
||||
Me.UniqueObjects = _UniqueObjects_Apartments
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property Immovables_Oid As String
|
||||
Get
|
||||
Return Me.Oid.ToString
|
||||
End Get
|
||||
End Property
|
||||
'-----NonPersistes-----
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUFRent As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUFRent As Double = 0
|
||||
End Class ' Lakások
|
||||
+199
@@ -0,0 +1,199 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class Container
|
||||
Inherits Immovables
|
||||
Private _Garages As Garages
|
||||
Private _Floor As Floors
|
||||
Private _AreaNetto As Double
|
||||
Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
|
||||
Private _PriceBruttoHUF As Double
|
||||
Private _PriceNettoHUF As Double
|
||||
Private _PriceBruttoDEV As Double
|
||||
Private _PriceNettoDEV As Double
|
||||
Private _Note As String
|
||||
Private _UniqueTag As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.ImmovablesTypes = eImmovablesTypes.eContainer
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
If UniqueTag <> "*" Then Me.MakeUniqueObjects_Container()
|
||||
End If
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
Protected Sub RecalculatePriceBrutto()
|
||||
PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
<Association("Garages-Container", GetType(Garages))> _
|
||||
Property Garages() As Garages
|
||||
Get
|
||||
Return _Garages
|
||||
End Get
|
||||
Set(ByVal value As Garages)
|
||||
SetPropertyValue("Garages", _Garages, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Floor() As Floors
|
||||
Get
|
||||
Return _Floor
|
||||
End Get
|
||||
Set(ByVal value As Floors)
|
||||
SetPropertyValue("Floor", _Floor, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNetto() As Double
|
||||
Get
|
||||
Return _AreaNetto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNetto", _AreaNetto, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNettoForCostRecord As Double
|
||||
Get
|
||||
Return _AreaNettoForCostRecord
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property PriceBruttoHUF() As Double
|
||||
Get
|
||||
Return _PriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property PriceNettoHUF As Double
|
||||
Get
|
||||
Return _PriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property PriceBruttoDEV() As Double
|
||||
Get
|
||||
Return _PriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property PriceNettoDEV As Double
|
||||
Get
|
||||
Return _PriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Container-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Sub MakeUniqueObjects_Container()
|
||||
Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
|
||||
Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
|
||||
Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
|
||||
Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
|
||||
Dim _Name_Container As String : Dim _UniqueObjects_Container As UniqueObjects
|
||||
|
||||
_Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
|
||||
_Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
|
||||
If _UniqueObjects_ImmovablesGroups Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups.Save()
|
||||
End If
|
||||
_UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
|
||||
If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
|
||||
_UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Floor = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag
|
||||
_Name_Floor_X = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
|
||||
If _UniqueObjects_Floor Is Nothing Then
|
||||
_UniqueObjects_Floor = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor.Name = _Name_Floor
|
||||
_UniqueObjects_Floor.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_Floor.Save()
|
||||
End If
|
||||
_UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
|
||||
If _UniqueObjects_Floor_X Is Nothing Then
|
||||
_UniqueObjects_Floor_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor_X.Name = _Name_Floor_X
|
||||
_UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Floor_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Container = Me.ImmovableGroups.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag
|
||||
|
||||
_UniqueObjects_Container = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Container))
|
||||
If _UniqueObjects_Container Is Nothing Then
|
||||
_UniqueObjects_Container = New UniqueObjects(Session)
|
||||
_UniqueObjects_Container.Name = _Name_Container
|
||||
_UniqueObjects_Container.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Container.Save()
|
||||
Me.UniqueObjects = _UniqueObjects_Container
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'-----NonPersistes-----
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUFRent As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUFRent As Double = 0
|
||||
End Class 'Tárolók
|
||||
+93
@@ -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
|
||||
Public Enum eSIDChild
|
||||
SID_NONE = 0
|
||||
SID_WH = 1
|
||||
SID_QM1 = 2
|
||||
SID_QM2 = 3
|
||||
SID_ARAM = 4
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class ImmovablesCostRecord
|
||||
Inherits BaseObject
|
||||
Private _Immovables As Immovables 'Melyik ingatlanhoz tartozik
|
||||
Private _ShortName As String 'Megnevezés
|
||||
Private _SID As String 'Egyedi azonosítója a mérõórának
|
||||
Private _SIDChild As eSIDChild
|
||||
Private _ImmovablesCostRecordGroup As ImmovablesCostRecordGroup
|
||||
Private _Description_ContactRows As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property Immovables As Immovables
|
||||
Get
|
||||
Return _Immovables
|
||||
End Get
|
||||
Set(value As Immovables)
|
||||
SetPropertyValue("Immovables", _Immovables, 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 SID As String
|
||||
Get
|
||||
Return _SID
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("SID", _SID, value)
|
||||
End Set
|
||||
End Property
|
||||
Property SIDChild As eSIDChild
|
||||
Get
|
||||
Return _SIDChild
|
||||
End Get
|
||||
Set(value As eSIDChild)
|
||||
SetPropertyValue("SIDChild", _SIDChild, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Description_ContactRows As String
|
||||
Get
|
||||
Return _Description_ContactRows
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description_ContactRows", _Description_ContactRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ImmovablesCostRecordGroup As ImmovablesCostRecordGroup
|
||||
Get
|
||||
Return _ImmovablesCostRecordGroup
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecordGroup)
|
||||
SetPropertyValue("ImmovablesCostRecordGroup", _ImmovablesCostRecordGroup, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesCostRecord-ImmovablesCostRecordEvents", GetType(ImmovablesCostRecordEvents))> _
|
||||
ReadOnly Property ImmovablesCostRecordEvents As XPCollection(Of ImmovablesCostRecordEvents)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesCostRecordEvents)("ImmovablesCostRecordEvents")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+42
@@ -0,0 +1,42 @@
|
||||
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 ImmovablesCostRecordContactRow
|
||||
Inherits BaseObject
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
ReadOnly Property Contracts As XPCollection(Of Contracts)
|
||||
Get
|
||||
If UniqueObjects IsNot Nothing Then
|
||||
Return New XPCollection(Of Contracts)(Session, Session.ParseCriteria("State in ('Ready','Signed') and UniqueObjects=?", UniqueObjects))
|
||||
Else
|
||||
Return Nothing
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
<Browsable(False)> Property UniqueObjects As UniqueObjects
|
||||
Property Controlling As Controlling
|
||||
Property CostHolder As CostHolder
|
||||
Property CostPlace As CostPlace
|
||||
Property JobNumberObjects As JobNumberObjects
|
||||
Property ShortName As String
|
||||
Property DateExecution As Date
|
||||
Property PaymentOption As PaymentOption
|
||||
Property InvoicePeriod As String
|
||||
|
||||
End Class
|
||||
+29
@@ -0,0 +1,29 @@
|
||||
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 ImmovablesCostRecordDescriptionPopup
|
||||
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
|
||||
<Size(-1)> Property Description As String
|
||||
End Class
|
||||
+229
@@ -0,0 +1,229 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.ExpressApp.ConditionalAppearance
|
||||
Public Enum eReadState
|
||||
eSimpleRead = 0 'Mormál leolvasás
|
||||
eTransferOutRead = 1 'Átadási leolvasás
|
||||
eTransferInRead = 2 'Átvételi leolvasás
|
||||
End Enum
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
<Appearance("Red if no price", AppearanceItemType:="ViewItem", criteria:="ReadedValueSumPrice<=0", FontColor:="Red", targetitems:="*")> _
|
||||
Public Class ImmovablesCostRecordEvents
|
||||
Inherits BaseObject
|
||||
Private _ImmovablesCostRecord As ImmovablesCostRecord
|
||||
Private _ReadedValue As Double
|
||||
Private _ReadState As eReadState
|
||||
Private _ReadDate As Date 'Mikor történt a leolvasás
|
||||
|
||||
Private _ReadIndex As Long 'Hányadik leolvasás ?
|
||||
Private _UserCreated As User
|
||||
Private _DateCreated As Date
|
||||
Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
|
||||
Private _ReadedValuePrev As Double 'Elõzõ esemény értéke EVENT állása
|
||||
Private _ReadedValueDiff As Double
|
||||
Private _ReadedValuePrice As Double
|
||||
Private _ReadedValueSumPrice As Double
|
||||
|
||||
Private _ContractRows As ContractRows
|
||||
Private _InvoicePeriod As String
|
||||
Private _IsReader As Boolean = False
|
||||
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
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
If Not SecuritySystem.CurrentUser Is Nothing Then
|
||||
Dim currentUser As User = Session.GetObjectByKey(Of User)(Session.GetKeyValue(SecuritySystem.CurrentUser))
|
||||
UserCreated = currentUser
|
||||
End If
|
||||
DateCreated = GetSQLTime(Session)
|
||||
End If
|
||||
End Sub
|
||||
<Association("ImmovablesCostRecord-ImmovablesCostRecordEvents", GetType(ImmovablesCostRecord))> _
|
||||
<RuleRequiredField("ImmovablesCostRecordEvents-ImmovablesCostRecord", DefaultContexts.Save)> _
|
||||
Property ImmovablesCostRecord As ImmovablesCostRecord
|
||||
Get
|
||||
Return _ImmovablesCostRecord
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecord)
|
||||
SetPropertyValue("ImmovablesCostRecord", _ImmovablesCostRecord, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReadedValue As Double
|
||||
Get
|
||||
Return _ReadedValue
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ReadedValue", _ReadedValue, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReadState As eReadState
|
||||
Get
|
||||
Return _ReadState
|
||||
End Get
|
||||
Set(value As eReadState)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData()> _
|
||||
Property ReadDate As Date
|
||||
Get
|
||||
Return _ReadDate
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ReadDate", _ReadDate, value)
|
||||
OnChanged(ReadDateYear)
|
||||
OnChanged(ReadDateMonth)
|
||||
OnChanged(ReadDateQuarter)
|
||||
End Set
|
||||
End Property
|
||||
Property ReadDateYear As String
|
||||
Get
|
||||
Return AlignStr(DatePart(DateInterval.Year, ReadDate).ToString, eDirection.Left, "0", 4)
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ReadDateYear", AlignStr(DatePart(DateInterval.Year, ReadDate).ToString, eDirection.Left, "0", 4), value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReadDateQuarter As String
|
||||
Get
|
||||
Return AlignStr(DatePart(DateInterval.Quarter, ReadDate).ToString, eDirection.Left, "0", 2)
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ReadDateQuarter", AlignStr(DatePart(DateInterval.Quarter, ReadDate).ToString, eDirection.Left, "0", 2), value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReadDateMonth As String
|
||||
Get
|
||||
Return AlignStr(DatePart(DateInterval.Month, ReadDate).ToString, eDirection.Left, "0", 2)
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ReadDateMonth", AlignStr(DatePart(DateInterval.Month, ReadDate).ToString, eDirection.Left, "0", 2), value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property ReadIndex As Long
|
||||
Get
|
||||
Return _ReadIndex
|
||||
End Get
|
||||
Set(value As Long)
|
||||
SetPropertyValue("ReadIndex", _ReadIndex, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property DateCreated As Date
|
||||
Get
|
||||
Return _DateCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateCreated", _DateCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
|
||||
Get
|
||||
Return _ImmovablesCostRecordExcel
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecordExcel)
|
||||
SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReadedValuePrev As Double
|
||||
Get
|
||||
Return Math.Round(_ReadedValuePrev, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("_ReadedValuePrev", _ReadedValuePrev, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property ReadedValueDiff As Double
|
||||
Get
|
||||
Return Math.Round(_ReadedValueDiff, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ReadedValueDiff", _ReadedValueDiff, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property ReadedValuePrice As Double
|
||||
Get
|
||||
Return Math.Round(_ReadedValuePrice, 4, MidpointRounding.AwayFromZero)
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ReadedValuePrice", _ReadedValuePrice, Math.Round(value, 4, MidpointRounding.AwayFromZero))
|
||||
End Set
|
||||
End Property
|
||||
Property ReadedValueSumPrice As Double
|
||||
Get
|
||||
Return _ReadedValueSumPrice
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("ReadedValueSumPrice", _ReadedValueSumPrice, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<VisibleInDetailView(False), VisibleInLookupListView(False)> _
|
||||
Property ContractRows As ContractRows
|
||||
Get
|
||||
Return _ContractRows
|
||||
End Get
|
||||
Set(value As ContractRows)
|
||||
SetPropertyValue("ContractRows", _ContractRows, 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 IsReader As Boolean
|
||||
Get
|
||||
Return _IsReader
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsReader", _IsReader, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property Description_ContractRows As String
|
||||
Get
|
||||
If ImmovablesCostRecord IsNot Nothing Then
|
||||
If ImmovablesCostRecord.Description_ContactRows Is Nothing Then
|
||||
Return ""
|
||||
Else
|
||||
Return String.Format(ImmovablesCostRecord.Description_ContactRows, Math.Round(ReadedValuePrev, 4, MidpointRounding.AwayFromZero), _
|
||||
Math.Round(ReadedValue, 4, MidpointRounding.AwayFromZero), _
|
||||
Math.Round(ReadedValueDiff, 4, MidpointRounding.AwayFromZero))
|
||||
End If
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+143
@@ -0,0 +1,143 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False), DefaultProperty("ShortName")> _
|
||||
<FileAttachment("ExcelFile")> _
|
||||
Public Class ImmovablesCostRecordExcel
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _UserCreated As User
|
||||
Private _ObjectCreated As Date
|
||||
Private _ExcelProperty As String
|
||||
Private _ExcelFile As FileData
|
||||
Private _ImportExcelFile As FileData
|
||||
Private _DateExecution As Date
|
||||
Private _IsEditable As Boolean = True
|
||||
Private _IsStorno As Boolean = False
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Dim _ImmovablesCostRecordMainGroup_Collection As New XPCollection(Of ImmovablesCostRecordMainGroup)(Session, CriteriaOperator.Parse("1=1"))
|
||||
|
||||
For Each _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup In _ImmovablesCostRecordMainGroup_Collection
|
||||
Dim _ImmovablesCostRecordExcelMainGroup As New ImmovablesCostRecordExcelMainGroup(Session)
|
||||
_ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordExcel = Me
|
||||
_ImmovablesCostRecordExcelMainGroup.IsUseInExcel = True
|
||||
_ImmovablesCostRecordExcelMainGroup.ImmovablesCostRecordMainGroup = _ImmovablesCostRecordMainGroup
|
||||
Next
|
||||
Me.DateExecution = GetSQLTime(Session)
|
||||
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
|
||||
|
||||
<RuleRequiredField("ImmovablesCostRecordExcel-ShortName", DefaultContexts.Save)> _
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property UserCreated As User
|
||||
Get
|
||||
Return _UserCreated
|
||||
End Get
|
||||
Set(value As User)
|
||||
SetPropertyValue("UserCreated", _UserCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable> _
|
||||
Property ObjectCreated As Date
|
||||
Get
|
||||
Return _ObjectCreated
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("ObjectCreated", _ObjectCreated, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property ExcelProperty As String
|
||||
Get
|
||||
Return _ExcelProperty
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ExcelProperty", _ExcelProperty, value)
|
||||
End Set
|
||||
End Property
|
||||
<Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
|
||||
Property ExcelFile As FileData
|
||||
Get
|
||||
Return _ExcelFile
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("ExcelFile", _ExcelFile, value)
|
||||
End Set
|
||||
End Property
|
||||
<Aggregated(), ExpandObjectMembers(ExpandObjectMembers.Never)> _
|
||||
Property ImportExcelFile As FileData
|
||||
Get
|
||||
Return _ImportExcelFile
|
||||
End Get
|
||||
Set(value As FileData)
|
||||
SetPropertyValue("ImportExcelFile", _ImportExcelFile, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DateExecution As Date
|
||||
Get
|
||||
Return _DateExecution.Date
|
||||
End Get
|
||||
Set(value As Date)
|
||||
SetPropertyValue("DateExecution", _DateExecution, value.Date)
|
||||
End Set
|
||||
End Property
|
||||
Property IsEditable As Boolean
|
||||
Get
|
||||
Return _IsEditable
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsEditable", _IsEditable, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsStorno As Boolean
|
||||
Get
|
||||
Return _IsStorno
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsStorno", _IsStorno, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'-------------------------ReadOnly ----------------
|
||||
<Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordExcel", GetType(ImmovablesCostRecordExcelMainGroup)), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ImmovablesCostRecordExcelMainGroup As XPCollection(Of ImmovablesCostRecordExcelMainGroup)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesCostRecordExcelMainGroup)("ImmovablesCostRecordExcelMainGroup")
|
||||
End Get
|
||||
End Property
|
||||
<Association("ImmovablesCostRecordExcel-ImmovablesCostRecordExcelImmovables", GetType(ImmovablesCostRecordExcelImmovables)), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
ReadOnly Property ImmovablesCostRecordExcelImmovables As XPCollection(Of ImmovablesCostRecordExcelImmovables)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesCostRecordExcelImmovables)("ImmovablesCostRecordExcelImmovables")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+49
@@ -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 ImmovablesCostRecordExcelImmovables
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
|
||||
Private _Immovables As Immovables
|
||||
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("ImmovablesCostRecordExcel-ImmovablesCostRecordExcelImmovables", GetType(ImmovablesCostRecordExcel))> _
|
||||
Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
|
||||
Get
|
||||
Return _ImmovablesCostRecordExcel
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecordExcel)
|
||||
SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Immovables As Immovables
|
||||
Get
|
||||
Return _Immovables
|
||||
End Get
|
||||
Set(value As Immovables)
|
||||
SetPropertyValue("Immovables", _Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+54
@@ -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 ImmovablesCostRecordExcelMainGroup
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
|
||||
Private _IsUseInExcel As Boolean
|
||||
Private _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
IsUseInExcel = True
|
||||
End Sub
|
||||
|
||||
<Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordExcel", GetType(ImmovablesCostRecordExcel))> _
|
||||
Property ImmovablesCostRecordExcel As ImmovablesCostRecordExcel
|
||||
Get
|
||||
Return _ImmovablesCostRecordExcel
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecordExcel)
|
||||
SetPropertyValue("ImmovablesCostRecordExcel", _ImmovablesCostRecordExcel, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
|
||||
Get
|
||||
Return _ImmovablesCostRecordMainGroup
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecordMainGroup)
|
||||
SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsUseInExcel As Boolean
|
||||
Get
|
||||
Return _IsUseInExcel
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsUseInExcel", _IsUseInExcel, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
+105
@@ -0,0 +1,105 @@
|
||||
Partial Class ImmovablesCostRecordExcelVC
|
||||
|
||||
<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.aCreateContractRows_Costs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aRemoveContractRows_Costs = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
Me.aImportImmovables = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aCreateContractRows_Costs_FromContract = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aCreateContractRows_Costs
|
||||
'
|
||||
Me.aCreateContractRows_Costs.Caption = "aCreateContractRows_Costs"
|
||||
Me.aCreateContractRows_Costs.ConfirmationMessage = Nothing
|
||||
Me.aCreateContractRows_Costs.Id = "aCreateContractRows_Costs"
|
||||
Me.aCreateContractRows_Costs.ImageName = Nothing
|
||||
Me.aCreateContractRows_Costs.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aCreateContractRows_Costs.Shortcut = Nothing
|
||||
Me.aCreateContractRows_Costs.Tag = Nothing
|
||||
Me.aCreateContractRows_Costs.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContractRows_Costs.TargetObjectType = GetType(Nuvolar.[Module].ImmovablesCostRecordEvents)
|
||||
Me.aCreateContractRows_Costs.TargetViewId = ""
|
||||
Me.aCreateContractRows_Costs.ToolTip = Nothing
|
||||
Me.aCreateContractRows_Costs.TypeOfView = Nothing
|
||||
'
|
||||
'aRemoveContractRows_Costs
|
||||
'
|
||||
Me.aRemoveContractRows_Costs.Caption = "aRemoveContractRows_Costs"
|
||||
Me.aRemoveContractRows_Costs.ConfirmationMessage = Nothing
|
||||
Me.aRemoveContractRows_Costs.Id = "aRemoveContractRows_Costs"
|
||||
Me.aRemoveContractRows_Costs.ImageName = Nothing
|
||||
Me.aRemoveContractRows_Costs.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aRemoveContractRows_Costs.Shortcut = Nothing
|
||||
Me.aRemoveContractRows_Costs.Tag = Nothing
|
||||
Me.aRemoveContractRows_Costs.TargetObjectsCriteria = Nothing
|
||||
Me.aRemoveContractRows_Costs.TargetObjectType = GetType(Nuvolar.[Module].ImmovablesCostRecordEvents)
|
||||
Me.aRemoveContractRows_Costs.TargetViewId = ""
|
||||
Me.aRemoveContractRows_Costs.ToolTip = Nothing
|
||||
Me.aRemoveContractRows_Costs.TypeOfView = Nothing
|
||||
'
|
||||
'aImportImmovables
|
||||
'
|
||||
Me.aImportImmovables.AcceptButtonCaption = Nothing
|
||||
Me.aImportImmovables.CancelButtonCaption = Nothing
|
||||
Me.aImportImmovables.Caption = "aImport Immovables"
|
||||
Me.aImportImmovables.ConfirmationMessage = Nothing
|
||||
Me.aImportImmovables.Id = "aImportImmovables"
|
||||
Me.aImportImmovables.ImageName = Nothing
|
||||
Me.aImportImmovables.Shortcut = Nothing
|
||||
Me.aImportImmovables.Tag = Nothing
|
||||
Me.aImportImmovables.TargetObjectsCriteria = Nothing
|
||||
Me.aImportImmovables.TargetObjectType = GetType(Nuvolar.[Module].ImmovablesCostRecordExcelImmovables)
|
||||
Me.aImportImmovables.TargetViewId = Nothing
|
||||
Me.aImportImmovables.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
|
||||
Me.aImportImmovables.ToolTip = Nothing
|
||||
Me.aImportImmovables.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
|
||||
'
|
||||
'aCreateContractRows_Costs_FromContract
|
||||
'
|
||||
Me.aCreateContractRows_Costs_FromContract.AcceptButtonCaption = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.CancelButtonCaption = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.Caption = "aCreateContractRows_Costs_FromContract"
|
||||
Me.aCreateContractRows_Costs_FromContract.ConfirmationMessage = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.Id = "aCreateContractRows_Costs_FromContract"
|
||||
Me.aCreateContractRows_Costs_FromContract.ImageName = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCreateContractRows_Costs_FromContract.Shortcut = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.Tag = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.TargetObjectType = GetType(Nuvolar.[Module].ImmovablesCostRecordEvents)
|
||||
Me.aCreateContractRows_Costs_FromContract.TargetViewId = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.ToolTip = Nothing
|
||||
Me.aCreateContractRows_Costs_FromContract.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aCreateContractRows_Costs As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aRemoveContractRows_Costs As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aImportImmovables As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateContractRows_Costs_FromContract As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+135
@@ -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="aCreateContractRows_Costs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aRemoveContractRows_Costs.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aImportImmovables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>432, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aCreateContractRows_Costs_FromContract.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>434, 93</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+375
@@ -0,0 +1,375 @@
|
||||
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.CloneObject
|
||||
Imports DevExpress.ExpressApp.SystemModule
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp.Editors
|
||||
|
||||
Public Class ImmovablesCostRecordExcelVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
Frame.GetController(Of ImmovablesCostRecordExcelVC).aCreateContractRows_Costs.Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ImmovablesCostRecordExcelVC).aRemoveContractRows_Costs.Active.SetItemValue("", False)
|
||||
|
||||
If View.Id = "ImmovablesCostRecordEvents_ListView" Then
|
||||
Frame.GetController(Of ImmovablesCostRecordExcelVC).aCreateContractRows_Costs.Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ImmovablesCostRecordExcelVC).aRemoveContractRows_Costs.Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelImmovables_ListView" Then
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", False)
|
||||
Frame.GetController(Of LinkUnlinkController).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 = "ImmovablesCostRecordExcel_ListView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_DetailView" Then
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
If View.Id = "ImmovablesCostRecordExcel_ImmovablesCostRecordExcelMainGroup_ListView" Then
|
||||
Frame.GetController(Of ModificationsController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of DeleteObjectsViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of LinkUnlinkController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of NewObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of CloneObjectViewController).Active.SetItemValue("", True)
|
||||
Frame.GetController(Of ListViewProcessCurrentObjectController).Active.SetItemValue("", True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateContractRows_Costs_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aCreateContractRows_Costs.Execute
|
||||
'// Szerzõdési sor ImmovablesCostRecordEvents-bõl
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
|
||||
Dim _ContractRows_Collection As XPCollection(Of ContractRows)
|
||||
Dim _ContractRows_New As ContractRows
|
||||
|
||||
For Each _ImmovablesCostRecordEvents In View.SelectedObjects
|
||||
If _ImmovablesCostRecordEvents.ContractRows Is Nothing Then
|
||||
|
||||
_ContractRows_Collection = New XPCollection(Of ContractRows)(_ocur.Session, _
|
||||
CriteriaOperator.Parse("Controlling=? and UniqueObjects=? and Contracts.State in ('Ready','Signed')", _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling, _
|
||||
_ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects))
|
||||
_ContractRows_Collection.Sorting.Add(New SortProperty("DateExecution", DB.SortingDirection.Descending))
|
||||
|
||||
'Dim _ContractRows As ContractRows = _ocur.FindObject(Of ContractRows)(CriteriaOperator.Parse("Controlling=? and UniqueObjects=? and CostHolder=?", _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling, _
|
||||
' _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects, _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder))
|
||||
If _ContractRows_Collection.Count > 0 Then
|
||||
|
||||
|
||||
_ContractRows_New = _ocur.CreateObject(Of ContractRows)()
|
||||
_ContractRows_New.Contracts = _ContractRows_Collection(0).Contracts
|
||||
_ContractRows_New.ContractRowsType = _ContractRows_Collection(0).ContractRowsType
|
||||
_ContractRows_New.Controlling = _ContractRows_Collection(0).Controlling
|
||||
_ContractRows_New.CostHolder = _ContractRows_Collection(0).CostHolder
|
||||
_ContractRows_New.CostPlace = _ContractRows_Collection(0).CostPlace
|
||||
_ContractRows_New.CurrencyName = _ContractRows_Collection(0).CurrencyName
|
||||
_ContractRows_New.CurrencyRate = _ContractRows_Collection(0).CurrencyRate
|
||||
_ContractRows_New.DateExecution = _ImmovablesCostRecordEvents.ReadDate
|
||||
_ContractRows_New.Description = _ImmovablesCostRecordEvents.Description_ContractRows
|
||||
_ContractRows_New.MileStone = _ContractRows_Collection(0).MileStone
|
||||
_ContractRows_New.NettoPriceDEV = 0
|
||||
_ContractRows_New.NettoPriceHUF = _ImmovablesCostRecordEvents.ReadedValueSumPrice
|
||||
_ContractRows_New.PaymentOption = _ContractRows_Collection(0).PaymentOption
|
||||
_ContractRows_New.QTT = _ContractRows_Collection(0).QTT
|
||||
_ContractRows_New.QualityOption = _ContractRows_Collection(0).QualityOption
|
||||
_ContractRows_New.ShipmentOption = _ContractRows_Collection(0).ShipmentOption
|
||||
_ContractRows_New.ShortName = _ContractRows_Collection(0).ShortName
|
||||
_ContractRows_New.UniqueObjects = _ContractRows_Collection(0).UniqueObjects
|
||||
_ContractRows_New.Units = _ContractRows_Collection(0).Units
|
||||
_ContractRows_New.VAT = _ContractRows_Collection(0).VAT
|
||||
_ContractRows_New.JobNumberObjects = _ContractRows_Collection(0).JobNumberObjects
|
||||
_ContractRows_New.InvoicePeriod = _ImmovablesCostRecordEvents.InvoicePeriod
|
||||
|
||||
_ContractRows_New.ImmovablesCostRecordEvents = _ImmovablesCostRecordEvents
|
||||
|
||||
_ImmovablesCostRecordEvents.ContractRows = _ContractRows_New
|
||||
_ImmovablesCostRecordEvents.Save()
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
View.Refresh()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aRemoveContractRows_Costs_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.SimpleActionExecuteEventArgs) Handles aRemoveContractRows_Costs.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents
|
||||
|
||||
For Each _ImmovablesCostRecordEvents In View.SelectedObjects
|
||||
If _ImmovablesCostRecordEvents.ContractRows IsNot Nothing Then
|
||||
If _ImmovablesCostRecordEvents.ContractRows.InvoiceRows Is Nothing Then
|
||||
_ImmovablesCostRecordEvents.ContractRows.ImmovablesCostRecordEvents = Nothing
|
||||
_ImmovablesCostRecordEvents.ContractRows.Save()
|
||||
_ImmovablesCostRecordEvents.ContractRows = Nothing
|
||||
_ImmovablesCostRecordEvents.Save()
|
||||
_ocur.CommitChanges()
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub aImportImmovables_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImportImmovables.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ImmovablesPriceListHeader As ImmovablesPriceListHeader
|
||||
Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA
|
||||
Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG
|
||||
Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO
|
||||
Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC
|
||||
|
||||
|
||||
Dim _Apartments_Collection As New XPCollection(Of Apartments)(_onew.Session)
|
||||
Dim _Apartments As Apartments
|
||||
|
||||
Dim _Garages_Collection As New XPCollection(Of Garages)(_onew.Session)
|
||||
Dim _Garages As Garages
|
||||
|
||||
Dim _Container_Collection As New XPCollection(Of Container)(_onew.Session)
|
||||
Dim _Container As Container
|
||||
|
||||
Dim _Offices_Collection As New XPCollection(Of Offices)(_onew.Session)
|
||||
Dim _Offices As Offices
|
||||
|
||||
_ImmovablesPriceListHeader = _onew.CreateObject(Of ImmovablesPriceListHeader)()
|
||||
For Each _Apartments In _Apartments_Collection
|
||||
_ImmovablesPriceListRowsA = _onew.CreateObject(Of ImmovablesPriceListRowsA)()
|
||||
_ImmovablesPriceListRowsA.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsA.Apartments = _Apartments
|
||||
_ImmovablesPriceListHeader.ImmovablesPriceListRowsA.Add(_ImmovablesPriceListRowsA)
|
||||
Next
|
||||
|
||||
For Each _Garages In _Garages_Collection
|
||||
_ImmovablesPriceListRowsG = _onew.CreateObject(Of ImmovablesPriceListRowsG)()
|
||||
_ImmovablesPriceListRowsG.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsG.Garages = _Garages
|
||||
_ImmovablesPriceListHeader.ImmovablesPriceListRowsG.Add(_ImmovablesPriceListRowsG)
|
||||
Next
|
||||
|
||||
For Each _Offices In _Offices_Collection
|
||||
_ImmovablesPriceListRowsO = _onew.CreateObject(Of ImmovablesPriceListRowsO)()
|
||||
_ImmovablesPriceListRowsO.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsO.Offices = _Offices
|
||||
_ImmovablesPriceListHeader.ImmovablesPriceListRowsO.Add(_ImmovablesPriceListRowsO)
|
||||
Next
|
||||
|
||||
For Each _Container In _Container_Collection
|
||||
_ImmovablesPriceListRowsC = _onew.CreateObject(Of ImmovablesPriceListRowsC)()
|
||||
_ImmovablesPriceListRowsC.ImmovablesPriceListHeader = _ImmovablesPriceListHeader
|
||||
_ImmovablesPriceListRowsC.Container = _Container
|
||||
_ImmovablesPriceListHeader.ImmovablesPriceListRowsC.Add(_ImmovablesPriceListRowsC)
|
||||
Next
|
||||
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "ImmovablesPriceListHeader_DetailView_Finder", False, _ImmovablesPriceListHeader)
|
||||
End Sub
|
||||
|
||||
Private Sub aImportImmovables_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImportImmovables.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ImmovablesCostRecordExcel As ImmovablesCostRecordExcel = TryCast(TryCast(TryCast(View, ListView).CollectionSource, PropertyCollectionSource).MasterObject, ImmovablesCostRecordExcel)
|
||||
Dim _ImmovablesCostRecordExcelImmovables As ImmovablesCostRecordExcelImmovables
|
||||
Dim _DetailView As DetailView = TryCast(e.PopupWindow.View, DetailView)
|
||||
Dim _ListView As ListView = Nothing
|
||||
Dim _ListPropertyEditor As ListPropertyEditor
|
||||
|
||||
Dim _ImmovablesPriceListRowsA As ImmovablesPriceListRowsA
|
||||
Dim _ImmovablesPriceListRowsG As ImmovablesPriceListRowsG
|
||||
Dim _ImmovablesPriceListRowsO As ImmovablesPriceListRowsO
|
||||
Dim _ImmovablesPriceListRowsC As ImmovablesPriceListRowsC
|
||||
|
||||
If _ImmovablesCostRecordExcel IsNot Nothing Then
|
||||
If _DetailView IsNot Nothing Then
|
||||
_ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsA")
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
_ListView = TryCast(_ListPropertyEditor.ListView, ListView)
|
||||
If _ListView IsNot Nothing Then
|
||||
For Each _ImmovablesPriceListRowsA In _ListView.SelectedObjects
|
||||
_ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
|
||||
_ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
|
||||
_ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsA.Apartments.Oid), Immovables)
|
||||
_ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
_ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsG")
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
_ListView = TryCast(_ListPropertyEditor.ListView, ListView)
|
||||
If _ListView IsNot Nothing Then
|
||||
For Each _ImmovablesPriceListRowsG In _ListView.SelectedObjects
|
||||
_ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
|
||||
_ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
|
||||
_ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsG.Garages.Oid), Immovables)
|
||||
_ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
_ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsO")
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
_ListView = TryCast(_ListPropertyEditor.ListView, ListView)
|
||||
If _ListView IsNot Nothing Then
|
||||
For Each _ImmovablesPriceListRowsO In _ListView.SelectedObjects
|
||||
_ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
|
||||
_ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
|
||||
_ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsO.Offices.Oid), Immovables)
|
||||
_ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
_ListPropertyEditor = _DetailView.FindItem("ImmovablesPriceListRowsC")
|
||||
If _ListPropertyEditor IsNot Nothing Then
|
||||
_ListView = TryCast(_ListPropertyEditor.ListView, ListView)
|
||||
If _ListView IsNot Nothing Then
|
||||
For Each _ImmovablesPriceListRowsC In _ListView.SelectedObjects
|
||||
_ImmovablesCostRecordExcelImmovables = _ocur.CreateObject(Of ImmovablesCostRecordExcelImmovables)()
|
||||
_ImmovablesCostRecordExcelImmovables.ImmovablesCostRecordExcel = _ImmovablesCostRecordExcel
|
||||
_ImmovablesCostRecordExcelImmovables.Immovables = TryCast(_ocur.GetObjectByKey(Of Immovables)(_ImmovablesPriceListRowsC.Container.Oid), Immovables)
|
||||
_ImmovablesCostRecordExcel.ImmovablesCostRecordExcelImmovables.Add(_ImmovablesCostRecordExcelImmovables)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
e.PopupWindow.View.ObjectSpace.Rollback()
|
||||
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateContractRows_Costs_FromContract_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aCreateContractRows_Costs_FromContract.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ImmovablesCostRecordContactRow As ImmovablesCostRecordContactRow
|
||||
Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents = TryCast(View.SelectedObjects(0), ImmovablesCostRecordEvents)
|
||||
|
||||
If _ImmovablesCostRecordEvents IsNot Nothing Then
|
||||
If _ImmovablesCostRecordEvents.ImmovablesCostRecord IsNot Nothing Then
|
||||
If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup IsNot Nothing Then
|
||||
|
||||
_ImmovablesCostRecordContactRow = _onew.CreateObject(Of ImmovablesCostRecordContactRow)()
|
||||
|
||||
If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling IsNot Nothing Then
|
||||
_ImmovablesCostRecordContactRow.Controlling = _onew.GetObjectByKey(Of Controlling)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.Controlling.Oid)
|
||||
End If
|
||||
If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder IsNot Nothing Then
|
||||
_ImmovablesCostRecordContactRow.CostHolder = _onew.GetObjectByKey(Of CostHolder)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostHolder.Oid)
|
||||
End If
|
||||
If _ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostPlace IsNot Nothing Then
|
||||
_ImmovablesCostRecordContactRow.CostPlace = _onew.GetObjectByKey(Of CostPlace)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.ImmovablesCostRecordGroup.CostPlace.Oid)
|
||||
End If
|
||||
|
||||
If _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects IsNot Nothing Then
|
||||
_ImmovablesCostRecordContactRow.UniqueObjects = _onew.GetObjectByKey(Of UniqueObjects)(_ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects.Oid)
|
||||
End If
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "ImmovablesCostRecordContactRow_DetailView", True, _ImmovablesCostRecordContactRow)
|
||||
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aCreateContractRows_Costs_FromContract_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aCreateContractRows_Costs_FromContract.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ImmovablesCostRecordContactRow As ImmovablesCostRecordContactRow = TryCast(e.PopupWindow.View.CurrentObject, ImmovablesCostRecordContactRow)
|
||||
Dim _ImmovablesCostRecordEvents As ImmovablesCostRecordEvents = View.SelectedObjects(0)
|
||||
Dim _ContractRows_New As ContractRows
|
||||
Dim _CurrencyName As CurrencyName = _ocur.FindObject(Of CurrencyName)(CriteriaOperator.Parse("ShortName='HUF'"))
|
||||
Dim _Units As Units = _ocur.FindObject(Of Units)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
|
||||
Dim _VAT As VAT = _ocur.FindObject(Of VAT)(CriteriaOperator.Parse("DefaultForBusinnes=True"))
|
||||
|
||||
Dim _Contracts_ListEditor As ListPropertyEditor = TryCast(e.PopupWindow.View, DetailView).FindItem("Contracts")
|
||||
If _Contracts_ListEditor.ListView.SelectedObjects.Count > 0 Then
|
||||
If _Contracts_ListEditor.ListView.SelectedObjects(0) IsNot Nothing Then
|
||||
Dim _Contracts As Contracts = _ocur.GetObjectByKey(Of Contracts)(TryCast(_Contracts_ListEditor.ListView.SelectedObjects(0), Contracts).Oid)
|
||||
|
||||
_ContractRows_New = _ocur.CreateObject(Of ContractRows)()
|
||||
_ContractRows_New.Contracts = _Contracts
|
||||
_ContractRows_New.ContractRowsType = eContractRowsType.eFix
|
||||
If _ImmovablesCostRecordContactRow.Controlling IsNot Nothing Then
|
||||
_ContractRows_New.Controlling = _ocur.GetObjectByKey(Of Controlling)(_ImmovablesCostRecordContactRow.Controlling.Oid)
|
||||
End If
|
||||
If _ImmovablesCostRecordContactRow.CostHolder IsNot Nothing Then
|
||||
_ContractRows_New.CostHolder = _ocur.GetObjectByKey(Of CostHolder)(_ImmovablesCostRecordContactRow.CostHolder.Oid)
|
||||
End If
|
||||
If _ImmovablesCostRecordContactRow.CostPlace IsNot Nothing Then
|
||||
_ContractRows_New.CostPlace = _ocur.GetObjectByKey(Of CostPlace)(_ImmovablesCostRecordContactRow.CostPlace.Oid)
|
||||
End If
|
||||
If _ImmovablesCostRecordContactRow.JobNumberObjects IsNot Nothing Then
|
||||
_ContractRows_New.JobNumberObjects = _ocur.GetObjectByKey(Of JobNumberObjects)(_ImmovablesCostRecordContactRow.JobNumberObjects.Oid)
|
||||
End If
|
||||
If _ImmovablesCostRecordContactRow.PaymentOption IsNot Nothing Then
|
||||
_ContractRows_New.PaymentOption = _ocur.GetObjectByKey(Of PaymentOption)(_ImmovablesCostRecordContactRow.PaymentOption.Oid)
|
||||
End If
|
||||
_ContractRows_New.CurrencyName = _CurrencyName
|
||||
_ContractRows_New.CurrencyRate = 1
|
||||
_ContractRows_New.DateExecution = _ImmovablesCostRecordEvents.ReadDate
|
||||
_ContractRows_New.NettoPriceDEV = 0
|
||||
_ContractRows_New.NettoPriceHUF = _ImmovablesCostRecordEvents.ReadedValueSumPrice
|
||||
_ContractRows_New.QTT = 1
|
||||
_ContractRows_New.ShortName = _ImmovablesCostRecordContactRow.ShortName
|
||||
_ContractRows_New.UniqueObjects = _ImmovablesCostRecordEvents.ImmovablesCostRecord.Immovables.UniqueObjects
|
||||
_ContractRows_New.Units = _Units
|
||||
_ContractRows_New.VAT = _VAT
|
||||
_ContractRows_New.InvoicePeriod = _ImmovablesCostRecordContactRow.InvoicePeriod
|
||||
|
||||
_ContractRows_New.ImmovablesCostRecordEvents = _ImmovablesCostRecordEvents
|
||||
|
||||
_ImmovablesCostRecordEvents.ContractRows = _ContractRows_New
|
||||
_ImmovablesCostRecordEvents.Save()
|
||||
_ocur.CommitChanges()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
+147
@@ -0,0 +1,147 @@
|
||||
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 eCostRecordMode
|
||||
eNormal = 0 'Mérés alapján (elõzõ és aktuálsi)
|
||||
eQuarter = 1 'Állandó szám m2 alapon
|
||||
End Enum
|
||||
Public Enum eCostRecordBaseMode
|
||||
eFix = 0 'Fix díjas
|
||||
eCosuption = 1 'Fogyasztás
|
||||
End Enum
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
<CreatableItem(False)> _
|
||||
Public Class ImmovablesCostRecordGroup
|
||||
Inherits BaseObject
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
' Place here your initialization code.
|
||||
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
|
||||
|
||||
Private _ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Private _eCostRecordMode As eCostRecordMode
|
||||
Private _CostRecordBaseMode As eCostRecordBaseMode
|
||||
|
||||
Private _CostPlace As CostPlace
|
||||
Private _CostHolder As CostHolder
|
||||
Private _Controlling As Controlling
|
||||
|
||||
Private _ObjectCreated As Date
|
||||
Private _UserCreated As User
|
||||
Private _DecimalPlace As Integer = 2
|
||||
|
||||
<Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordGroup", GetType(ImmovablesCostRecordMainGroup))> _
|
||||
Property ImmovablesCostRecordMainGroup As ImmovablesCostRecordMainGroup
|
||||
Get
|
||||
Return _ImmovablesCostRecordMainGroup
|
||||
End Get
|
||||
Set(value As ImmovablesCostRecordMainGroup)
|
||||
SetPropertyValue("ImmovablesCostRecordMainGroup", _ImmovablesCostRecordMainGroup, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
Property eCostRecordMode As eCostRecordMode
|
||||
Get
|
||||
Return _eCostRecordMode
|
||||
End Get
|
||||
Set(value As eCostRecordMode)
|
||||
SetPropertyValue("eCostRecordMode", _eCostRecordMode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostRecordBaseMode As eCostRecordBaseMode
|
||||
Get
|
||||
Return _CostRecordBaseMode
|
||||
End Get
|
||||
Set(value As eCostRecordBaseMode)
|
||||
SetPropertyValue("CostRecordBaseMode", _CostRecordBaseMode, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPlace As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(value As CostPlace)
|
||||
SetPropertyValue("CostPlace", _CostPlace, 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 Controlling As Controlling
|
||||
Get
|
||||
Return _Controlling
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling", _Controlling, 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 DecimalPlace As Integer
|
||||
Get
|
||||
Return _DecimalPlace
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
SetPropertyValue("DecimalPlace", _DecimalPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
|
||||
+42
@@ -0,0 +1,42 @@
|
||||
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 ImmovablesCostRecordMainGroup
|
||||
Inherits BaseObject
|
||||
|
||||
Private _GroupName As String
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property GroupName As String
|
||||
Get
|
||||
Return _GroupName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("GroupName", _GroupName, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'------------------ReadOnly-----------------------
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesCostRecordMainGroup-ImmovablesCostRecordGroup", GetType(ImmovablesCostRecordGroup))> _
|
||||
ReadOnly Property ImmovablesCostRecordGroup As XPCollection(Of ImmovablesCostRecordGroup)
|
||||
Get
|
||||
Return GetCollection(Of ImmovablesCostRecordGroup)("ImmovablesCostRecordGroup")
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
+56
@@ -0,0 +1,56 @@
|
||||
Partial Class ImmovablesCostRecordVC
|
||||
|
||||
<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.aDescription_Change_ImmovablesCostRecord = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aDescription_Change_ImmovablesCostRecord
|
||||
'
|
||||
Me.aDescription_Change_ImmovablesCostRecord.AcceptButtonCaption = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.CancelButtonCaption = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.Caption = "aDescription_Change_ImmovablesCostRecord"
|
||||
Me.aDescription_Change_ImmovablesCostRecord.ConfirmationMessage = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.Id = "aDescription_Change_ImmovablesCostRecord"
|
||||
Me.aDescription_Change_ImmovablesCostRecord.ImageName = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aDescription_Change_ImmovablesCostRecord.Shortcut = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.Tag = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.TargetObjectsCriteria = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.TargetObjectType = GetType(Nuvolar.[Module].ImmovablesCostRecord)
|
||||
Me.aDescription_Change_ImmovablesCostRecord.TargetViewId = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.ToolTip = Nothing
|
||||
Me.aDescription_Change_ImmovablesCostRecord.TypeOfView = Nothing
|
||||
'
|
||||
'ImmovablesCostRecordVC
|
||||
'
|
||||
Me.TargetObjectType = GetType(Nuvolar.[Module].ImmovablesCostRecord)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aDescription_Change_ImmovablesCostRecord As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+126
@@ -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="aDescription_Change_ImmovablesCostRecord.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>
|
||||
+70
@@ -0,0 +1,70 @@
|
||||
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
|
||||
|
||||
Public Class ImmovablesCostRecordVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
Protected selection As ArrayList
|
||||
Protected noselect As Boolean = False
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
selection = New ArrayList()
|
||||
Me.TargetObjectType = GetType(Nuvolar.Module.ImmovablesCostRecord)
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
|
||||
AddHandler View.SelectionChanged, AddressOf view_SelectionChanged
|
||||
|
||||
End Sub
|
||||
Private Sub aDescription_Change_ImmovablesCostRecord_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aDescription_Change_ImmovablesCostRecord.CustomizePopupWindowParams
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _ImmovablesCostRecord As ImmovablesCostRecord = TryCast(View.SelectedObjects(0), ImmovablesCostRecord)
|
||||
Dim _ImmovablesCostRecordDescriptionPopup As ImmovablesCostRecordDescriptionPopup = _onew.CreateObject(Of ImmovablesCostRecordDescriptionPopup)()
|
||||
|
||||
_ImmovablesCostRecordDescriptionPopup.Description = _ImmovablesCostRecord.Description_ContactRows
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "ImmovablesCostRecordDescriptionPopup_DetailView", False, _ImmovablesCostRecordDescriptionPopup)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub aDescription_Change_ImmovablesCostRecord_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aDescription_Change_ImmovablesCostRecord.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _ImmovablesCostRecordDescriptionPopup As ImmovablesCostRecordDescriptionPopup = TryCast(e.PopupWindow.View.SelectedObjects(0), ImmovablesCostRecordDescriptionPopup)
|
||||
Dim _ImmovablesCostRecord As ImmovablesCostRecord
|
||||
|
||||
For Each _ImmovablesCostRecord In selection
|
||||
_ImmovablesCostRecord.Description_ContactRows = _ImmovablesCostRecordDescriptionPopup.Description
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
|
||||
Frame.GetController(Of RefreshController).RefreshAction.DoExecute()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub view_SelectionChanged(sender As Object, e As EventArgs)
|
||||
Dim _ImmovablesCostRecord As ImmovablesCostRecord
|
||||
If View Is Nothing Then Exit Sub
|
||||
If noselect = False Then
|
||||
selection.Clear()
|
||||
For Each _ImmovablesCostRecord In View.SelectedObjects
|
||||
selection.Add(_ImmovablesCostRecord)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
+48
@@ -0,0 +1,48 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class DocumentAttachments
|
||||
Inherits FileAttachmentBase
|
||||
Private _DocumentAttachmentsType As DocumentAttachmentsType
|
||||
Private _Immovables As Immovables
|
||||
Private _ImmovablesGroups As ImmovablesGroups
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property DocumentAttachementType() As DocumentAttachmentsType
|
||||
Get
|
||||
Return _DocumentAttachmentsType
|
||||
End Get
|
||||
Set(ByVal value As DocumentAttachmentsType)
|
||||
SetPropertyValue("DocumentAttachmentsType", _DocumentAttachmentsType, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("Immovables-DocumentAttachments", GetType(Immovables))> _
|
||||
Property Immovables() As Immovables
|
||||
Get
|
||||
Return _Immovables
|
||||
End Get
|
||||
Set(ByVal value As Immovables)
|
||||
SetPropertyValue("Immovables", _Immovables, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesGroups-DocumentAttachments", GetType(ImmovablesGroups))> _
|
||||
Property ImmovablesGroups() As ImmovablesGroups
|
||||
Get
|
||||
Return _ImmovablesGroups
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesGroups)
|
||||
SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class ' Csatolt dokumentumok
|
||||
+37
@@ -0,0 +1,37 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class DocumentAttachmentsType
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class ' Csatolt dokumentum tipusok
|
||||
@@ -0,0 +1,57 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.ExpressApp
|
||||
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
Imports DevExpress.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
Public Enum eWindowDirection
|
||||
NotSet = -1
|
||||
ToStreet = 0
|
||||
ToCourtyard = 1
|
||||
End Enum
|
||||
Public Enum eIDirection
|
||||
NotSet = -1
|
||||
North = 0
|
||||
East = 1
|
||||
South = 2
|
||||
West = 3
|
||||
NorthEast = 4
|
||||
SouthEast = 5
|
||||
SouthWest = 6
|
||||
NorthWest = 7
|
||||
End Enum
|
||||
Public Enum eRoomCount
|
||||
eNone = 0
|
||||
eHalf = 1
|
||||
eNormal = 2
|
||||
End Enum
|
||||
Public Enum eImmovablesTypes
|
||||
eApartment = 0
|
||||
eOffice = 1
|
||||
eContainer = 2
|
||||
eGarage = 3
|
||||
eStudentHostel = 4
|
||||
End Enum
|
||||
Public Enum eImmovableSoldState
|
||||
eFree = 0 'Szabad
|
||||
eAdvanceMoney = 1 'Opciós foglalás
|
||||
eMemorandum = 2 'Szándéknyilatkozat
|
||||
ePreliminary = 3 'Előszerződés
|
||||
eSold = 4 ' Eladva, végszerződés aláírva
|
||||
ePossession = 5 'Birtokbaadva
|
||||
eOutOfOrder = 6 'Nem értékesíthető
|
||||
End Enum
|
||||
Public Enum eImmovablesRentState
|
||||
eFree = 0 'Szabad bérelhető
|
||||
eAdvancedMoney = 1 'Opciós foglalva
|
||||
eLease = 2 'Bérleti szerződés alatt
|
||||
eRentPassing = 3 'Bérbeadva
|
||||
eLeaseBack = 4 'Bérbeadásból visszavonás alatt
|
||||
eOutOfOrder = 5 'Nem adható bérbe
|
||||
End Enum
|
||||
|
||||
Generated
+90
@@ -0,0 +1,90 @@
|
||||
Partial Class EstateVC
|
||||
|
||||
<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.aImmovables_ContractRows_Info = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aImmovables_InvoiceRows_Info = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
Me.aImmovables_ChangeGroup = New DevExpress.ExpressApp.Actions.PopupWindowShowAction(Me.components)
|
||||
'
|
||||
'aImmovables_ContractRows_Info
|
||||
'
|
||||
Me.aImmovables_ContractRows_Info.AcceptButtonCaption = Nothing
|
||||
Me.aImmovables_ContractRows_Info.CancelButtonCaption = Nothing
|
||||
Me.aImmovables_ContractRows_Info.Caption = "aImmovables_ContractRows_Info"
|
||||
Me.aImmovables_ContractRows_Info.ConfirmationMessage = Nothing
|
||||
Me.aImmovables_ContractRows_Info.Id = "aImmovables_ContractRows_Info"
|
||||
Me.aImmovables_ContractRows_Info.ImageName = Nothing
|
||||
Me.aImmovables_ContractRows_Info.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aImmovables_ContractRows_Info.Shortcut = Nothing
|
||||
Me.aImmovables_ContractRows_Info.Tag = Nothing
|
||||
Me.aImmovables_ContractRows_Info.TargetObjectsCriteria = Nothing
|
||||
Me.aImmovables_ContractRows_Info.TargetObjectType = GetType(Nuvolar.[Module].Immovables)
|
||||
Me.aImmovables_ContractRows_Info.TargetViewId = Nothing
|
||||
Me.aImmovables_ContractRows_Info.ToolTip = Nothing
|
||||
Me.aImmovables_ContractRows_Info.TypeOfView = Nothing
|
||||
'
|
||||
'aImmovables_InvoiceRows_Info
|
||||
'
|
||||
Me.aImmovables_InvoiceRows_Info.AcceptButtonCaption = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.CancelButtonCaption = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.Caption = "aImmovables_InvoiceRows_Info"
|
||||
Me.aImmovables_InvoiceRows_Info.ConfirmationMessage = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.Id = "aImmovables_InvoiceRows_Info"
|
||||
Me.aImmovables_InvoiceRows_Info.ImageName = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aImmovables_InvoiceRows_Info.Shortcut = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.Tag = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.TargetObjectsCriteria = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.TargetObjectType = GetType(Nuvolar.[Module].Immovables)
|
||||
Me.aImmovables_InvoiceRows_Info.TargetViewId = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.ToolTip = Nothing
|
||||
Me.aImmovables_InvoiceRows_Info.TypeOfView = Nothing
|
||||
'
|
||||
'aImmovables_ChangeGroup
|
||||
'
|
||||
Me.aImmovables_ChangeGroup.AcceptButtonCaption = Nothing
|
||||
Me.aImmovables_ChangeGroup.CancelButtonCaption = Nothing
|
||||
Me.aImmovables_ChangeGroup.Caption = "aImmovables_ChangeGroup"
|
||||
Me.aImmovables_ChangeGroup.ConfirmationMessage = Nothing
|
||||
Me.aImmovables_ChangeGroup.Id = "aImmovables_ChangeGroup"
|
||||
Me.aImmovables_ChangeGroup.ImageName = Nothing
|
||||
Me.aImmovables_ChangeGroup.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
|
||||
Me.aImmovables_ChangeGroup.Shortcut = Nothing
|
||||
Me.aImmovables_ChangeGroup.Tag = Nothing
|
||||
Me.aImmovables_ChangeGroup.TargetObjectsCriteria = Nothing
|
||||
Me.aImmovables_ChangeGroup.TargetObjectType = GetType(Nuvolar.[Module].Immovables)
|
||||
Me.aImmovables_ChangeGroup.TargetViewId = Nothing
|
||||
Me.aImmovables_ChangeGroup.ToolTip = Nothing
|
||||
Me.aImmovables_ChangeGroup.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aImmovables_ContractRows_Info As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aImmovables_InvoiceRows_Info As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aImmovables_ChangeGroup As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+132
@@ -0,0 +1,132 @@
|
||||
<?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="aImmovables_ContractRows_Info.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</value>
|
||||
</metadata>
|
||||
<metadata name="aImmovables_InvoiceRows_Info.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</metadata>
|
||||
<metadata name="aImmovables_ChangeGroup.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>473, 56</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
</root>
|
||||
+152
@@ -0,0 +1,152 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Public Class EstateVC
|
||||
Inherits DevExpress.ExpressApp.ViewController
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Component Designer.
|
||||
InitializeComponent()
|
||||
RegisterActions(components)
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnActivated()
|
||||
MyBase.OnActivated()
|
||||
If View.Id = "Immovables_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", False)
|
||||
End If
|
||||
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
|
||||
AddHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
If View.Id = "Immovables_ListView" Then
|
||||
Frame.GetController(Of DevExpress.ExpressApp.SystemModule.NewObjectViewController).Active.SetItemValue("", True)
|
||||
End If
|
||||
If View.Id = "Immovables_ChangeGroup_PopUp_DetailView" Then
|
||||
RemoveHandler Frame.GetController(Of DevExpress.ExpressApp.SystemModule.DialogController)().AcceptAction.Executing, AddressOf Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub aImmovables_ContractRows_Info_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_ContractRows_Info.CustomizePopupWindowParams
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Immovables As Immovables = TryCast(View.SelectedObjects(0), Immovables)
|
||||
If _Immovables Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(ContractRows))
|
||||
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
|
||||
_CollectionSource.Criteria("1") = CriteriaOperator.Parse("UniqueObjects.Oid=?", _Immovables.UniqueObjects.Oid)
|
||||
|
||||
_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("ContractRows_ListView_Immovables", _CollectionSource, True)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aImmovables_ContractRows_Info_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_ContractRows_Info.Execute
|
||||
Try
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aImmovables_InvoiceRows_Info_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_InvoiceRows_Info.CustomizePopupWindowParams
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Immovables As Immovables = TryCast(View.SelectedObjects(0), Immovables)
|
||||
If _Immovables Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
Dim _CollectionSource As CollectionSource = New CollectionSource(_onew, GetType(InvoiceRows))
|
||||
|
||||
_CollectionSource.BeginUpdateCriteria()
|
||||
_CollectionSource.Criteria("1") = CriteriaOperator.Parse("UniqueObjects.Oid=? OR ContractRows.UniqueObjects.Oid=?", _Immovables.UniqueObjects.Oid, _Immovables.UniqueObjects.Oid)
|
||||
_CollectionSource.EndUpdateCriteria()
|
||||
|
||||
e.View = Application.CreateListView("InvoiceRows_ListView_Immovables", _CollectionSource, True)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aImmovables_InvoiceRows_Info_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_InvoiceRows_Info.Execute
|
||||
Try
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aImmovables_ChangeGroup_CustomizePopupWindowParams(sender As Object, e As DevExpress.ExpressApp.Actions.CustomizePopupWindowParamsEventArgs) Handles aImmovables_ChangeGroup.CustomizePopupWindowParams
|
||||
Try
|
||||
Dim _onew As Xpo.XPObjectSpace = Application.CreateObjectSpace
|
||||
Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = _onew.CreateObject(Of Immovables_ChangeGroup_PopUp)()
|
||||
|
||||
e.View = Application.CreateDetailView(_onew, "Immovables_ChangeGroup_PopUp_DetailView", True, _Immovables_ChangeGroup_PopUp)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub aImmovables_ChangeGroup_Execute(sender As System.Object, e As DevExpress.ExpressApp.Actions.PopupWindowShowActionExecuteEventArgs) Handles aImmovables_ChangeGroup.Execute
|
||||
Try
|
||||
Dim _ocur As Xpo.XPObjectSpace = View.ObjectSpace
|
||||
Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = _ocur.GetObject(TryCast(e.PopupWindow.View.SelectedObjects(0), Immovables_ChangeGroup_PopUp))
|
||||
|
||||
If _Immovables_ChangeGroup_PopUp Is Nothing Then Throw New Exception("*Váratlan hiba történt, a folyamat megszakadt!")
|
||||
|
||||
For Each _Immovables As Immovables In View.SelectedObjects
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CanForRent Then
|
||||
_Immovables.CanForRent = _Immovables_ChangeGroup_PopUp.CanForRent
|
||||
End If
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CanforSale Then
|
||||
_Immovables.CanForSale = _Immovables_ChangeGroup_PopUp.CanForSale
|
||||
End If
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CustomersLessor Then
|
||||
_Immovables.CustomersLessor = _ocur.GetObjectByKey(Of Customers)(_Immovables_ChangeGroup_PopUp.CustomersLessor.Oid)
|
||||
End If
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CustomersOwner Then
|
||||
_Immovables.CustomersOwner = _ocur.GetObjectByKey(Of Customers)(_Immovables_ChangeGroup_PopUp.CustomersOwner.Oid)
|
||||
End If
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_ImmovableSoldState Then
|
||||
_Immovables.ImmovableSoldState = _Immovables_ChangeGroup_PopUp.ImmovableSoldState
|
||||
End If
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_ImmovablesRentState Then
|
||||
_Immovables.ImmovablesRentState = _Immovables_ChangeGroup_PopUp.ImmovablesRentState
|
||||
End If
|
||||
Next
|
||||
_ocur.CommitChanges()
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub Immovables_ChangeGroup_PopUp_DetailView_AcceptAction_Executing(sender As Object, e As CancelEventArgs)
|
||||
Try
|
||||
Dim _Immovables_ChangeGroup_PopUp As Immovables_ChangeGroup_PopUp = TryCast(View.SelectedObjects(0), Immovables_ChangeGroup_PopUp)
|
||||
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CanForRent Then Exit Sub
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CanforSale Then Exit Sub
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CustomersLessor Then Exit Sub
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_CustomersOwner Then Exit Sub
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_ImmovableSoldState Then Exit Sub
|
||||
If _Immovables_ChangeGroup_PopUp.IsChange_ImmovablesRentState Then Exit Sub
|
||||
|
||||
Throw New Exception("*Nincs beállítva egyetlen változtatás sem!")
|
||||
Catch ex As Exception
|
||||
e.Cancel = True
|
||||
MsgBox(ex.Message, MsgBoxStyle.OkOnly)
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,48 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class Floors
|
||||
Inherits BaseObject
|
||||
Private _ImmovablesGroups As ImmovablesGroups
|
||||
Private _ShortName As String
|
||||
Private _UniqueTag As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Floors-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesGroups-Floors", GetType(ImmovablesGroups))> _
|
||||
Property ImmovablesGroups() As ImmovablesGroups
|
||||
Get
|
||||
Return _ImmovablesGroups
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesGroups)
|
||||
SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class ' Emeletek
|
||||
+203
@@ -0,0 +1,203 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class Garages
|
||||
Inherits Immovables
|
||||
Private _Floor As Floors
|
||||
Private _GarageType As String
|
||||
Private _AreaNetto As Double
|
||||
Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
|
||||
Private _PriceBruttoHUF As Double 'Bruttó listaár számoltatni a nettó vételárból (HUF)
|
||||
Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
|
||||
Private _PriceBruttoDEV As Double
|
||||
Private _PriceNettoDEV As Double 'Nettó vételár
|
||||
Private _Note As String
|
||||
Private _UniqueTag As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.ImmovablesTypes = eImmovablesTypes.eGarage
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
If UniqueTag <> "*" Then Me.MakeUniqueObjects_Garages()
|
||||
End If
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
Protected Sub RecalculatePriceBrutto()
|
||||
PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
Property Floor() As Floors
|
||||
Get
|
||||
Return _Floor
|
||||
End Get
|
||||
Set(ByVal value As Floors)
|
||||
SetPropertyValue("Floor", _Floor, value)
|
||||
End Set
|
||||
End Property
|
||||
Property GarageType() As String
|
||||
Get
|
||||
Return _GarageType
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("GarageType", _GarageType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNetto() As Double
|
||||
Get
|
||||
Return _AreaNetto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNetto", _AreaNetto, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNettoForCostRecord As Double
|
||||
Get
|
||||
Return _AreaNettoForCostRecord
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoHUF() As Double
|
||||
Get
|
||||
Return _PriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property PriceNettoHUF As Double
|
||||
Get
|
||||
Return _PriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoDEV() As Double
|
||||
Get
|
||||
Return _PriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property PriceNettoDEV As Double
|
||||
Get
|
||||
Return _PriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("Garages-Container", GetType(Container))> _
|
||||
ReadOnly Property Container() As XPCollection(Of Container)
|
||||
Get
|
||||
Return GetCollection(Of Container)("Container")
|
||||
End Get
|
||||
End Property
|
||||
<RuleRequiredField("Garages-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Sub MakeUniqueObjects_Garages()
|
||||
Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
|
||||
Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
|
||||
Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
|
||||
Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
|
||||
Dim _Name_Garages As String : Dim _UniqueObjects_Garages As UniqueObjects
|
||||
|
||||
_Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
|
||||
_Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
|
||||
If _UniqueObjects_ImmovablesGroups Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups.Save()
|
||||
End If
|
||||
_UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
|
||||
If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
|
||||
_UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Floor = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag
|
||||
_Name_Floor_X = _Name_ImmovablesGroups & "-" & "-" & Me.Floor.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
|
||||
If _UniqueObjects_Floor Is Nothing Then
|
||||
_UniqueObjects_Floor = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor.Name = _Name_Floor
|
||||
_UniqueObjects_Floor.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_Floor.Save()
|
||||
End If
|
||||
_UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
|
||||
If _UniqueObjects_Floor_X Is Nothing Then
|
||||
_UniqueObjects_Floor_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor_X.Name = _Name_Floor_X
|
||||
_UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Floor_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Garages = Me.ImmovableGroups.UniqueTag & "-" & Me.Floor.UniqueTag & UniqueTag
|
||||
|
||||
_UniqueObjects_Garages = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Garages))
|
||||
If _UniqueObjects_Garages Is Nothing Then
|
||||
_UniqueObjects_Garages = New UniqueObjects(Session)
|
||||
_UniqueObjects_Garages.Name = _Name_Garages
|
||||
_UniqueObjects_Garages.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Garages.Save()
|
||||
Me.UniqueObjects = _UniqueObjects_Garages
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'-----NonPersistes-----
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUFRent As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUFRent As Double = 0
|
||||
End Class 'Garázsok
|
||||
+37
@@ -0,0 +1,37 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class ImmovableStatus
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _Description As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Description() As String
|
||||
Get
|
||||
Return _Description
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Description", _Description, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class 'Ingatlan státuszok
|
||||
+313
@@ -0,0 +1,313 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
<DefaultProperty("DisplayName")> _
|
||||
Public Class Immovables
|
||||
Inherits BaseObject
|
||||
Private _ImmovableGroups As ImmovablesGroups 'Ingatlan csoport
|
||||
Private _ImmovableSoldState As eImmovableSoldState 'Ingatlan eladható státusz
|
||||
Private _ImmovablesRentState As eImmovablesRentState 'Ingatlan bérelhető státusz
|
||||
Private _ImmovableTypes As eImmovablesTypes 'Ingatlan tipus
|
||||
Private _LotNumber As String 'Helyrajzi szám
|
||||
Private _Address As Address 'Cím
|
||||
Private _ImagePicture1 As Image '1. kép
|
||||
Private _ImagePicture2 As Image '2. kép
|
||||
Private _ImagePicture3 As Image '3. kép
|
||||
Private _CustomersOwner As Customers 'Tulajdonos.
|
||||
Private _CustomersLessor As Customers 'Bérbeadó
|
||||
Private _CanforSale As Boolean 'Eladható
|
||||
Private _CanForRent As Boolean 'Bérelhető
|
||||
Private _UniqueObjects As UniqueObjects 'Egyedi azonosító
|
||||
Private _PriceNettoHUFRent As Double 'Ingatlan bérleti dija / hó bruttó
|
||||
Private _PriceBruttoHUFRent As Double 'Ingatlan bérleti dija / hó nettó
|
||||
Private _PriceNettoDEVRent As Double 'Ingatlan bérleti dija / hó bruttó
|
||||
Private _PriceBruttoDEVRent As Double 'Ingatlan bérleti dija / hó nettó
|
||||
Private _PriceAreaNettoHUFRent As Double 'Netto négyzetméter /hó
|
||||
Private _PriceAreaBruttoHUFRent As Double 'Brutto négyzetméter /hó
|
||||
Private _PriceAreaNettoDEVRent As Double 'Netto bérleti négyzetméter ár
|
||||
Private _PriceAreaBruttoDEVRent As Double 'Brutto bérleti négyzetméter ár
|
||||
|
||||
Private _Ownership1 As String 'Tulajdoni hányadot jelölő tört szám pld 715/100.000
|
||||
Private _Ownership2 As String 'Tulajdoni hányadot jelölő tört szám pld 715/100.000
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Sub RecalculatePriceRent()
|
||||
|
||||
'Lakások esetében
|
||||
If TryCast(Me, Apartments) IsNot Nothing Then
|
||||
Dim _Immo As Apartments = TryCast(Me, Apartments)
|
||||
_Immo.PriceNettoHUFRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoHUFRent, 0, MidpointRounding.AwayFromZero)
|
||||
_Immo.PriceNettoDEVRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoDEVRent, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
|
||||
'Irodák esetében
|
||||
If TryCast(Me, Offices) IsNot Nothing Then
|
||||
Dim _Immo As Offices = TryCast(Me, Offices)
|
||||
_Immo.PriceNettoHUFRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoHUFRent, 0, MidpointRounding.AwayFromZero)
|
||||
_Immo.PriceNettoDEVRent = Math.Round(_Immo.AreaNettoForSale * _Immo.PriceAreaNettoDEVRent, 0, MidpointRounding.AwayFromZero)
|
||||
End If
|
||||
|
||||
Me.PriceAreaBruttoHUFRent = Math.Round(PriceAreaNettoHUFRent * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
Me.PriceAreaBruttoDEVRent = Math.Round(PriceAreaNettoDEVRent * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
|
||||
End Sub
|
||||
Private Sub RecalculatePriceBruttoRent()
|
||||
PriceBruttoHUFRent = Math.Round(PriceNettoHUFRent * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
PriceBruttoDEVRent = Math.Round(PriceNettoDEVRent * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
<VisibleInListView(False)> _
|
||||
<Association("Immovables-DocumentAttachments", GetType(DocumentAttachments))> _
|
||||
ReadOnly Property DocumentAttachments() As XPCollection(Of DocumentAttachments)
|
||||
Get
|
||||
Return GetCollection(Of DocumentAttachments)("DocumentAttachments")
|
||||
End Get
|
||||
End Property
|
||||
<RuleRequiredField("Immovables-ImmovableGroups", DefaultContexts.Save)> _
|
||||
Property ImmovableGroups() As ImmovablesGroups
|
||||
Get
|
||||
Return _ImmovableGroups
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesGroups)
|
||||
SetPropertyValue("ImmovableGroups", _ImmovableGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovableSoldState As eImmovableSoldState
|
||||
Get
|
||||
Return _ImmovableSoldState
|
||||
End Get
|
||||
Set(value As eImmovableSoldState)
|
||||
SetPropertyValue("ImmovableSoldState", _ImmovableSoldState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovablesRentState As eImmovablesRentState
|
||||
Get
|
||||
Return _ImmovablesRentState
|
||||
End Get
|
||||
Set(value As eImmovablesRentState)
|
||||
SetPropertyValue("ImmovablesRentState", _ImmovablesRentState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovablesTypes() As eImmovablesTypes
|
||||
Get
|
||||
Return _ImmovableTypes
|
||||
End Get
|
||||
Set(ByVal value As eImmovablesTypes)
|
||||
SetPropertyValue("ImmovablesTypes", _ImmovableTypes, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LotNumber() As String
|
||||
Get
|
||||
Return _LotNumber
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("LotNumber", _LotNumber, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Address() As Address
|
||||
Get
|
||||
Return _Address
|
||||
End Get
|
||||
Set(ByVal value As Address)
|
||||
SetPropertyValue("Address", _Address, value)
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
|
||||
<NonCloneable()> _
|
||||
Property ImagePicture1() As Image
|
||||
Get
|
||||
Return _ImagePicture1
|
||||
End Get
|
||||
Set(ByVal Value As System.Drawing.Image)
|
||||
If Value Is _ImagePicture1 Then Exit Property
|
||||
_ImagePicture1 = Value
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
|
||||
<NonCloneable()> _
|
||||
Property ImagePicture2() As Image
|
||||
Get
|
||||
Return _ImagePicture2
|
||||
End Get
|
||||
Set(ByVal Value As System.Drawing.Image)
|
||||
If Value Is _ImagePicture2 Then Exit Property
|
||||
_ImagePicture2 = Value
|
||||
End Set
|
||||
End Property
|
||||
<ValueConverter(GetType(DevExpress.Xpo.Metadata.ImageValueConverter))> _
|
||||
<NonCloneable()> _
|
||||
Property ImagePicture3() As Image
|
||||
Get
|
||||
Return _ImagePicture3
|
||||
End Get
|
||||
Set(ByVal Value As System.Drawing.Image)
|
||||
If Value Is _ImagePicture3 Then Exit Property
|
||||
_ImagePicture3 = Value
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersOwner() As Customers
|
||||
Get
|
||||
Return _CustomersOwner
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("CustomersOwner", _CustomersOwner, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersLessor() As Customers
|
||||
Get
|
||||
Return _CustomersLessor
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("CustomersLessor", _CustomersLessor, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property UniqueObjects() As UniqueObjects
|
||||
Get
|
||||
Return _UniqueObjects
|
||||
End Get
|
||||
Set(ByVal value As UniqueObjects)
|
||||
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property CanForSale As Boolean
|
||||
Get
|
||||
Return _CanforSale
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("CanForSale", _CanforSale, value)
|
||||
End Set
|
||||
End Property
|
||||
<NonCloneable()> _
|
||||
Property CanForRent As Boolean
|
||||
Get
|
||||
Return _CanForRent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("CanForRent", _CanForRent, value)
|
||||
End Set
|
||||
End Property
|
||||
ReadOnly Property DisplayName As String
|
||||
Get
|
||||
If _UniqueObjects IsNot Nothing Then
|
||||
Return _UniqueObjects.Name
|
||||
Else
|
||||
Return ""
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
Property PriceNettoHUFRent As Double
|
||||
Get
|
||||
Return _PriceNettoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceNettoHUFRent", _PriceNettoHUFRent, value)
|
||||
If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
|
||||
RecalculatePriceBruttoRent()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoHUFRent As Double
|
||||
Get
|
||||
Return _PriceBruttoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceBruttoHUFRent", _PriceBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceNettoDEVRent As Double
|
||||
Get
|
||||
Return _PriceNettoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceNettoDEVRent", _PriceNettoDEVRent, value)
|
||||
If Not Session.IsObjectsSaving And Not Session.IsObjectsLoading Then
|
||||
RecalculatePriceBruttoRent()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoDEVRent As Double
|
||||
Get
|
||||
Return _PriceBruttoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceBruttoDEVRent", _PriceBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceAreaNettoHUFRent As Double
|
||||
Get
|
||||
Return _PriceAreaNettoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceAreaNettoHUFRent", _PriceAreaNettoHUFRent, value)
|
||||
If Not Session.IsObjectsLoading And Not Session.IsObjectsSaving And Not value = 0 Then
|
||||
RecalculatePriceRent()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property PriceAreaBruttoHUFRent As Double
|
||||
Get
|
||||
Return _PriceAreaBruttoHUFRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceAreaBruttoHUFRent", _PriceAreaBruttoHUFRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceAreaBruttoDEVRent As Double
|
||||
Get
|
||||
Return _PriceAreaBruttoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceAreaBruttoDEVRent", _PriceAreaBruttoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceAreaNettoDEVRent As Double
|
||||
Get
|
||||
Return _PriceAreaNettoDEVRent
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("PriceAreaNettoDEVRent", _PriceAreaNettoDEVRent, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Ownership1 As String
|
||||
Get
|
||||
Return _Ownership1
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Ownership1", _Ownership1, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Ownership2 As String
|
||||
Get
|
||||
Return _Ownership2
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("Ownership2", _Ownership2, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
'// Bérleti lekérdezési információk
|
||||
Private _Last_ContractsRows As ContractRows
|
||||
Property Last_ContractsRows As ContractRows
|
||||
Get
|
||||
Return _Last_ContractsRows
|
||||
End Get
|
||||
Set(value As ContractRows)
|
||||
SetPropertyValue("Last_ContractsRows", _Last_ContractsRows, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Class ' Ingatlanok
|
||||
+79
@@ -0,0 +1,79 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class ImmovablesGroups
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String 'Megnevezés
|
||||
Private _Address As Address 'Cím
|
||||
Private _UniqueTag As String 'Egyedi tag
|
||||
Private _JobNumberObjects As JobNumberObjects 'Project, munkaszám
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Address() As Address
|
||||
Get
|
||||
Return _Address
|
||||
End Get
|
||||
Set(ByVal value As Address)
|
||||
SetPropertyValue("Address", _Address, 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
|
||||
<RuleRequiredField("ImmovablesGroups-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
'-------------ReadOnly-------------
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesGroups-DocumentAttachments", GetType(DocumentAttachments))> _
|
||||
ReadOnly Property DocumentAttachments() As XPCollection(Of DocumentAttachments)
|
||||
Get
|
||||
Return GetCollection(Of DocumentAttachments)("DocumentAttachments")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesGroups-Stairways", GetType(Stairways))> _
|
||||
ReadOnly Property Stairways() As XPCollection(Of Stairways)
|
||||
Get
|
||||
Return GetCollection(Of Stairways)("Stairways")
|
||||
End Get
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("ImmovablesGroups-Floors", GetType(Floors))> _
|
||||
ReadOnly Property Floors() As XPCollection(Of Floors)
|
||||
Get
|
||||
Return GetCollection(Of Floors)("Floors")
|
||||
End Get
|
||||
End Property
|
||||
End Class ' Ingatlan csoportok
|
||||
+161
@@ -0,0 +1,161 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class ImmovablesGroupsParameters
|
||||
Inherits BaseObject
|
||||
|
||||
Private _ImmovablesGroups As ImmovablesGroups
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
'Private _ContractTemplateSold As ContractTemplate 'Értékesítési szerzõdés template
|
||||
'Private _ContractTemplateRent As ContractTemplate 'Bérleti szerzõdés template (majd ezek tartalmazzák a számla dolgokat is !)
|
||||
'Private _ContractTemplate_AdvanceMoney As ContractTemplate 'Értékesítési szerzõdés foglaló template
|
||||
Private _VAT As VAT
|
||||
Private _DocumentBody As String 'Dokumentum törzs az árajánlatnak
|
||||
Private _DocumentBodyPriceList As String 'Dokumentum törzs az árlistához
|
||||
Private _ReportData_Contract_Temp As ReportData 'Szerzõdési nyomtatvány az ügyvédnek
|
||||
Private _Controlling_AdvanceMoney As Controlling 'Az ajánlathoz készülõ elõleg szerzõdési sorok CM-je
|
||||
Private _Controlling_Final As Controlling 'Ingatlan értékesítés kontollja
|
||||
Private _Controlling_Rent As Controlling 'Ingatlan bérlkés kontrollja
|
||||
Private _PaymentOption As PaymentOption 'Ingatlan bérlés alapértelmezett fizetési opciója
|
||||
Private _CostHolder As CostHolder 'Az ajánlathoz készülõ szerzõdési sorok költségviselõje
|
||||
Private _CostPlace As CostPlace 'Az ajánlathoz készülõ szerzõdési sorok költséghelye
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<RuleUniqueValue("ImmovablesGroupsParameters-RuleUniqueValue", DefaultContexts.Save)> _
|
||||
Property ImmovablesGroups As ImmovablesGroups
|
||||
Get
|
||||
Return _ImmovablesGroups
|
||||
End Get
|
||||
Set(value As ImmovablesGroups)
|
||||
SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
'Property ContractTemplateSold As ContractTemplate
|
||||
' Get
|
||||
' Return _ContractTemplateSold
|
||||
' End Get
|
||||
' Set(value As ContractTemplate)
|
||||
' SetPropertyValue("ContractTemplateSold", _ContractTemplateSold, value)
|
||||
' End Set
|
||||
'End Property
|
||||
'Property ContractTemplateRent As ContractTemplate
|
||||
' Get
|
||||
' Return _ContractTemplateRent
|
||||
' End Get
|
||||
' Set(value As ContractTemplate)
|
||||
' SetPropertyValue("ContractTemplateRent", _ContractTemplateRent, value)
|
||||
' End Set
|
||||
'End Property
|
||||
'Property ContractTemplate_AdvanceMoney As ContractTemplate
|
||||
' Get
|
||||
' Return _ContractTemplate_AdvanceMoney
|
||||
' End Get
|
||||
' Set(value As ContractTemplate)
|
||||
' SetPropertyValue("ContractTemplate_AdvanceMoney", _ContractTemplate_AdvanceMoney, 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
|
||||
<Size(-1)> _
|
||||
Property DocumentBody As String
|
||||
Get
|
||||
Return _DocumentBody
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentBody", _DocumentBody, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property DocumentBodyPriceList As String
|
||||
Get
|
||||
Return _DocumentBodyPriceList
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentBodyPriceList", _DocumentBodyPriceList, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData_Contract_Temp As ReportData
|
||||
Get
|
||||
Return _ReportData_Contract_Temp
|
||||
End Get
|
||||
Set(value As ReportData)
|
||||
SetPropertyValue("ReportData_Contract_Temp", _ReportData_Contract_Temp, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling_AdvanceMoney As Controlling
|
||||
Get
|
||||
Return _Controlling_AdvanceMoney
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_AdvanceMoney", _Controlling_AdvanceMoney, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling_Final As Controlling
|
||||
Get
|
||||
Return _Controlling_Final
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_Final", _Controlling_Final, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Controlling_Rent As Controlling
|
||||
Get
|
||||
Return _Controlling_Rent
|
||||
End Get
|
||||
Set(value As Controlling)
|
||||
SetPropertyValue("Controlling_Rent", _Controlling_Rent, 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 CostHolder As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPlace As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(value As CostPlace)
|
||||
SetPropertyValue("CostPlace", _CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
Generated
+48
@@ -0,0 +1,48 @@
|
||||
Partial Class ImmovablesVC
|
||||
|
||||
<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.aIRentGetContracts = New DevExpress.ExpressApp.Actions.SimpleAction(Me.components)
|
||||
'
|
||||
'aIRentGetContracts
|
||||
'
|
||||
Me.aIRentGetContracts.Caption = "aIRent Get Contracts"
|
||||
Me.aIRentGetContracts.ConfirmationMessage = Nothing
|
||||
Me.aIRentGetContracts.Id = "aIRentGetContracts"
|
||||
Me.aIRentGetContracts.ImageName = Nothing
|
||||
Me.aIRentGetContracts.Shortcut = Nothing
|
||||
Me.aIRentGetContracts.Tag = Nothing
|
||||
Me.aIRentGetContracts.TargetObjectsCriteria = Nothing
|
||||
Me.aIRentGetContracts.TargetViewId = "Immovables_ListView_Rent_Query"
|
||||
Me.aIRentGetContracts.ToolTip = Nothing
|
||||
Me.aIRentGetContracts.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aIRentGetContracts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+126
@@ -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="aIRentGetContracts.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>
|
||||
+57
@@ -0,0 +1,57 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Diagnostics
|
||||
Imports System.Text
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.ExpressApp.Actions
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Data.Filtering
|
||||
Imports DevExpress.Xpo
|
||||
|
||||
Public Class ImmovablesVC
|
||||
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()
|
||||
|
||||
End Sub
|
||||
Protected Overrides Sub OnDeactivated()
|
||||
MyBase.OnDeactivated()
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
End Sub
|
||||
Private Sub aIRentGetContracts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aIRentGetContracts.Execute
|
||||
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
|
||||
Dim _Immovables As Immovables
|
||||
|
||||
Dim _ContractRows As ContractRows
|
||||
Dim _ContractRows_Collection As XPCollection(Of ContractRows)
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", False)
|
||||
RaiseEvent InitWork(1, 1, TryCast(View, ListView).CollectionSource.List.Count)
|
||||
For Each _Immovables In TryCast(View, ListView).CollectionSource.List
|
||||
RaiseEvent DoWork()
|
||||
_Immovables.Last_ContractsRows = Nothing
|
||||
_ContractRows_Collection = New XPCollection(Of ContractRows)(_ocur.Session, CriteriaOperator.Parse("Contracts.State='Signed' and UniqueObjects=? " & _
|
||||
" and Contracts.ContractTemplate.PartnerType='eReceivables'",
|
||||
_Immovables.UniqueObjects))
|
||||
_ContractRows_Collection.Sorting.Add(New SortProperty("GetDate(DateExecution)", DB.SortingDirection.Descending))
|
||||
For Each _ContractRows In _ContractRows_Collection
|
||||
_Immovables.Last_ContractsRows = _ContractRows
|
||||
Exit For
|
||||
Next
|
||||
Next
|
||||
RaiseEvent FinalWork
|
||||
Frame.GetController(Of DevExpress.ExpressApp.Validation.PersistenceValidationController)().Active.SetItemValue("", True)
|
||||
End Sub
|
||||
End Class
|
||||
+114
@@ -0,0 +1,114 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class LocalityLists
|
||||
Inherits BaseObject
|
||||
Private _Apartments As Apartments
|
||||
Private _Offices As Offices
|
||||
Private _ShortName As String
|
||||
Private _Level As String
|
||||
Private _Dimensions As String
|
||||
Private _DimensionsUnder190 As String
|
||||
Private _AreaNetto As Double = 0
|
||||
Private _AreaUnder190 As Double = 0
|
||||
Private _LocalityType As LocalityType
|
||||
Private _PriceCounter As Double = 1
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
<Association("Apartments-LocalityLists", GetType(Apartments))> _
|
||||
Property Apartments() As Apartments
|
||||
Get
|
||||
Return _Apartments
|
||||
End Get
|
||||
Set(ByVal value As Apartments)
|
||||
SetPropertyValue("Apartments", _Apartments, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("Offices-LocalityLists", GetType(Offices))> _
|
||||
Property Offices() As Offices
|
||||
Get
|
||||
Return _Offices
|
||||
End Get
|
||||
Set(ByVal value As Offices)
|
||||
SetPropertyValue("Offices", _Offices, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Level() As String
|
||||
Get
|
||||
Return _Level
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Level", _Level, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Dimensions() As String
|
||||
Get
|
||||
Return _Dimensions
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Dimensions", _Dimensions, value)
|
||||
End Set
|
||||
End Property
|
||||
Property DimensionsUnder190() As String
|
||||
Get
|
||||
Return _DimensionsUnder190
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DimensionsUnder190", _DimensionsUnder190, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNetto() As Double
|
||||
Get
|
||||
Return _AreaNetto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNetto", _AreaNetto, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaUnder190() As Double
|
||||
Get
|
||||
Return _AreaUnder190
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaUnder190", _AreaUnder190, value)
|
||||
End Set
|
||||
End Property
|
||||
Property LocalityType() As LocalityType
|
||||
Get
|
||||
Return _LocalityType
|
||||
End Get
|
||||
Set(ByVal value As LocalityType)
|
||||
SetPropertyValue("LocalityType", _LocalityType, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceCounter() As Double
|
||||
Get
|
||||
Return _PriceCounter
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceCounter", _PriceCounter, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class ' Helység lista
|
||||
+37
@@ -0,0 +1,37 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class LocalityType
|
||||
Inherits BaseObject
|
||||
Private _ShortName As String
|
||||
Private _RoomCount As eRoomCount
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RoomCount() As eRoomCount
|
||||
Get
|
||||
Return _RoomCount
|
||||
End Get
|
||||
Set(ByVal value As eRoomCount)
|
||||
SetPropertyValue("RoomCount", _RoomCount, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class 'Helység tipus
|
||||
+329
@@ -0,0 +1,329 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class Offices
|
||||
Inherits Immovables
|
||||
Private _Floor As Floors
|
||||
Private _Stairway As Stairways
|
||||
Private _RoomString As String
|
||||
Private _WindowDirection As eWindowDirection = eWindowDirection.NotSet
|
||||
Private _AreaPriceNettoHUF As Double
|
||||
Private _AreaPriceNettoDEV As Double
|
||||
Private _PriceBruttoHUF As Double
|
||||
Private _PriceBruttoDEV As Double
|
||||
Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
|
||||
Private _PriceNettoDEV As Double
|
||||
Private _AreaNetto As Double = 0
|
||||
Private _AreaNettoUnder190 As Double = 0
|
||||
Private _AreaNettoForSale As Double = 0
|
||||
Private _AreaNettoForCostRecord As Double = 0 'Költség számító négyzetméter
|
||||
Private _Direction As eIDirection = eIDirection.NotSet
|
||||
Private _IsTerrace As Boolean
|
||||
Private _AreaTerrace As Double = 0
|
||||
Private _Note As String
|
||||
Private _UniqueTag As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
_AreaNetto = 0
|
||||
_AreaNettoUnder190 = 0
|
||||
_PriceBruttoHUF = 0
|
||||
Dim _LL As LocalityLists
|
||||
For Each _LL In LocalityLists
|
||||
_AreaNetto += _LL.AreaNetto
|
||||
_AreaNettoUnder190 += _LL.AreaUnder190
|
||||
_PriceBruttoHUF += PriceBruttoHUF + (_LL.AreaNetto * _AreaPriceNettoHUF)
|
||||
Next
|
||||
If Session.IsNewObject(Me) Then
|
||||
If UniqueTag <> "*" Then Me.MakeUniqueObjects_Offices()
|
||||
End If
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.ImmovablesTypes = eImmovablesTypes.eOffice
|
||||
End Sub
|
||||
Protected Sub RecalculatePrice()
|
||||
PriceNettoHUF = Math.Round(AreaNettoForSale * AreaPriceNettoHUF, 0, MidpointRounding.AwayFromZero)
|
||||
PriceNettoDEV = Math.Round(AreaNettoForSale * AreaPriceNettoDEV, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
Protected Sub RecalculatePriceBrutto()
|
||||
PriceBruttoHUF = Math.Round(PriceNettoHUF * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
PriceBruttoDEV = Math.Round(PriceNettoDEV * 1.25, 0, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
Protected Sub RecalculateAreaNettoForSale()
|
||||
AreaNettoForSale = Math.Round((AreaNetto + (AreaNettoUnder190 / 2) + (AreaTerrace / 2)), 2, MidpointRounding.AwayFromZero)
|
||||
End Sub
|
||||
<ImmediatePostData(True), DataSourceCriteria("ImmovablesGroups = '@This.ImmovableGroups'")>
|
||||
Property Floor() As Floors
|
||||
Get
|
||||
Return _Floor
|
||||
End Get
|
||||
Set(ByVal value As Floors)
|
||||
SetPropertyValue("Floor", _Floor, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True), DataSourceCriteria("ImmovablesGroups = '@This.ImmovableGroups'")>
|
||||
Property Stairway() As Stairways
|
||||
Get
|
||||
Return _Stairway
|
||||
End Get
|
||||
Set(ByVal value As Stairways)
|
||||
SetPropertyValue("Stairway", _Stairway, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("Offices-LocalityLists", GetType(LocalityLists))> _
|
||||
Public ReadOnly Property LocalityLists() As XPCollection(Of LocalityLists)
|
||||
Get
|
||||
Return GetCollection(Of LocalityLists)("LocalityLists")
|
||||
End Get
|
||||
End Property
|
||||
Property WindowDirection() As eWindowDirection
|
||||
Get
|
||||
Return _WindowDirection
|
||||
End Get
|
||||
Set(ByVal value As eWindowDirection)
|
||||
SetPropertyValue("WindowDirection", _WindowDirection, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaPriceNettoHUF() As Double
|
||||
Get
|
||||
Return _AreaPriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaPriceNettoHUF", _AreaPriceNettoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaPriceNettoDEV() As Double
|
||||
Get
|
||||
Return _AreaPriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaPriceNettoDEV", _AreaPriceNettoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Direction() As eIDirection
|
||||
Get
|
||||
Return _Direction
|
||||
End Get
|
||||
Set(ByVal value As eIDirection)
|
||||
SetPropertyValue("Direction", _Direction, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoHUF() As Double
|
||||
Get
|
||||
Return _PriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoDEV() As Double
|
||||
Get
|
||||
Return _PriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property PriceNettoDEV As Double
|
||||
Get
|
||||
Return _PriceNettoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoDEV", _PriceNettoDEV, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property PriceNettoHUF As Double
|
||||
Get
|
||||
Return _PriceNettoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceNettoHUF", _PriceNettoHUF, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
Me.RecalculatePriceBrutto()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNetto() As Double
|
||||
Get
|
||||
Return _AreaNetto
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNetto", _AreaNetto, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculateAreaNettoForSale()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNettoUnder190() As Double
|
||||
Get
|
||||
Return _AreaNettoUnder190
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNettoUnder190", _AreaNettoUnder190, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculateAreaNettoForSale()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<ImmediatePostData(True)> _
|
||||
Property AreaNettoForSale As Double
|
||||
Get
|
||||
Return _AreaNettoForSale
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaNettoForSale", _AreaNettoForSale, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
MyBase.RecalculatePriceRent()
|
||||
RecalculatePrice()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AreaNettoForCostRecord As Double
|
||||
Get
|
||||
Return _AreaNettoForCostRecord
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AreaNettoForCostRecord", _AreaNettoForCostRecord, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsTerrace() As Boolean
|
||||
Get
|
||||
Return _IsTerrace
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("IsTerrace", _IsTerrace, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AreaTerrace As Double
|
||||
Get
|
||||
Return _AreaTerrace
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("AreaTerrace", _AreaTerrace, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
RecalculateAreaNettoForSale()
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Offices-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Sub MakeUniqueObjects_Offices()
|
||||
Dim _Name_ImmovablesGroups As String : Dim _UniqueObjects_ImmovablesGroups As UniqueObjects
|
||||
Dim _Name_ImmovablesGroups_X As String : Dim _UniqueObjects_ImmovablesGroups_X As UniqueObjects
|
||||
Dim _Name_Stairway As String : Dim _UniqueObjects_Stairway As UniqueObjects
|
||||
Dim _Name_Stairway_X As String : Dim _UniqueObjects_Stairway_X As UniqueObjects
|
||||
Dim _Name_Floor As String : Dim _UniqueObjects_Floor As UniqueObjects
|
||||
Dim _Name_Floor_X As String : Dim _UniqueObjects_Floor_X As UniqueObjects
|
||||
Dim _Name_Offices As String : Dim _UniqueObjects_Offices As UniqueObjects
|
||||
|
||||
|
||||
_Name_ImmovablesGroups = Me.ImmovableGroups.UniqueTag
|
||||
_Name_ImmovablesGroups_X = Me.ImmovableGroups.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_ImmovablesGroups = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups))
|
||||
If _UniqueObjects_ImmovablesGroups Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups.Name = _Name_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups.Save()
|
||||
End If
|
||||
_UniqueObjects_ImmovablesGroups_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_ImmovablesGroups_X))
|
||||
If _UniqueObjects_ImmovablesGroups_X Is Nothing Then
|
||||
_UniqueObjects_ImmovablesGroups_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_ImmovablesGroups_X.Name = _Name_ImmovablesGroups_X
|
||||
_UniqueObjects_ImmovablesGroups_X.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_ImmovablesGroups_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Stairway = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag
|
||||
_Name_Stairway_X = _Name_ImmovablesGroups & "-" & Stairway.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_Stairway = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway))
|
||||
If _UniqueObjects_Stairway Is Nothing Then
|
||||
_UniqueObjects_Stairway = New UniqueObjects(Session)
|
||||
_UniqueObjects_Stairway.Name = _Name_Stairway
|
||||
_UniqueObjects_Stairway.Parent = _UniqueObjects_ImmovablesGroups
|
||||
_UniqueObjects_Stairway.Save()
|
||||
End If
|
||||
_UniqueObjects_Stairway_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Stairway_X))
|
||||
If _UniqueObjects_Stairway_X Is Nothing Then
|
||||
_UniqueObjects_Stairway_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Stairway_X.Name = _Name_Stairway_X
|
||||
_UniqueObjects_Stairway_X.Parent = _UniqueObjects_Stairway
|
||||
_UniqueObjects_Stairway_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Floor = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag
|
||||
_Name_Floor_X = _Name_ImmovablesGroups & "-" & _Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & "-X"
|
||||
|
||||
_UniqueObjects_Floor = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor))
|
||||
If _UniqueObjects_Floor Is Nothing Then
|
||||
_UniqueObjects_Floor = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor.Name = _Name_Floor
|
||||
_UniqueObjects_Floor.Parent = _UniqueObjects_Stairway
|
||||
_UniqueObjects_Floor.Save()
|
||||
End If
|
||||
_UniqueObjects_Floor_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Floor_X))
|
||||
If _UniqueObjects_Floor_X Is Nothing Then
|
||||
_UniqueObjects_Floor_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Floor_X.Name = _Name_Floor_X
|
||||
_UniqueObjects_Floor_X.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Floor_X.Save()
|
||||
End If
|
||||
|
||||
_Name_Offices = Me.ImmovableGroups.UniqueTag & "-" & Me.Stairway.UniqueTag & "-" & Me.Floor.UniqueTag & _UniqueTag
|
||||
|
||||
_UniqueObjects_Offices = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Offices))
|
||||
If _UniqueObjects_Offices Is Nothing Then
|
||||
_UniqueObjects_Offices = New UniqueObjects(Session)
|
||||
_UniqueObjects_Offices.Name = _Name_Offices
|
||||
_UniqueObjects_Offices.Parent = _UniqueObjects_Floor
|
||||
_UniqueObjects_Offices.Save()
|
||||
Me.UniqueObjects = _UniqueObjects_Offices
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'-----NonPersistes-----
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceNettoHUFRent As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUF As Double = 0
|
||||
<NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
|
||||
Property OfferListPriceBruttoHUFRent As Double = 0
|
||||
End Class ' Irodák, üzletek
|
||||
+135
@@ -0,0 +1,135 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NonPersistent()> _
|
||||
<CreatableItem(False)> _
|
||||
<NavigationItem(False)> _
|
||||
Public Class Immovables_ChangeGroup_PopUp
|
||||
Inherits BaseObject
|
||||
|
||||
Private _IsChange_CanforSale As Boolean
|
||||
Private _CanforSale As Boolean 'Eladható
|
||||
Private _IsChange_CanForRent As Boolean
|
||||
Private _CanForRent As Boolean 'Bérelhetõ
|
||||
Private _IsChange_CustomersOwner As Boolean
|
||||
Private _CustomersOwner As Customers 'Tulajdonos.
|
||||
Private _IsChange_CustomersLessor As Boolean
|
||||
Private _CustomersLessor As Customers 'Bérbeadó
|
||||
Private _IsChange_ImmovableSoldState As Boolean
|
||||
Private _ImmovableSoldState As eImmovableSoldState 'Ingatlan eladható státusz
|
||||
Private _IsChange_ImmovablesRentState As Boolean
|
||||
Private _ImmovablesRentState As eImmovablesRentState 'Ingatlan bérelhetõ státusz
|
||||
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
|
||||
Property IsChange_CanforSale As Boolean
|
||||
Get
|
||||
Return _IsChange_CanforSale
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsChange_CanforSale", _IsChange_CanforSale, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CanForSale As Boolean
|
||||
Get
|
||||
Return _CanforSale
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("CanForSale", _CanforSale, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsChange_CanForRent As Boolean
|
||||
Get
|
||||
Return _IsChange_CanForRent
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsChange_CanForRent", _IsChange_CanForRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CanForRent As Boolean
|
||||
Get
|
||||
Return _CanForRent
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
SetPropertyValue("CanForRent", _CanForRent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsChange_CustomersOwner As Boolean
|
||||
Get
|
||||
Return _IsChange_CustomersOwner
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsChange_CustomersOwner", _IsChange_CustomersOwner, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersOwner() As Customers
|
||||
Get
|
||||
Return _CustomersOwner
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("CustomersOwner", _CustomersOwner, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsChange_CustomersLessor As Boolean
|
||||
Get
|
||||
Return _IsChange_CustomersLessor
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsChange_CustomersLessor", _IsChange_CustomersLessor, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CustomersLessor() As Customers
|
||||
Get
|
||||
Return _CustomersLessor
|
||||
End Get
|
||||
Set(ByVal value As Customers)
|
||||
SetPropertyValue("CustomersLessor", _CustomersLessor, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsChange_ImmovableSoldState As Boolean
|
||||
Get
|
||||
Return _IsChange_ImmovableSoldState
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsChange_ImmovableSoldState", _IsChange_ImmovableSoldState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovableSoldState As eImmovableSoldState
|
||||
Get
|
||||
Return _ImmovableSoldState
|
||||
End Get
|
||||
Set(value As eImmovableSoldState)
|
||||
SetPropertyValue("ImmovableSoldState", _ImmovableSoldState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property IsChange_ImmovablesRentState As Boolean
|
||||
Get
|
||||
Return _IsChange_ImmovablesRentState
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
SetPropertyValue("IsChange_ImmovablesRentState", _IsChange_ImmovablesRentState, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ImmovablesRentState As eImmovablesRentState
|
||||
Get
|
||||
Return _ImmovablesRentState
|
||||
End Get
|
||||
Set(value As eImmovablesRentState)
|
||||
SetPropertyValue("ImmovablesRentState", _ImmovablesRentState, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+48
@@ -0,0 +1,48 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class Stairways
|
||||
Inherits BaseObject
|
||||
Private _ImmovablesGroups As ImmovablesGroups
|
||||
Private _ShortName As String
|
||||
Private _UniqueTag As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Property ShortName() As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("Stairways-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("ImmovablesGroups-Stairways", GetType(ImmovablesGroups))> _
|
||||
Property ImmovablesGroups() As ImmovablesGroups
|
||||
Get
|
||||
Return _ImmovablesGroups
|
||||
End Get
|
||||
Set(ByVal value As ImmovablesGroups)
|
||||
SetPropertyValue("ImmovablesGroups", _ImmovablesGroups, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class 'Lépcsőházak
|
||||
+114
@@ -0,0 +1,114 @@
|
||||
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.Xpo.Metadata
|
||||
Imports System.Drawing
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem("RealEstateStocks")> _
|
||||
Public Class StudentHostel
|
||||
Inherits Immovables
|
||||
Private _Apartments As Apartments
|
||||
Private _PriceBruttoHUF As Double
|
||||
Private _PriceNettoHUF As Double 'Nettó vételár (HUF)
|
||||
Private _PriceBruttoDEV As Double
|
||||
Private _PriceNettoDEV As Double 'Nettó vételár
|
||||
Private _Note As String
|
||||
Private _UniqueTag As String
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
Me.ImmovablesTypes = eImmovablesTypes.eStudentHostel
|
||||
End Sub
|
||||
Protected Overrides Sub OnSaving()
|
||||
If Session.IsNewObject(Me) Then
|
||||
If UniqueTag <> "*" Then Me.MakeUniqueObjects_StudentHostel()
|
||||
End If
|
||||
MyBase.OnSaving()
|
||||
End Sub
|
||||
Property Apartments() As Apartments
|
||||
Get
|
||||
Return _Apartments
|
||||
End Get
|
||||
Set(ByVal value As Apartments)
|
||||
SetPropertyValue("Apartments", _Apartments, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PriceBruttoHUF() As Double
|
||||
Get
|
||||
Return _PriceBruttoHUF
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoHUF", _PriceBruttoHUF, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property PriceBruttoDEV() As Double
|
||||
Get
|
||||
Return _PriceBruttoDEV
|
||||
End Get
|
||||
Set(ByVal value As Double)
|
||||
SetPropertyValue("PriceBruttoDEV", _PriceBruttoDEV, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property Note() As String
|
||||
Get
|
||||
Return _Note
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("Note", _Note, value)
|
||||
End Set
|
||||
End Property
|
||||
<RuleRequiredField("StudentHostel-UniqueTag", DefaultContexts.Save)> _
|
||||
Property UniqueTag() As String
|
||||
Get
|
||||
Return _UniqueTag
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("UniqueTag", _UniqueTag, value)
|
||||
End Set
|
||||
End Property
|
||||
Public Sub MakeUniqueObjects_StudentHostel()
|
||||
Dim _Name_Apartments As String : Dim _UniqueObjects_Apartments As UniqueObjects
|
||||
Dim _Name_Apartments_X As String : Dim _UniqueObjects_Apartments_X As UniqueObjects
|
||||
Dim _Name_StudentHostel As String : Dim _UniqueObjects_StudentHostel As UniqueObjects
|
||||
'Dim _Name_StudentHostel_X As String : Dim _UniqueObjects_StudentHostel_X As UniqueObjects
|
||||
|
||||
_Name_Apartments = Me._Apartments.UniqueObjects.ToString
|
||||
_Name_Apartments_X = Me.Apartments.UniqueObjects.ToString & "-X"
|
||||
|
||||
_UniqueObjects_Apartments = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments))
|
||||
If _UniqueObjects_Apartments Is Nothing Then
|
||||
_UniqueObjects_Apartments = New UniqueObjects(Session)
|
||||
_UniqueObjects_Apartments.Name = _Name_Apartments
|
||||
_UniqueObjects_Apartments.Save()
|
||||
End If
|
||||
_UniqueObjects_Apartments_X = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_Apartments_X))
|
||||
If _UniqueObjects_Apartments_X Is Nothing Then
|
||||
_UniqueObjects_Apartments_X = New UniqueObjects(Session)
|
||||
_UniqueObjects_Apartments_X.Name = _Name_Apartments_X
|
||||
_UniqueObjects_Apartments_X.Parent = _UniqueObjects_Apartments
|
||||
_UniqueObjects_Apartments_X.Save()
|
||||
End If
|
||||
|
||||
_Name_StudentHostel = Me._Apartments.UniqueObjects.ToString & "-" & _UniqueTag
|
||||
|
||||
_UniqueObjects_StudentHostel = Session.FindObject(Of UniqueObjects)(CriteriaOperator.Parse("Name=?", _Name_StudentHostel))
|
||||
If _UniqueObjects_StudentHostel Is Nothing Then
|
||||
_UniqueObjects_StudentHostel = New UniqueObjects(Session)
|
||||
_UniqueObjects_StudentHostel.Name = _Name_StudentHostel
|
||||
_UniqueObjects_StudentHostel.Parent = _UniqueObjects_Apartments
|
||||
_UniqueObjects_StudentHostel.Save()
|
||||
Me.UniqueObjects = _UniqueObjects_StudentHostel
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class 'Bérlemények (kollégiumi férőhelyek
|
||||
Reference in New Issue
Block a user