First create solution
This commit is contained in:
+216
@@ -0,0 +1,216 @@
|
||||
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 RegistryTelephone
|
||||
Inherits BaseObject
|
||||
Private _GLAccounts As GLAccounts
|
||||
Private _RegistryHeader As RegistryHeader
|
||||
Private _RegistryTelephoneParameters As RegistryTelephoneParameters
|
||||
Private _UniqueObjects As UniqueObjects
|
||||
Private _Amount_Brutto_INTERNET As Double
|
||||
Private _Amount_Netto_INTERNET As Double
|
||||
Private _Amount_VAT_INTERNET As Double
|
||||
Private _Amount_Brutto_PARKING As Double
|
||||
Private _Amount_Brutto_TELEPHON As Double
|
||||
Private _AmountNetto_TELEPHON_80 As Double
|
||||
Private _AmountNetto_TELEPHON_20 As Double
|
||||
Private _Amount_VAT_TELEPHON_70 As Double
|
||||
Private _Amount_Brutto_OTHER_DEFAULTVAT As Double
|
||||
Private _Amount_Netto_OTHER_DEFAULTVAT As Double
|
||||
Private _Amount_VAT_OTHER_DEFAULTVAT As Double
|
||||
Private _Amount_Brutto_OTHER_NOVAT 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()
|
||||
' Place here your initialization code.
|
||||
End Sub
|
||||
|
||||
<Browsable(False)> _
|
||||
Property GLAccounts As GLAccounts
|
||||
Get
|
||||
Return _GLAccounts
|
||||
End Get
|
||||
Set(value As GLAccounts)
|
||||
SetPropertyValue("GLAccounts", _GLAccounts, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RegistryHeader As RegistryHeader
|
||||
Get
|
||||
Return _RegistryHeader
|
||||
End Get
|
||||
Set(value As RegistryHeader)
|
||||
SetPropertyValue("RegistryHeader", _RegistryHeader, value)
|
||||
End Set
|
||||
End Property
|
||||
Property RegistryTelephoneParameters As RegistryTelephoneParameters
|
||||
Get
|
||||
Return _RegistryTelephoneParameters
|
||||
End Get
|
||||
Set(value As RegistryTelephoneParameters)
|
||||
SetPropertyValue("RegistryTelephoneParameters", _RegistryTelephoneParameters, value)
|
||||
End Set
|
||||
End Property
|
||||
Property UniqueObjects As UniqueObjects
|
||||
Get
|
||||
Return _UniqueObjects
|
||||
End Get
|
||||
Set(value As UniqueObjects)
|
||||
SetPropertyValue("UniqueObjects", _UniqueObjects, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Brutto_INTERNET As Double
|
||||
Get
|
||||
Return _Amount_Brutto_INTERNET
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Brutto_INTERNET", _Amount_Brutto_INTERNET, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT_INTERNET IsNot Nothing Then
|
||||
Amount_Netto_INTERNET = Math.Round(value / (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT_INTERNET.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
Amount_VAT_INTERNET = Math.Round(value - Amount_Netto_INTERNET, 0, MidpointRounding.AwayFromZero)
|
||||
Else
|
||||
Amount_Netto_INTERNET = value
|
||||
Amount_VAT_INTERNET = 0
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Netto_INTERNET As Double
|
||||
Get
|
||||
Return _Amount_Netto_INTERNET
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Netto_INTERNET", _Amount_Netto_INTERNET, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_VAT_INTERNET As Double
|
||||
Get
|
||||
Return _Amount_VAT_INTERNET
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_VAT_INTERNET", _Amount_VAT_INTERNET, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Brutto_PARKING As Double
|
||||
Get
|
||||
Return _Amount_Brutto_PARKING
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Brutto_PARKING", _Amount_Brutto_PARKING, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Brutto_TELEPHON As Double
|
||||
Get
|
||||
Return _Amount_Brutto_TELEPHON
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Brutto_TELEPHON", _Amount_Brutto_TELEPHON, value)
|
||||
If Session.IsObjectsSaving = False And Session.IsObjectsLoading = False Then
|
||||
If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then
|
||||
Dim _Amount_Netto_TELEPHONE = Math.Round(Math.Round(value * 0.7, 2, MidpointRounding.AwayFromZero) / _
|
||||
(1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 2, MidpointRounding.AwayFromZero)
|
||||
Me.Amount_VAT_TELEPHON_70 = Math.Round(_Amount_Netto_TELEPHONE * RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue, 2, MidpointRounding.AwayFromZero)
|
||||
_Amount_Netto_TELEPHONE = value - Amount_VAT_TELEPHON_70
|
||||
Me.AmountNetto_TELEPHON_80 = Math.Round(_Amount_Netto_TELEPHONE * 0.8, 2, MidpointRounding.AwayFromZero)
|
||||
Me.AmountNetto_TELEPHON_20 = _Amount_Netto_TELEPHONE - Me.AmountNetto_TELEPHON_80
|
||||
Else
|
||||
Dim _Amount_Netto_TELEPHONE = Math.Round(Math.Round(value * 0.7, 2, MidpointRounding.AwayFromZero) / _
|
||||
(1), 0, MidpointRounding.AwayFromZero)
|
||||
Me.Amount_VAT_TELEPHON_70 = 0
|
||||
_Amount_Netto_TELEPHONE = value - Amount_VAT_TELEPHON_70
|
||||
Me.AmountNetto_TELEPHON_80 = Math.Round(_Amount_Netto_TELEPHONE * 0.8, 2, MidpointRounding.AwayFromZero)
|
||||
Me.AmountNetto_TELEPHON_20 = _Amount_Netto_TELEPHONE - Me.AmountNetto_TELEPHON_80
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property AmountNetto_TELEPHON_80 As Double
|
||||
Get
|
||||
Return _AmountNetto_TELEPHON_80
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountNetto_TELEPHON_80", _AmountNetto_TELEPHON_80, value)
|
||||
End Set
|
||||
End Property
|
||||
Property AmountNetto_TELEPHON_20 As Double
|
||||
Get
|
||||
Return _AmountNetto_TELEPHON_20
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("AmountNetto_TELEPHON_20", _AmountNetto_TELEPHON_20, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_VAT_TELEPHON_70 As Double
|
||||
Get
|
||||
Return _Amount_VAT_TELEPHON_70
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_VAT_TELEPHON_70", _Amount_VAT_TELEPHON_70, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Brutto_OTHER_DEFAULTVAT As Double
|
||||
Get
|
||||
Return _Amount_Brutto_OTHER_DEFAULTVAT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Brutto_OTHER_DEFAULTVAT", _Amount_Brutto_OTHER_DEFAULTVAT, value)
|
||||
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
||||
If Me.RegistryTelephoneParameters.VAT_DEFAULTVAT IsNot Nothing Then
|
||||
Amount_Netto_OTHER_DEFAULTVAT = Math.Round(value / (1 + RegistryTelephoneParameters.VAT_DEFAULTVAT.KeyValue), 0, MidpointRounding.AwayFromZero)
|
||||
Amount_VAT_OTHER_DEFAULTVAT = Math.Round(value - Amount_Netto_OTHER_DEFAULTVAT, 0, MidpointRounding.AwayFromZero)
|
||||
Else
|
||||
Amount_Netto_OTHER_DEFAULTVAT = value
|
||||
Amount_VAT_OTHER_DEFAULTVAT = 0
|
||||
End If
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Netto_OTHER_DEFAULTVAT As Double
|
||||
Get
|
||||
Return _Amount_Netto_OTHER_DEFAULTVAT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Netto_OTHER_DEFAULTVAT", _Amount_Netto_OTHER_DEFAULTVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_VAT_OTHER_DEFAULTVAT As Double
|
||||
Get
|
||||
Return _Amount_VAT_OTHER_DEFAULTVAT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_VAT_OTHER_DEFAULTVAT", _Amount_VAT_OTHER_DEFAULTVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
Property Amount_Brutto_OTHER_NOVAT As Double
|
||||
Get
|
||||
Return _Amount_Brutto_OTHER_NOVAT
|
||||
End Get
|
||||
Set(value As Double)
|
||||
SetPropertyValue("Amount_Brutto_OTHER_NOVAT", _Amount_Brutto_OTHER_NOVAT, value)
|
||||
End Set
|
||||
End Property
|
||||
|
||||
ReadOnly Property RowTotalBrutto As Double
|
||||
Get
|
||||
Return Amount_Brutto_INTERNET + Amount_Brutto_OTHER_DEFAULTVAT + Amount_Brutto_OTHER_NOVAT + Amount_Brutto_PARKING + Amount_Brutto_TELEPHON
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
Reference in New Issue
Block a user