68 lines
3.2 KiB
VB.net
68 lines
3.2 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
Imports System.Drawing
|
|
Imports DevExpress.ExpressApp.Utils
|
|
|
|
<DefaultClassOptions()> _
|
|
<Persistent("vv_WaitforRateDiff")> _
|
|
<NavigationItem(False), CreatableItem(False)> _
|
|
Public Class RateDiffView
|
|
Inherits XPLiteObject
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
End Sub
|
|
<Key(True), Persistent("Oid")> Public Oid As Guid
|
|
<Persistent("CustomersFrom")> Public CustomersFrom As CustomersFrom
|
|
<Persistent("PartnerType")> Public PartnerType As ePartnerType
|
|
<Persistent("Customers")> Public Customers As Customers
|
|
<Persistent("ConnectInfo")> Public ConnectInfo As String
|
|
<Persistent("DateExecution_Account")> Public DateExecution_Account As Date
|
|
<Persistent("CurrencyName_Account")> Public CurrencyName_Account As CurrencyName
|
|
<Persistent("AmountDEV_Account")> Public AmountDEV_Account As Double
|
|
<Persistent("BallanceDEV_Account")> Public BallanceDEV_Account As Double
|
|
<Persistent("CurrencyRate_Account")> Public CurrencyRate_Account As Double
|
|
<Persistent("LiquidAssets")> Public LiquidAssets As LiquidAssets
|
|
<Persistent("DateExecution")> Public DateExecution As Date
|
|
<Persistent("InAmountDEV")> Public InAmountDEV As Double
|
|
<Persistent("OutAmountDEV")> Public OutAmountDEV As Double
|
|
<Persistent("InAmountDEV2")> Public InAmountDEV2 As Double
|
|
<Persistent("OutAmountDEV2")> Public OutAmountDEV2 As Double
|
|
<Persistent("CurrencyRate")> Public CurrencyRate As Double
|
|
<Persistent("InAmountHUF")> Public InAmountHUF As Double
|
|
<Persistent("OutAmountHUF")> Public OutAmountHUF As Double
|
|
<Persistent("InAmountHUF_Account")> Public InAmountHUF_Account As Double
|
|
<Persistent("OutAmountHUF_Account")> Public OutAmountHUF_Account As Double
|
|
<Persistent("InAmountHUF_Diff")> Public InAmountHUF_Diff As Double
|
|
<Persistent("OutAmountHUF_Diff")> Public OutAmountHUF_Diff As Double
|
|
<Persistent("GLRowsRatediff"), Browsable(False)> Public GLRowsRatediff As Double
|
|
<Persistent("RateDiffState"), Browsable(False)> Public RateDiffState As Long
|
|
<VisibleInDetailView(False)> _
|
|
ReadOnly Property BallanceRateDiffImage As Image
|
|
Get
|
|
If PartnerType = ePartnerType.eReceivables Then
|
|
If RateDiffState = -1 Then 'Árfolyam veszteség
|
|
Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image
|
|
Else 'Árfolyam nyereség
|
|
Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image
|
|
End If
|
|
ElseIf PartnerType = ePartnerType.ePayabels Then
|
|
If RateDiffState = 1 Then 'Árfolyam nyereség
|
|
Return ImageLoader.Instance.GetImageInfo("nav_up_green").Image
|
|
Else 'Árfolyam veszteség
|
|
Return ImageLoader.Instance.GetImageInfo("nav_down_red").Image
|
|
End If
|
|
Else
|
|
Return ImageLoader.Instance.GetImageInfo("bullet_ball_glass_blue").Image
|
|
End If
|
|
End Get
|
|
End Property
|
|
End Class
|