|
Lines 596-608
Link Here
|
| 596 |
(else |
596 |
(else |
| 597 |
(apply xaccTransSetDate gnc-xtn (qif-xtn:date qif-xtn)))) |
597 |
(apply xaccTransSetDate gnc-xtn (qif-xtn:date qif-xtn)))) |
| 598 |
|
598 |
|
| 599 |
(unless qif-action |
|
|
| 600 |
(qif-import:log progress-dialog "qif-import:qif-xtn-to-gnc-xtn" |
| 601 |
(format #f (G_ "Missing QIF investment action for transaction dated ~a.") |
| 602 |
(qof-print-date (qif-date-to-time64 qif-date)))) |
| 603 |
(throw 'missing-action "qif-import:qif-xtn-to-gnc-xtn" "Missing investment action." |
| 604 |
#f #f)) |
| 605 |
|
| 606 |
;; fixme: bug #105 |
599 |
;; fixme: bug #105 |
| 607 |
(if qif-payee |
600 |
(if qif-payee |
| 608 |
(xaccTransSetDescription gnc-xtn qif-payee)) |
601 |
(xaccTransSetDescription gnc-xtn qif-payee)) |
|
Lines 743-748
Link Here
|
| 743 |
|
736 |
|
| 744 |
(if (not num-shares) (set! num-shares (gnc-numeric-zero))) |
737 |
(if (not num-shares) (set! num-shares (gnc-numeric-zero))) |
| 745 |
|
738 |
|
|
|
739 |
(unless qif-action |
| 740 |
(qif-import:log progress-dialog "qif-import:qif-xtn-to-gnc-xtn" |
| 741 |
(format #f (G_ "Missing QIF investment action for transaction dated ~a.") |
| 742 |
(qof-print-date (qif-date-to-time64 qif-date)))) |
| 743 |
(throw 'missing-action "qif-import:qif-xtn-to-gnc-xtn" "Missing investment action." |
| 744 |
#f #f)) |
| 745 |
|
| 746 |
;; Determine the extended price of all shares without commission. |
746 |
;; Determine the extended price of all shares without commission. |
| 747 |
(if xtn-amt |
747 |
(if xtn-amt |
| 748 |
;; Adjust for commission (if any). |
748 |
;; Adjust for commission (if any). |
