79 lines
2.3 KiB
VB.net
79 lines
2.3 KiB
VB.net
Imports System.ComponentModel
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
|
|
<DefaultClassOptions()>
|
|
<NavigationItem("FinancialStock")>
|
|
<DefaultProperty("FullBankAccount")>
|
|
Public Class BankInformation '-- Bankok !
|
|
Inherits BaseObject
|
|
Private _LiquidAssets As LiquidAssets
|
|
Private _SWIFT As String
|
|
Private _IBAN As String
|
|
Private _AccountNumber As String
|
|
Private _CurrencyName As CurrencyName
|
|
Private _GIROInfo As GIROInfo
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
End Sub
|
|
Property LiquidAssests As LiquidAssets
|
|
Get
|
|
Return _LiquidAssets
|
|
End Get
|
|
Set(ByVal value As LiquidAssets)
|
|
SetPropertyValue("LiquidAssests", _LiquidAssets, value)
|
|
End Set
|
|
End Property
|
|
Property SWIFT As String
|
|
Get
|
|
Return _SWIFT
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetPropertyValue("SWIFT", _SWIFT, value)
|
|
End Set
|
|
End Property
|
|
Property IBAN As String
|
|
Get
|
|
Return _IBAN
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetPropertyValue("IBAN", _IBAN, value)
|
|
End Set
|
|
End Property
|
|
Property AccountNumber As String
|
|
Get
|
|
Return _AccountNumber
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetPropertyValue("AccountNumber", _AccountNumber, value)
|
|
If Session.IsObjectsLoading = False And Session.IsObjectsSaving = False Then
|
|
|
|
GIROInfo = Session.FindObject(Of GIROInfo)(CriteriaOperator.Parse("GIROID=?", Mid(AccountNumber, 1, 8)))
|
|
End If
|
|
End Set
|
|
End Property
|
|
Property CurrencyName As CurrencyName
|
|
Get
|
|
Return _CurrencyName
|
|
End Get
|
|
Set(ByVal value As CurrencyName)
|
|
SetPropertyValue("CurrencyName", _CurrencyName, value)
|
|
End Set
|
|
End Property
|
|
Property GIROInfo As GIROInfo
|
|
Get
|
|
Return _GIROInfo
|
|
End Get
|
|
Set(value As GIROInfo)
|
|
SetPropertyValue("GIROInfo", _GIROInfo, value)
|
|
End Set
|
|
End Property
|
|
ReadOnly Property FullBankAccount As String
|
|
Get
|
|
Return "IBAN: " & _IBAN & " " & _AccountNumber & " SWIFT: " & _SWIFT
|
|
End Get
|
|
End Property
|
|
End Class
|