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

Throw a better warning for dates before 1970 (#106242)

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16872 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Derek Atkins 2008-01-20 16:56:31 +00:00
parent 2d896028aa
commit 1db95753b7
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/import-export/qif-import/qif-to-gnc.scm
View File

@ -379,6 +379,7 @@
(qif-security (qif-xtn:security-name qif-xtn))
(qif-default-split (qif-xtn:default-split qif-xtn))
(qif-memo #f)
(qif-date (qif-xtn:date qif-xtn))
(qif-from-acct (qif-xtn:from-acct qif-xtn))
(qif-cleared (qif-xtn:cleared qif-xtn))
(n- (lambda (n) (gnc-numeric-neg n)))
@ -387,8 +388,24 @@
(n* (lambda (a b) (gnc-numeric-mul a b 0 GNC-DENOM-REDUCE)))
(n/ (lambda (a b) (gnc-numeric-div a b 0 GNC-DENOM-REDUCE))))
;; set properties of the whole transaction
(apply xaccTransSetDate gnc-xtn (qif-xtn:date qif-xtn))
;; Set properties of the whole transaction.
;; Set the transaction date.
(cond
((not qif-date)
(throw 'bad-date
"qif-import:qif-xtn-to-gnc-xtn"
"Missing transaction date."
#f
#f))
((< (list-ref qif-date 2) 1970)
(throw 'bad-date
"qif-import:qif-xtn-to-gnc-xtn"
"Invalid transaction year (~A)."
(list (list-ref qif-date 2))
#f))
(else
(apply xaccTransSetDate gnc-xtn (qif-xtn:date qif-xtn))))
;; fixme: bug #105
(if qif-payee