JAVÍTÁS árfolyamlekérdezés

This commit is contained in:
2019-02-13 15:58:32 +01:00
parent 788ea08e95
commit a61c0670c9
3 changed files with 11 additions and 3 deletions
+9 -1
View File
@@ -1,2 +1,10 @@
msbuild JUSTWIN.sln /t:Clean /p:Configuration=R64 msbuild JUSTWIN.sln /t:Clean /p:Configuration=R64 /verbosity:q
msbuild JUSTWIN.sln /t:Clean /p:Configuration=Debug /verbosity:q
msbuild JUSTWEB.sln /t:Clean /p:Configuration=R64 /verbosity:q
msbuild JUSTWEB.sln /t:Clean /p:Configuration=Debug /verbosity:q
msbuild WIN.sln /t:Clean /p:Configuration=Debug /verbosity:q
msbuild WIN.sln /t:Clean /p:Configuration=Release /verbosity:q
pause pause
+1 -1
View File
@@ -1,2 +1,2 @@
msbuild JUSTWIN.sln /t:Build /p:Configuration=Release /p:WarningLevel=0 /fl /flp:logfile=Nuvolar.log;append=true;verbosity=diagnostic;encoding=utf-8 msbuild JUSTWIN.sln /t:Build /p:Configuration=Release /p:WarningLevel=0 /m /verbosity:m
pause pause
@@ -1269,7 +1269,7 @@ Public Class GLAccountsVC
Private Sub aGetCurrencyRateGLAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetCurrencyRateGLAccounts.Execute Private Sub aGetCurrencyRateGLAccounts_Execute(sender As Object, e As SimpleActionExecuteEventArgs) Handles aGetCurrencyRateGLAccounts.Execute
Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace) Dim _ocur As Xpo.XPObjectSpace = TryCast(View.ObjectSpace, Xpo.XPObjectSpace)
Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts) Dim _GLAccounts As GLAccounts = TryCast(View.SelectedObjects(0), GLAccounts)
Dim _LiquidAssets As LiquidAssets = _ocur.CreateObject(Of LiquidAssets)
If _GLAccounts IsNot Nothing Then If _GLAccounts IsNot Nothing Then
Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(_ocur.Session, Dim _CurrencyRate_MNB_Collection = New XPCollection(Of CurrencyRate)(_ocur.Session,