519 lines
20 KiB
VB.net
519 lines
20 KiB
VB.net
Imports System
|
|
Imports System.ComponentModel
|
|
|
|
Imports DevExpress.Xpo
|
|
Imports DevExpress.Data.Filtering
|
|
|
|
Imports DevExpress.ExpressApp.ConditionalAppearance
|
|
Imports DevExpress.ExpressApp
|
|
Imports DevExpress.Persistent.Base
|
|
Imports DevExpress.Persistent.BaseImpl
|
|
Imports DevExpress.Persistent.Validation
|
|
Imports System.Linq
|
|
Imports System.Linq.Expressions
|
|
|
|
'-- Bejövő megrendelés ---------------------------------------------------------------------------------------------------
|
|
<DefaultClassOptions()> _
|
|
<NavigationItem(False), CreatableItem(False)> _
|
|
<Appearance("Hide aOrderIn_ChangeRows when IsEditable=False", AppearanceItemType.Action, "OrderInHeader.IsEditable=False", TargetItems:="aOrderIn_ChangeRows", visibility:=Editors.ViewItemVisibility.Hide)> _
|
|
<DefaultProperty("DisplayName")> _
|
|
Public Class OrderInRows
|
|
Inherits BaseObject
|
|
Private _OrderInHeader As OrderInHeader ' -- Bejövő megrendelés fejléc
|
|
Private _OfferOutRows As OfferOutRows ' Kiemnő árajánlat sora
|
|
Private _RowGroup1 As String 'Szöveges csoportosítás (nem kötelező)
|
|
Private _RowGroup2 As String 'Szöveges másodlagos csoportosítás (nem kötelező)
|
|
Private _RowIndex As Long ' -- Számla sorindex
|
|
Private _Products As Products ' -- Termék
|
|
Private _QTT As Double '-- Megrendelt mennyiség (amit tőlünk rendelt a vevő)
|
|
Private _QTT_To As Double '-- Továbbrendelt mennyiség
|
|
Private _QTT_Storaged_Will As Double '-- Kitárolásra foglalt mennyiség
|
|
Private _QTT_Storaged As Double '-- Kiadott mennyiség
|
|
Private _QTT_DeliveryNoted As Double '-- Kiszállítózott mennyiség
|
|
Private _QTT_Invoiced As Double '-- Kiszámlázott mennyiség
|
|
Private _QTT_Process As Double '-- Kézzel beírható mennyiség a végrehajtáshoz (pld. mennyi legyen kitárolva ...)
|
|
|
|
Private _DividedOriginal As Long '-- 0: nincs bontva 1: fő sor 2: bontott sor
|
|
Private _DividedGUID As Guid '-- Az összekapcsoló GUID ami a bontáshoz kell
|
|
|
|
Private _ListPriceOriginalHUF As Double = 0
|
|
|
|
Private _ListPriceHUF As Double = 0 ' Egységár HUF (nettó !)
|
|
Private _ListPriceDEV As Double = 0 ' Egységár DEV (Nettó !)
|
|
Private _DiscountPriceHUF As Double = 0 'Kedvezmény összege HUF
|
|
Private _DiscountPriceDEV As Double = 0 'Kedvezmény összege DEV
|
|
Private _FinalPriceHUF As Double
|
|
Private _FinalPriceDEV As Double
|
|
Private _Description As String
|
|
Private _DescriptionPrivate As String
|
|
Private _QualityOption As QualityOption
|
|
|
|
Private _VAT As VAT 'ÁFA kód
|
|
|
|
Private _SumPriceNettoHUF As Double 'Netto sorösszess HUF
|
|
Private _SumPriceNettoDEV As Double 'Netto sorösszes DEV
|
|
Private _SumPriceVATHUF As Double 'ÁFA sorösszess HUF
|
|
Private _SumPriceVATDEV As Double 'ÁFA sorösszes DEV
|
|
Private _SumPriceBruttoHUF As Double 'Bruttó sorösszess HUF
|
|
Private _SumPriceBruttoDEV As Double 'Bruttó sorösszes DEV
|
|
|
|
|
|
'// Termeltetési szerződés összekapcsolása a bejövő megrendeléssel
|
|
Private _APCSheetByProducts As APCSheetByProducts 'Termékfinanszírozás !!!
|
|
Public Sub New(ByVal session As Session)
|
|
MyBase.New(session)
|
|
End Sub
|
|
Protected Overrides Sub OnSaving()
|
|
MyBase.OnSaving()
|
|
Me.RecalculateRows()
|
|
QTT = Math.Round(QTT, 4, MidpointRounding.AwayFromZero)
|
|
QTT_DeliveryNoted = Math.Round(QTT_DeliveryNoted, 4, MidpointRounding.AwayFromZero)
|
|
QTT_Invoiced = Math.Round(QTT_Invoiced, 4, MidpointRounding.AwayFromZero)
|
|
QTT_Process = Math.Round(QTT_Process, 4, MidpointRounding.AwayFromZero)
|
|
QTT_Storaged = Math.Round(QTT_Storaged, 4, MidpointRounding.AwayFromZero)
|
|
QTT_Storaged_Will = Math.Round(QTT_Storaged_Will, 4, MidpointRounding.AwayFromZero)
|
|
End Sub
|
|
Protected Overrides Sub OnSaved()
|
|
MyBase.OnSaved()
|
|
'//Termeltetési szerződési sor kalkulálása !!!
|
|
If APCSheetByProducts IsNot Nothing Then
|
|
APCSheetByProducts.FundingAmountUsedHUF = 0
|
|
Dim _OrderInRows As OrderInRows
|
|
Dim _OrderInRows_Collection As New XPCollection(Of OrderInRows)(Session, CriteriaOperator.Parse("APCSheetByProducts=?", APCSheetByProducts))
|
|
For Each _OrderInRows In _OrderInRows_Collection
|
|
APCSheetByProducts.FundingAmountUsedHUF += _OrderInRows.SumPriceBruttoHUF
|
|
Next
|
|
Dim _OrderInRowsOther As OrderInRowsOther
|
|
Dim _OrderInRowsOther_Collection As New XPCollection(Of OrderInRowsOther)(Session, CriteriaOperator.Parse("APCSheetByProducts=?", APCSheetByProducts))
|
|
For Each _OrderInRowsOther In _OrderInRowsOther_Collection
|
|
APCSheetByProducts.FundingAmountUsedHUF += _OrderInRowsOther.SumPriceBruttoHUF
|
|
Next
|
|
APCSheetByProducts.FundingAmountAvailableHUF = APCSheetByProducts.FundingAmountHUF - APCSheetByProducts.FundingAmountUsedHUF
|
|
|
|
APCSheetByProducts.Save()
|
|
Session.CommitTransaction()
|
|
End If
|
|
End Sub
|
|
Protected Overrides Sub OnDeleted()
|
|
MyBase.OnDeleted()
|
|
|
|
End Sub
|
|
Public Sub AddRows(ByVal _p_OrderInHeader As OrderInHeader)
|
|
' Sor hozzáadása a fejléchez, valamint árkalkuláció a sor termékére
|
|
Me.OrderInHeader = _p_OrderInHeader
|
|
Me.Products = _p_OrderInHeader.row_Products.Products
|
|
Me.QTT = _p_OrderInHeader.row_QTT
|
|
Me.QTT_Process = _p_OrderInHeader.row_QTT
|
|
Me.APCSheetByProducts = _p_OrderInHeader.row_APCSheetByProducts
|
|
Me.VAT = Me.Products.VAT
|
|
If _p_OrderInHeader.OrderInRows.Count = 0 Then
|
|
Me.RowIndex = 0
|
|
Else
|
|
Me.RowIndex = _p_OrderInHeader.OrderInRows.Count - 1
|
|
End If
|
|
|
|
|
|
' Vizsgáljuk. hogy van e árkalkulációja az ügyfélnek, ha van kalkulálunk ha nincs akkor a normál listaáron marad a termék
|
|
If Me.OrderInHeader.Customers.Pricing IsNot Nothing Then
|
|
If _p_OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then ' Ha a Deviza HUF
|
|
Me.ListPriceHUF = Me.OrderInHeader.Customers.Pricing.GetCurrentPriceNettoHUF(_p_OrderInHeader.row_Products.Products, _p_OrderInHeader.row_QTT) ' A kedvezményt tartalmazó listaár HUF-ban
|
|
Me.DiscountPriceHUF = 0 '_p_OrderInHeader.row_Products.Products.ListPriceOutHUF - Me.ListPriceHUF ' A kedvezmény összege HUF-ban
|
|
Else ' Ha a deviza nem HUF
|
|
Me.ListPriceDEV = Me.OrderInHeader.Customers.Pricing.GetCurrentPriceNettoDEV(_p_OrderInHeader.row_Products.Products, _p_OrderInHeader.row_QTT) ' A kedvezményt tartalmazó listaár DEV-ben
|
|
Me.DiscountPriceDEV = 0 '_p_OrderInHeader.row_Products.Products.ListPriceOutDEV - Me.ListPriceDEV ' A kedvezmény összege DEV-ben
|
|
End If
|
|
Else ' Ha nincs árkalkuláció akkor a normál listaáron lesz a termék
|
|
If _p_OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then
|
|
Me.ListPriceHUF = Me.Products.ListPriceOutHUF
|
|
Else
|
|
Me.ListPriceDEV = Me.Products.ListPriceOutDEV
|
|
End If
|
|
End If
|
|
If _p_OrderInHeader.row_o_ListPriceHUF > 0 Then
|
|
Me.ListPriceHUF = _p_OrderInHeader.row_o_ListPriceHUF
|
|
End If
|
|
If _p_OrderInHeader.row_o_ListPriceDEV > 0 Then
|
|
Me.ListPriceDEV = _p_OrderInHeader.row_o_ListPriceDEV
|
|
End If
|
|
|
|
If _p_OrderInHeader.row_DiscountPercent > 0 Then
|
|
Me.DiscountPriceHUF = Math.Round(Me.ListPriceHUF * ((_p_OrderInHeader.row_DiscountPercent / 100)), 0, MidpointRounding.AwayFromZero)
|
|
Me.DiscountPriceDEV = Math.Round(Me.ListPriceDEV * ((_p_OrderInHeader.row_DiscountPercent / 100)), 0, MidpointRounding.AwayFromZero)
|
|
End If
|
|
Session.CommitTransaction()
|
|
End Sub
|
|
Public Sub RemoveRows(ByVal _p_OrderInHeader As OrderInHeader, ByVal _p_ocur As Xpo.XPObjectSpace)
|
|
For Each _OrderInRows As OrderInRows In _p_OrderInHeader.OrderInRows
|
|
If _OrderInRows.RowIndex > Me.RowIndex Then
|
|
_OrderInRows.RowIndex -= 1
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
<Association("OrderInHeader", GetType(OrderInHeader))> _
|
|
Property OrderInHeader() As OrderInHeader
|
|
Get
|
|
Return _OrderInHeader
|
|
End Get
|
|
Set(ByVal value As OrderInHeader)
|
|
SetPropertyValue("OrderInHeader", _OrderInHeader, value)
|
|
End Set
|
|
End Property
|
|
Property OfferOutRows As OfferOutRows
|
|
Get
|
|
Return _OfferOutRows
|
|
End Get
|
|
Set(value As OfferOutRows)
|
|
SetPropertyValue("OfferOutRows", _OfferOutRows, value)
|
|
End Set
|
|
End Property
|
|
Property RowGroup1 As String
|
|
Get
|
|
Return _RowGroup1
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("RowGroup1", _RowGroup1, value)
|
|
End Set
|
|
End Property
|
|
Property RowGroup2 As String
|
|
Get
|
|
Return _RowGroup2
|
|
End Get
|
|
Set(value As String)
|
|
SetPropertyValue("RowGroup2", _RowGroup2, value)
|
|
End Set
|
|
End Property
|
|
Property RowIndex() As Long
|
|
Get
|
|
Return _RowIndex
|
|
End Get
|
|
Set(ByVal value As Long)
|
|
SetPropertyValue("RowIndex", _RowIndex, value)
|
|
End Set
|
|
End Property
|
|
<RuleRequiredField("", DefaultContexts.Save)> _
|
|
Property Products() As Products
|
|
Get
|
|
Return _Products
|
|
End Get
|
|
Set(ByVal value As Products)
|
|
SetPropertyValue("Products", _Products, value)
|
|
End Set
|
|
End Property
|
|
Property QTT() As Double
|
|
Get
|
|
Return _QTT
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT", _QTT, value)
|
|
End Set
|
|
End Property
|
|
Property QTT_To() As Double
|
|
Get
|
|
Return _QTT_To
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT_To", _QTT_To, value)
|
|
End Set
|
|
End Property
|
|
Property QTT_Storaged_Will As Double
|
|
Get
|
|
Return _QTT_Storaged_Will
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT_Storaged_Will", _QTT_Storaged_Will, value)
|
|
End Set
|
|
End Property
|
|
Property QTT_Storaged() As Double
|
|
Get
|
|
Return _QTT_Storaged
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT_Storaged", _QTT_Storaged, value)
|
|
End Set
|
|
End Property
|
|
Property QTT_DeliveryNoted() As Double
|
|
Get
|
|
Return _QTT_DeliveryNoted
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT_DeliveryNoted", _QTT_DeliveryNoted, value)
|
|
End Set
|
|
End Property
|
|
Property QTT_Invoiced() As Double
|
|
Get
|
|
Return _QTT_Invoiced
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT_Invoiced", _QTT_Invoiced, value)
|
|
End Set
|
|
End Property
|
|
<RuleRange("OrderInRows.QTT_Process_RangeRule", "OrderInRows_aGenerateStorageOutFromOrder_Context", 1, 999999999999)> _
|
|
Property QTT_Process As Double
|
|
Get
|
|
Return _QTT_Process
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("QTT_Process", _QTT_Process, value)
|
|
End Set
|
|
End Property
|
|
Property ListPriceHUF As Double
|
|
Get
|
|
Return _ListPriceHUF
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("ListPriceHUF", _ListPriceHUF, value)
|
|
End Set
|
|
End Property
|
|
Property ListPriceDEV As Double
|
|
Get
|
|
Return _ListPriceDEV
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("ListPriceDEV", _ListPriceDEV, value)
|
|
End Set
|
|
End Property
|
|
Property DiscountPriceHUF() As Double
|
|
Get
|
|
Return _DiscountPriceHUF
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("DiscountPriceHUF", _DiscountPriceHUF, value)
|
|
End Set
|
|
End Property
|
|
Property DiscountPriceDEV() As Double
|
|
Get
|
|
Return _DiscountPriceDEV
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetPropertyValue("DiscountPriceDEV", _DiscountPriceDEV, value)
|
|
End Set
|
|
End Property
|
|
ReadOnly Property FinalPriceDEV() As Double
|
|
Get
|
|
Return ListPriceDEV - DiscountPriceDEV
|
|
End Get
|
|
End Property
|
|
ReadOnly Property FinalPriceHUF() As Double
|
|
Get
|
|
Return ListPriceHUF - DiscountPriceHUF
|
|
End Get
|
|
End Property
|
|
<Size(-1)> _
|
|
Property Description() As String
|
|
Get
|
|
Return _Description
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetPropertyValue("Description", _Description, value)
|
|
End Set
|
|
End Property
|
|
<Size(-1)> _
|
|
Property DescriptionPrivate As String
|
|
Get
|
|
Return _DescriptionPrivate
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetPropertyValue("DescriptionPrivate", _DescriptionPrivate, value)
|
|
End Set
|
|
End Property
|
|
Property QualityOption As QualityOption
|
|
Get
|
|
Return _QualityOption
|
|
End Get
|
|
Set(value As QualityOption)
|
|
SetPropertyValue("QualityOption", _QualityOption, value)
|
|
End Set
|
|
End Property
|
|
|
|
Property VAT As VAT
|
|
Get
|
|
Return _VAT
|
|
End Get
|
|
Set(value As VAT)
|
|
SetPropertyValue("VAT", _VAT, value)
|
|
End Set
|
|
End Property
|
|
Property SumPriceNettoHUF As Double
|
|
Get
|
|
Return _SumPriceNettoHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("SumPriceNettoHUF", _SumPriceNettoHUF, value)
|
|
End Set
|
|
End Property
|
|
Property SumPriceNettoDEV As Double
|
|
Get
|
|
Return _SumPriceNettoDEV
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("SumPriceNettoDEV", _SumPriceNettoDEV, value)
|
|
End Set
|
|
End Property
|
|
Property SumPriceVATHUF As Double
|
|
Get
|
|
Return _SumPriceVATHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("SumPriceVATHUF", _SumPriceVATHUF, value)
|
|
End Set
|
|
End Property
|
|
Property SumPriceVATDEV As Double
|
|
Get
|
|
Return _SumPriceVATDEV
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("SumPriceVATDEV", _SumPriceVATDEV, value)
|
|
End Set
|
|
End Property
|
|
Property SumPriceBruttoHUF As Double
|
|
Get
|
|
Return _SumPriceBruttoHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("SumPriceBruttoHUF", _SumPriceBruttoHUF, value)
|
|
End Set
|
|
End Property
|
|
Property SumPriceBruttoDEV As Double
|
|
Get
|
|
Return _SumPriceBruttoDEV
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("SumPriceBruttoDEV", _SumPriceBruttoDEV, value)
|
|
End Set
|
|
End Property
|
|
Property ListPriceOriginalHUF As Double
|
|
Get
|
|
Return _ListPriceOriginalHUF
|
|
End Get
|
|
Set(value As Double)
|
|
SetPropertyValue("ListPriceOriginalHUF", _ListPriceOriginalHUF, value)
|
|
End Set
|
|
End Property
|
|
<VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
|
|
Property DividedOriginal As Long
|
|
Get
|
|
Return _DividedOriginal
|
|
End Get
|
|
Set(value As Long)
|
|
SetPropertyValue("DividedOriginal", _DividedOriginal, value)
|
|
End Set
|
|
End Property
|
|
<VisibleInDetailView(False), VisibleInLookupListView(False), VisibleInListView(False)>
|
|
Property DividedGUID As Guid
|
|
Get
|
|
Return _DividedGUID
|
|
End Get
|
|
Set(value As Guid)
|
|
SetPropertyValue("DividedGUID", _DividedGUID, value)
|
|
End Set
|
|
End Property
|
|
<VisibleInDetailView(False)>
|
|
<VisibleInListView(False)> _
|
|
<VisibleInLookupListView(False)> _
|
|
ReadOnly Property DisplayName As String
|
|
Get
|
|
Dim _DisplayName As String = ""
|
|
If Me.Products IsNot Nothing Then
|
|
_DisplayName = Me.Products.ProductNumber.ToString & ", " & Me.Products.ShortName.ToString
|
|
If OrderInHeader IsNot Nothing Then
|
|
_DisplayName += ", " & OrderInHeader.DocumentNumber
|
|
End If
|
|
End If
|
|
Return _DisplayName
|
|
End Get
|
|
End Property
|
|
ReadOnly Property DiscountPercent As Double
|
|
Get
|
|
Dim _DiscountPercent As Double = 0
|
|
If ListPriceHUF <> 0 Then
|
|
_DiscountPercent = (DiscountPriceHUF / ListPriceHUF) * 100
|
|
End If
|
|
Return Math.Round(_DiscountPercent, 2, MidpointRounding.AwayFromZero)
|
|
End Get
|
|
End Property
|
|
'// Termeltetési szerződés miatt
|
|
<DataSourceCriteria("APCSheetHeader.Customers.Oid='@This.OrderInHeader.Customers.Oid' and APCSheetHeader.CustomersFrom.Oid='@This.OrderInHeader.CustomersFrom.Oid' and APCSheetHeader.IsActive = True")>
|
|
Property APCSheetByProducts As APCSheetByProducts
|
|
Get
|
|
Return _APCSheetByProducts
|
|
End Get
|
|
Set(value As APCSheetByProducts)
|
|
SetPropertyValue("APCSheetByProducts", _APCSheetByProducts, value)
|
|
End Set
|
|
End Property
|
|
'--XPCollections
|
|
<VisibleInListView(False)> _
|
|
ReadOnly Property StorageComputed_Collection As XPCollection(Of StorageComputed)
|
|
Get
|
|
Dim _StorageComputed As XPCollection(Of StorageComputed)
|
|
_StorageComputed = New XPCollection(Of StorageComputed)(Session, CriteriaOperator.Parse("Products=? AND QTTFree>0 and Storage.CustomersFrom=?", Products, Me.OrderInHeader.CustomersFrom))
|
|
Return _StorageComputed
|
|
End Get
|
|
End Property
|
|
<VisibleInListView(False)> _
|
|
ReadOnly Property StorageOutRowsInRows_Collection As XPCollection(Of StorageOutRowsInRows)
|
|
Get
|
|
Return New XPCollection(Of StorageOutRowsInRows)(Session, CriteriaOperator.Parse("StorageOutRows.OrderInRows.Oid=?", Me.Oid))
|
|
End Get
|
|
End Property
|
|
<VisibleInDetailView(False), VisibleInListView(False), VisibleInLookupListView(False)> _
|
|
ReadOnly Property DeliveryNoteOutRows As XPCollection(Of DeliveryNoteOutRows)
|
|
Get
|
|
Return New XPCollection(Of DeliveryNoteOutRows)(Session, CriteriaOperator.Parse("StorageOutRowsInRows.StorageOutRows.OrderInRows=?", Me))
|
|
End Get
|
|
End Property
|
|
|
|
Sub RecalculateRows()
|
|
If Me.OrderInHeader Is Nothing Then Exit Sub
|
|
Dim _VATValue As Double = 0
|
|
If VAT IsNot Nothing Then
|
|
_VATValue = VAT.KeyValue
|
|
End If
|
|
If Me.APCSheetByProducts IsNot Nothing Then
|
|
Dim _InterestValue As Double = 0
|
|
Dim _DifferentDay As Double = 0
|
|
|
|
_InterestValue = Me.APCSheetByProducts.APCSheetHeader.APCParameters.InterestValue
|
|
_DifferentDay = DateDiff(DateInterval.Day, Me.OrderInHeader.DateExecution, Me.APCSheetByProducts.FundingDate)
|
|
If _DifferentDay > 0 And _InterestValue > 0 Then
|
|
If ListPriceOriginalHUF = 0 Then
|
|
ListPriceOriginalHUF = ListPriceHUF
|
|
End If
|
|
ListPriceHUF = ListPriceOriginalHUF + Math.Round(_DifferentDay / 36000 * _InterestValue * ListPriceOriginalHUF, 2, MidpointRounding.AwayFromZero)
|
|
End If
|
|
End If
|
|
|
|
Me.SumPriceNettoHUF = Math.Round(FinalPriceHUF * QTT, 0, MidpointRounding.AwayFromZero)
|
|
Me.SumPriceNettoDEV = Math.Round(FinalPriceDEV * QTT, 2, MidpointRounding.AwayFromZero)
|
|
|
|
Me.SumPriceVATHUF = Math.Round(Me.SumPriceNettoHUF * (_VATValue), 0, MidpointRounding.AwayFromZero)
|
|
Me.SumPriceVATDEV = Math.Round(Me.SumPriceNettoDEV * (_VATValue), 2, MidpointRounding.AwayFromZero)
|
|
|
|
Me.SumPriceBruttoHUF = Me.SumPriceNettoHUF + Me.SumPriceVATHUF
|
|
Me.SumPriceBruttoDEV = Me.SumPriceNettoDEV + Me.SumPriceVATDEV
|
|
End Sub
|
|
<Appearance("Hide DEV properties if HUF", "ViewItem", targetitems:="ListPriceDEV;DiscountPriceDEV;FinalPriceDEV", Context:="ListView", _
|
|
visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
|
|
Public Function RuleHUFMethod() As Boolean
|
|
If Me.OrderInHeader Is Nothing Then
|
|
Return False
|
|
Else
|
|
If Me.OrderInHeader.OrderInParameters Is Nothing Then
|
|
Return False
|
|
Else
|
|
If Me.OrderInHeader.OrderInParameters.CurrencyName Is Nothing Then
|
|
Else
|
|
If Me.OrderInHeader.OrderInParameters.CurrencyName.ShortName = "HUF" Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Function
|
|
End Class
|
|
|