diff --git a/gnucash/import-export/qif-imp/qif-to-gnc.scm b/gnucash/import-export/qif-imp/qif-to-gnc.scm index c67defab360..690fee02dd1 100644 --- a/gnucash/import-export/qif-imp/qif-to-gnc.scm +++ b/gnucash/import-export/qif-imp/qif-to-gnc.scm @@ -596,13 +596,6 @@ (else (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 (if qif-payee (xaccTransSetDescription gnc-xtn qif-payee)) @@ -743,6 +736,13 @@ (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. (if xtn-amt ;; Adjust for commission (if any).