Reconfigure for GIT
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(SISBusiness.[Module].CRMEstateStatistics)
|
||||
Me.aCRMEstateStatisticsCreate.TargetViewId = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.ToolTip = Nothing
|
||||
Me.aCRMEstateStatisticsCreate.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aCRMEstateStatisticsCreate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+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(SISBusiness.[Module].CRMEstate_Leads)
|
||||
Me.aCreateOpportunitySold.TargetViewId = "CRMEstate_Leads_DetailView"
|
||||
Me.aCreateOpportunitySold.ToolTip = Nothing
|
||||
Me.aCreateOpportunitySold.TypeOfView = Nothing
|
||||
'
|
||||
'aDeleteCRMEstate_Opportunity_AdvanceMoney
|
||||
'
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Caption = "Delete"
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Category = "Edit"
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ConfirmationMessage = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Id = "aDeleteCRMEstate_Opportunity_AdvanceMoney"
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ImageName = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Shortcut = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.Tag = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectsCriteria = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity_AdvanceMoney)
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TargetViewId = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.ToolTip = Nothing
|
||||
Me.aDeleteCRMEstate_Opportunity_AdvanceMoney.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateNewCRMEstate_Opportunity_Payment_Forecast
|
||||
'
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Caption = "aCreateNewCRMEstate_Opportunity_Payment_Forecast"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Category = "ObjectsCreation"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ConfirmationMessage = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Id = "aCreateNewCRMEstate_Opportunity_Payment_Forecast"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ImageName = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Shortcut = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.Tag = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity_Payment_Forecast)
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TargetViewId = "CRMEstate_Opportunity_Immovables_CRMEstate_Opportunity_Payment_Forecast_ListView"
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.ToolTip = Nothing
|
||||
Me.aCreateNewCRMEstate_Opportunity_Payment_Forecast.TypeOfView = Nothing
|
||||
'
|
||||
'aCreateContractRent
|
||||
'
|
||||
Me.aCreateContractRent.AcceptButtonCaption = Nothing
|
||||
Me.aCreateContractRent.CancelButtonCaption = Nothing
|
||||
Me.aCreateContractRent.Caption = "aCreateContractRent"
|
||||
Me.aCreateContractRent.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateContractRent.Id = "aCreateContractRent"
|
||||
Me.aCreateContractRent.ImageName = "paragraph"
|
||||
Me.aCreateContractRent.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCreateContractRent.Shortcut = Nothing
|
||||
Me.aCreateContractRent.Tag = Nothing
|
||||
Me.aCreateContractRent.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContractRent.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity)
|
||||
Me.aCreateContractRent.TargetViewId = Nothing
|
||||
Me.aCreateContractRent.TargetViewType = DevExpress.ExpressApp.ViewType.DetailView
|
||||
Me.aCreateContractRent.ToolTip = Nothing
|
||||
Me.aCreateContractRent.TypeOfView = GetType(DevExpress.ExpressApp.DetailView)
|
||||
'
|
||||
'aCreateContractSold
|
||||
'
|
||||
Me.aCreateContractSold.AcceptButtonCaption = Nothing
|
||||
Me.aCreateContractSold.CancelButtonCaption = Nothing
|
||||
Me.aCreateContractSold.Caption = "aCreate Contract Sold"
|
||||
Me.aCreateContractSold.ConfirmationMessage = "Do you want to execute command ?"
|
||||
Me.aCreateContractSold.Id = "aCreateContractSold"
|
||||
Me.aCreateContractSold.ImageName = "paragraph"
|
||||
Me.aCreateContractSold.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
|
||||
Me.aCreateContractSold.Shortcut = Nothing
|
||||
Me.aCreateContractSold.Tag = Nothing
|
||||
Me.aCreateContractSold.TargetObjectsCriteria = Nothing
|
||||
Me.aCreateContractSold.TargetObjectType = GetType(SISBusiness.[Module].CRMEstate_Opportunity)
|
||||
Me.aCreateContractSold.TargetViewId = "CRMEstate_Opportunity_DetailView"
|
||||
Me.aCreateContractSold.ToolTip = Nothing
|
||||
Me.aCreateContractSold.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aSelectImmovables_Apartments As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateOpportunitySold As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateContacts As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateImmovablesReservation As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateOpportunityRent As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateNewCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aFinalCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aDeleteCRMEstate_Opportunity_AdvanceMoney As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSelectImmovables_Offices As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSelectImmovables_Garages As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aSelectImmovables_Container As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateNewCRMEstate_Opportunity_Payment_Forecast As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
Friend WithEvents aCreateContractRent As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
Friend WithEvents aCreateContractSold As DevExpress.ExpressApp.Actions.PopupWindowShowAction
|
||||
|
||||
End Class
|
||||
+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
|
||||
+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("RealEstateStocks")> _
|
||||
Public Class CRMEstate_Offer_Template
|
||||
Inherits BaseObject
|
||||
Private _DocumentBody As String 'Dokumentum törzs az árajánlatnak
|
||||
Private _DocumentBodyPriceList As String 'Dokumentum törzs az árlistához
|
||||
Private _ShortName As String 'Megnevezés
|
||||
Private _ReportData As Reports.ReportData 'Árajánlati nyomtatvány
|
||||
Private _ReportData_Contract_Temp As Reports.ReportData 'Szerzõdési nyomtatvány az ügyvédnek
|
||||
Private _VAT As VAT 'Az ajánlathoz készülõ szerzõdések sorainak ÁFÁja
|
||||
Private _Controlling_AdvanceMoney As Controlling 'Az ajánlathoz készülõ elõleg szerzõdési sorok CM-je
|
||||
Private _Controlling_Final As Controlling
|
||||
Private _Controlling_Rent As Controlling
|
||||
Private _PaymentOption As PaymentOption
|
||||
Private _CostHolder As CostHolder 'Az ajánlathoz készülõ szerzõdési sorok költségviselõje
|
||||
Private _CostPlace As CostPlace 'Az ajánlathoz készülõ szerzõdési sorok költséghelye
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
<Size(-1)> _
|
||||
Property DocumentBody() As String
|
||||
Get
|
||||
Return _DocumentBody
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
SetPropertyValue("DocumentBody", _DocumentBody, value)
|
||||
End Set
|
||||
End Property
|
||||
<Size(-1)> _
|
||||
Property DocumentBodyPriceList As String
|
||||
Get
|
||||
Return _DocumentBodyPriceList
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("DocumentBodyPriceList", _DocumentBodyPriceList, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ShortName As String
|
||||
Get
|
||||
Return _ShortName
|
||||
End Get
|
||||
Set(value As String)
|
||||
SetPropertyValue("ShortName", _ShortName, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData As Reports.ReportData
|
||||
Get
|
||||
Return _ReportData
|
||||
End Get
|
||||
Set(value As Reports.ReportData)
|
||||
SetPropertyValue("ReportData", _ReportData, value)
|
||||
End Set
|
||||
End Property
|
||||
Property ReportData_Contract_Temp As Reports.ReportData
|
||||
Get
|
||||
Return _ReportData_Contract_Temp
|
||||
End Get
|
||||
Set(value As Reports.ReportData)
|
||||
SetPropertyValue("ReportData_Contract_Temp", _ReportData_Contract_Temp, value)
|
||||
End Set
|
||||
End Property
|
||||
Property VAT As VAT
|
||||
Get
|
||||
Return _VAT
|
||||
End Get
|
||||
Set(ByVal value As VAT)
|
||||
SetPropertyValue("VAT", _VAT, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceCriteria("IsParent=False")> _
|
||||
Property Controlling_AdvanceMoney As Controlling
|
||||
Get
|
||||
Return _Controlling_AdvanceMoney
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling_AdvanceMoney", _Controlling_AdvanceMoney, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceCriteria("IsParent=False")> _
|
||||
Property Controlling_Final As Controlling
|
||||
Get
|
||||
Return _Controlling_Final
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling_Final", _Controlling_Final, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceCriteria("IsParent=False")> _
|
||||
Property Controlling_Rent As Controlling
|
||||
Get
|
||||
Return _Controlling_Rent
|
||||
End Get
|
||||
Set(ByVal value As Controlling)
|
||||
SetPropertyValue("Controlling_Rent", _Controlling_Rent, value)
|
||||
End Set
|
||||
End Property
|
||||
Property PaymentOption As PaymentOption
|
||||
Get
|
||||
Return _PaymentOption
|
||||
End Get
|
||||
Set(ByVal value As PaymentOption)
|
||||
SetPropertyValue("PaymentOption", _PaymentOption, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostHolder As CostHolder
|
||||
Get
|
||||
Return _CostHolder
|
||||
End Get
|
||||
Set(ByVal value As CostHolder)
|
||||
SetPropertyValue("CostHolder", _CostHolder, value)
|
||||
End Set
|
||||
End Property
|
||||
Property CostPlace As CostPlace
|
||||
Get
|
||||
Return _CostPlace
|
||||
End Get
|
||||
Set(ByVal value As CostPlace)
|
||||
SetPropertyValue("CostPlace", _CostPlace, value)
|
||||
End Set
|
||||
End Property
|
||||
<VisibleInListView(False)> _
|
||||
<Association("CRMEstate_Offer_Template-CRMEstate_Offer_Template_CustomersFrom", GetType(CRMEstate_Offer_Template_CustomersFrom))> _
|
||||
ReadOnly Property CRMEstate_Offer_Template_CustomersFrom As XPCollection(Of CRMEstate_Offer_Template_CustomersFrom)
|
||||
Get
|
||||
Return GetCollection(Of CRMEstate_Offer_Template_CustomersFrom)("CRMEstate_Offer_Template_CustomersFrom")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
End Class
|
||||
+71
@@ -0,0 +1,71 @@
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
|
||||
Imports DevExpress.Xpo
|
||||
Imports DevExpress.Data.Filtering
|
||||
|
||||
Imports DevExpress.ExpressApp
|
||||
Imports DevExpress.Persistent.Base
|
||||
Imports DevExpress.Persistent.BaseImpl
|
||||
Imports DevExpress.Persistent.Validation
|
||||
|
||||
<DefaultClassOptions()> _
|
||||
<NavigationItem(False), CreatableItem(False)> _
|
||||
Public Class CRMEstate_Offer_Template_CustomersFrom
|
||||
Inherits BaseObject
|
||||
Private _CustomersFrom As CustomersFrom
|
||||
Private _ContractTemplate_AdvanceMoney As ContractTemplate 'Szerzõdési sablon az elõszerzõdéshez
|
||||
Private _ContractTemplate_Final As ContractTemplate 'Szerzõdési sablon az értékesítési végszerzõdéshez
|
||||
Private _ContractTemplate_Rent As ContractTemplate 'Szerzõdési sablon a bérleti szerzõdéshez
|
||||
Private _CRMEstate_Offer_Template As CRMEstate_Offer_Template 'Általános ajánlati paraméterek
|
||||
Public Sub New(ByVal session As Session)
|
||||
MyBase.New(session)
|
||||
End Sub
|
||||
Public Overrides Sub AfterConstruction()
|
||||
MyBase.AfterConstruction()
|
||||
End Sub
|
||||
Public Property CustomersFrom As CustomersFrom
|
||||
Get
|
||||
Return _CustomersFrom
|
||||
End Get
|
||||
Set(ByVal value As CustomersFrom)
|
||||
SetPropertyValue("CustomersFrom", _CustomersFrom, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND PartnerType=0")> _
|
||||
Property ContractTemplate_AdvanceMoney As ContractTemplate
|
||||
Get
|
||||
Return _ContractTemplate_AdvanceMoney
|
||||
End Get
|
||||
Set(ByVal value As ContractTemplate)
|
||||
SetPropertyValue("ContractTemplate_AdvanceMoney", _ContractTemplate_AdvanceMoney, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND PartnerType=0")> _
|
||||
Property ContractTemplate_Final As ContractTemplate
|
||||
Get
|
||||
Return _ContractTemplate_Final
|
||||
End Get
|
||||
Set(ByVal value As ContractTemplate)
|
||||
SetPropertyValue("ContractTemplate_Final", _ContractTemplate_Final, value)
|
||||
End Set
|
||||
End Property
|
||||
<DataSourceCriteria("CustomersFrom='@This.CustomersFrom' AND PartnerType=0")> _
|
||||
Property ContractTemplate_Rent As ContractTemplate
|
||||
Get
|
||||
Return _ContractTemplate_Rent
|
||||
End Get
|
||||
Set(ByVal value As ContractTemplate)
|
||||
SetPropertyValue("ContractTemplate_Rent", _ContractTemplate_Rent, value)
|
||||
End Set
|
||||
End Property
|
||||
<Association("CRMEstate_Offer_Template-CRMEstate_Offer_Template_CustomersFrom", GetType(CRMEstate_Offer_Template))> _
|
||||
Property CRMEstate_Offer_Template As CRMEstate_Offer_Template
|
||||
Get
|
||||
Return _CRMEstate_Offer_Template
|
||||
End Get
|
||||
Set(ByVal value As CRMEstate_Offer_Template)
|
||||
SetPropertyValue("CRMEstate_Offer_Template", _CRMEstate_Offer_Template, value)
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
+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(SISBusiness.[Module].CRMEstate_Opportunity)
|
||||
Me.aPrintContractTemplate.TargetViewId = "CRMEstate_Opportunity_DetailView"
|
||||
Me.aPrintContractTemplate.ToolTip = Nothing
|
||||
Me.aPrintContractTemplate.TypeOfView = Nothing
|
||||
|
||||
End Sub
|
||||
Friend WithEvents aPrintContractTemplate As DevExpress.ExpressApp.Actions.SimpleAction
|
||||
|
||||
End Class
|
||||
+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\SISBusinessExceptions", "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)> _
|
||||
<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
|
||||
Reference in New Issue
Block a user