IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Invert the F::Q price if there's already one in the other direction.

Browse Source 
We don't want to create prices in both directions on the same day.
This commit is contained in:
John Ralls 2015-09-01 14:56:19 -07:00
parent 890cfe2186
commit 157c7e30a5
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/scm/price-quotes.scm
View File

@ -411,6 +411,12 @@
(set! saved-price (gnc-pricedb-lookup-day pricedb
commodity currency
gnc-time))
(if (null? saved-price)
(begin
(set! saved-price (gnc-pricedb-lookup-day pricedb currency
commodity gnc-time))
(if (not (null? saved-price))
(set! price (gnc-numeric-invert(price))))))
(if (not (null? saved-price))
(begin
(gnc-price-begin-edit saved-price)