ivanszabo/Nuvolar
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Árfolyam számolás javítás

Browse Source
This commit is contained in:
ivanszabo
2017-09-27 12:28:04 +02:00
parent ec3266bc99
commit 8109131541
2 changed files with 44 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Bank/GLBankVC.vb
+22 -22
View File
@@ -370,28 +370,28 @@ Public Class GLBankVC
_GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending))
_GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending))
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
For Each _GLRows In _GLRows_Collection
'// A deviza a fix és az MNB árfolyammal újra kell számolni mindent
RaiseEvent DoWork()
If _GLRows.InAmountDEV > 0 Then
Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
_GLBank.LiquidAssets_Main.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date))
_CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
If _CurrencyRate_MNB_Collection.Count > 0 Then
For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then
_GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 4, MidpointRounding.AwayFromZero)
_GLRows.AmountHUF = _GLRows.InAmountHUF
Exit For
End If
Next
End If
End If
Next
RaiseEvent FinalWork
_uow.CommitChanges()
'RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
'For Each _GLRows In _GLRows_Collection
' '// A deviza a fix és az MNB árfolyammal újra kell számolni mindent
' RaiseEvent DoWork()
' If _GLRows.InAmountDEV > 0 Then
' Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
' (_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
' _GLBank.LiquidAssets_Main.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date))
' _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
' If _CurrencyRate_MNB_Collection.Count > 0 Then
' For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
' If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then
' _GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 4, MidpointRounding.AwayFromZero)
' _GLRows.AmountHUF = _GLRows.InAmountHUF
' Exit For
' End If
' Next
' End If
' End If
'Next
'RaiseEvent FinalWork
'_uow.CommitChanges()
_GLRows_Collection = New XPCollection(Of GLRows) _
(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _
Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Cassa/GLCassaVC.vb
+22 -22
View File
@@ -913,28 +913,28 @@ Public Class GLCassaVC
_GLRows_Collection.Sorting.Add(New SortProperty("GetDate(GLHeader.DateExecution)", DB.SortingDirection.Ascending))
_GLRows_Collection.Sorting.Add(New SortProperty("InAmountDEV", DB.SortingDirection.Descending))
RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
For Each _GLRows In _GLRows_Collection
'// A deviza a fix és az MNB árfolyammal újra kell számolni mindent
RaiseEvent DoWork()
If _GLRows.InAmountDEV > 0 Then
Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
(_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
_GLCassa.LiquidAssets_Cassa.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date))
_CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
If _CurrencyRate_MNB_Collection.Count > 0 Then
For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then
_GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 4, MidpointRounding.AwayFromZero)
_GLRows.AmountHUF = _GLRows.InAmountHUF
Exit For
End If
Next
End If
End If
Next
RaiseEvent FinalWork
_uow.CommitChanges()
'RaiseEvent InitWork(1, 1, _GLRows_Collection.Count)
'For Each _GLRows In _GLRows_Collection
' '// A deviza a fix és az MNB árfolyammal újra kell számolni mindent
' RaiseEvent DoWork()
' If _GLRows.InAmountDEV > 0 Then
' Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate) _
' (_uow, CriteriaOperator.Parse("CurrencyName.ShortName=? and IsMNB=True and GetDate(DateValid)<=?", _
' _GLCassa.LiquidAssets_Cassa.CurrencyName.ShortName, _GLRows.GLHeader.DateExecution.Date))
' _CurrencyRate_MNB_Collection.Sorting.Add(New SortProperty("DateValid", DB.SortingDirection.Descending))
' If _CurrencyRate_MNB_Collection.Count > 0 Then
' For Each _CurrencyRate_MNB In _CurrencyRate_MNB_Collection
' If _CurrencyRate_MNB.DateValid.Date = _GLRows.GLHeader.DateExecution.Date Then
' _GLRows.InAmountHUF = Math.Round(_CurrencyRate_MNB.RateAverage * _GLRows.InAmountDEV, 4, MidpointRounding.AwayFromZero)
' _GLRows.AmountHUF = _GLRows.InAmountHUF
' Exit For
' End If
' Next
' End If
' End If
'Next
'RaiseEvent FinalWork
'_uow.CommitChanges()
_GLRows_Collection = New XPCollection(Of GLRows) _
(PersistentCriteriaEvaluationBehavior.InTransaction, _uow, _