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

Merge Chris Lam's 'maint-scheme-progress' into maint.

Browse Source
This commit is contained in:
John Ralls
2018-10-29 13:06:25 -07:00
parent 105ea8e952 b59e209618
commit 263c5a40ea
5 changed files with 58 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
libgnucash/engine/test/test-extras.scm
View File

@@ -142,20 +142,20 @@
txn))
(define (gnc-pricedb-create currency commodity time64 value)
;; I think adding pricedb for a DMY date will clobber any existing
;; pricedb entry for that date.
(let ((price (gnc-price-create (gnc-get-current-book)))
(pricedb (gnc-pricedb-get-db (gnc-get-current-book))))
(gnc-price-begin-edit price)
(gnc-price-set-commodity price commodity)
(gnc-price-set-currency price currency)
(gnc-price-set-time64 price time64)
(gnc-price-set-source price PRICE-SOURCE-XFER-DLG-VAL)
(gnc-price-set-source-string price "test-price")
(gnc-price-set-typestr price "test")
(gnc-price-set-value price value)
(gnc-price-commit-edit price)
(gnc-pricedb-add-price pricedb price)))
;; does not check for pre-existing pricedb data on date
(unless (gnc-commodity-equiv currency commodity)
(let ((price (gnc-price-create (gnc-get-current-book)))
(pricedb (gnc-pricedb-get-db (gnc-get-current-book))))
(gnc-price-begin-edit price)
(gnc-price-set-commodity price commodity)
(gnc-price-set-currency price currency)
(gnc-price-set-time64 price time64)
(gnc-price-set-source price PRICE-SOURCE-XFER-DLG-VAL)
(gnc-price-set-source-string price "test-price")
(gnc-price-set-typestr price "test")
(gnc-price-set-value price value)
(gnc-price-commit-edit price)
(gnc-pricedb-add-price pricedb price))))
;; When creating stock transactions always put the stock account and the number
;; of shares second, using negative numbers for a sale. e.g., to buy 100 shares