JAVÍTÁS árfolyamlekérdezés

2019-02-13 15:58:32 +01:00
parent 788ea08e95
commit a61c0670c9
3 changed files with 11 additions and 3 deletions
@@ -1269,7 +1269,7 @@ Public Class GLAccountsVC
    Private Sub aGetCurrencyRateGLAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetCurrencyRateGLAccounts.Execute
        Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
        Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
-        Dim _LiquidAssets As LiquidAssets = _ocur.CreateObject(Of LiquidAssets)
+

        If _GLAccounts IsNot Nothing Then
            Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(_ocur.Session,