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

Bug 799262 - Failed import QIF investment

Browse Source 
the qif-action check should apply to investment transactions only.
This commit is contained in:
Christopher Lam 2024-04-02 08:22:20 +08:00
parent 9f998892b5
commit b33b864c2f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnucash/import-export/qif-imp/qif-to-gnc.scm
View File

@ -596,13 +596,6 @@
(else (else
(apply xaccTransSetDate gnc-xtn (qif-xtn:date qif-xtn)))) (apply xaccTransSetDate gnc-xtn (qif-xtn:date qif-xtn))))
(unless qif-action
(qif-import:log progress-dialog "qif-import:qif-xtn-to-gnc-xtn"
(format #f (G_ "Missing QIF investment action for transaction dated ~a.")
(qof-print-date (qif-date-to-time64 qif-date))))
(throw 'missing-action "qif-import:qif-xtn-to-gnc-xtn" "Missing investment action."
#f #f))
;; fixme: bug #105 ;; fixme: bug #105
(if qif-payee (if qif-payee
(xaccTransSetDescription gnc-xtn qif-payee)) (xaccTransSetDescription gnc-xtn qif-payee))
@ -743,6 +736,13 @@
(if (not num-shares) (set! num-shares (gnc-numeric-zero))) (if (not num-shares) (set! num-shares (gnc-numeric-zero)))
(unless qif-action
(qif-import:log progress-dialog "qif-import:qif-xtn-to-gnc-xtn"
(format #f (G_ "Missing QIF investment action for transaction dated ~a.")
(qof-print-date (qif-date-to-time64 qif-date))))
(throw 'missing-action "qif-import:qif-xtn-to-gnc-xtn" "Missing investment action."
#f #f))
;; Determine the extended price of all shares without commission. ;; Determine the extended price of all shares without commission.
(if xtn-amt (if xtn-amt
;; Adjust for commission (if any). ;; Adjust for commission (if any).