[Patch] reworked advanced-portfolio.scm
Andrew Sackville-West
andrew at farwestbilliards.com
Sat Feb 18 15:01:32 EST 2006
On Sat, 18 Feb 2006 10:20:44 -0500
Derek Atkins <warlord at MIT.EDU> wrote:
> This should have gone back to the list so Andrew can see it.
>
> -derek
>
> Quoting Eildert Groeneveld <Eildert.Groeneveld at fal.de>:
>
> > Derek
> >
> > not much luck I am afraid. patch make make install all wentrthrough nicely.
> > But this is the result:
> >
> > Anything else I could do?
again, a test data file would be ideal. I thought I was reproducing your error previously, but apparently not. AFAICT there is something unique to your data that I'm not understanding from the backtrace. Obviously, I don't want your personal data, but if you could provide a method for reliably reproducing this or a test data file, that would be great.
more inline
> >
> > greetings
> > Eildert
> >
> >
> >
> >
> > ;;; WARNING (wrong arguments for gnc:make-gnc-monetary: #f #<<gnc-numeric>
> > num: -736000 denom: 100>)
this says you've got a transaction with no currency. however, AFAICT, I have ensured there is always a currency (even if it might be the wrong one...).
> > In
> > /usr/local/share/gnucash/guile-modules/gnucash/report/advanced-portfolio.scm:
> > ...
> > 186: 51 (let* (# # # # ...) (if price-is-dirty #) (for-each # #) ...)
> > 315: 52* (if (or include-empty (not #)) (let* (# # # ...) (if # #) ...) ...)
> > 316: 53 (let* (# # # #) (if # #) (if show-symbol #) ...)
> > 316: 54* [gnc:monetary-neg ...
> > 317: 55* [gnc:sum-collector-commodity #<procedure #f #> # #<procedure #f #>]
I believe the first #<procedure #f #> is the problem, but can't figure out how you would be getting one of these. I *think* I've covered all cases before you get to this point so that this doesn't happen. Obviously I haven't. Are you sure the diff was applied properly? can I send you a complete copy of the report for you to plug in?
A
> > In /usr/local/share/gnucash/scm/commodity-utilities.scm:
> > 885: 56 (cond ((and foreign exchange-fn) (let (#) (foreign # # ...) ...))
> > (#t #f))
> > 886: 57 (let ((balance #)) (foreign (quote format) (lambda # #) ...) ...)
> > 887: 58* [#<procedure #f #> format #<procedure #f #> #f]
> > In /usr/local/share/gnucash/scm/report-utilities.scm:
> > 448: 59 (case action ((quote add) (add-commodity-value commodity
> > amount)) ...)
> > ...
> > 414: 60 [map #<procedure #f (pair)> ((#f #<procedure #f (action amount)>))]
> > In unknown file:
> > ?: 61* [#<procedure #f (pair)> (#f #<procedure #f (action amount)>)]
> > In /usr/local/share/gnucash/scm/report-utilities.scm:
> > 415: 62* [#<procedure #f (curr val)> #f #<<gnc-numeric> num: -736000 denom:
> > 100>]
> > In /usr/local/share/gnucash/scm/commodity-utilities.scm:
> > 890: 63 (if (gnc:commodity-equiv? domestic curr) (balance #
> > domestic ...) ...)
> > 892: 64 [#<procedure #f #> add # ...
> > 893: 65* [gnc:gnc-monetary-amount #f]
> > In unknown file:
> > ?: 66 (and (eq? (quote #) (record-type-descriptor obj)) (struct-ref obj
> > 1))
> > ?: 67* [eq? #<record-type <gnc-monetary>> ...
> > ?: 68* [record-type-descriptor #f]
> > ?: 69 (if (struct? obj) (struct-vtable obj) (error (quote not-a-record)
> > obj))
> > ...
> > ?: 70 [scm-error misc-error #f "~A ~S" (not-a-record #f) #f]
> > <unnamed port>: In procedure scm-error in expression (scm-error (quote
> > misc-error) #f ...):
> > <unnamed port>: not-a-record #f
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >>
> >> Thanks!
> >>
> >> -derek
> >>
> >> Quoting Eildert Groeneveld <Eildert.Groeneveld at fal.de>:
> >> > Andrew
> >> >
> >> > just wondering: did the patch make it into svn?
> >> >
> >> > cause if it did it did not solve my problem:
> >> >
> >> >
> >> >
> >> >
> >> > ;;; WARNING (wrong arguments for gnc:make-gnc-monetary: #f
> >> > #<<gnc-numeric> num: -736000 denom: 100>)
> >> > In
> >> > /usr/local/share/gnucash/guile-modules/gnucash/report/advanced-portfolio.
> >> >scm: ...
> >> > 184: 51 (let* (# # # # ...) (for-each # #) (moneyincoll # dividendcoll
> >> > #f) ...)
> >> > 275: 52* (if (or include-empty #) (let # # ...) ...)
> >> > 276: 53 (let (# # # #) (total-value # # #) (total-moneyin # moneyincoll
> >> > #f) ...)
> >> > 276: 54* [gnc:monetary-neg ...
> >> > 277: 55* [gnc:sum-collector-commodity #<procedure #f #> # #<procedure #f
> >> > #>] In /usr/local/share/gnucash/scm/commodity-utilities.scm:
> >> > 885: 56 (cond ((and foreign exchange-fn) (let (#) (foreign # # ...)
> >> > ...)) (#t #f))
> >> > 886: 57 (let ((balance #)) (foreign (quote format) (lambda # #) ...)
> >> > ...) 887: 58* [#<procedure #f #> format #<procedure #f #> #f]
> >> > In /usr/local/share/gnucash/scm/report-utilities.scm:
> >> > 448: 59 (case action ((quote add) (add-commodity-value commodity
> >> > amount)) ...)
> >> > ...
> >> > 414: 60 [map #<procedure #f (pair)> ((#f #<procedure #f (action
> >> > amount)>))] In unknown file:
> >> > ?: 61* [#<procedure #f (pair)> (#f #<procedure #f (action amount)>)]
> >> > In /usr/local/share/gnucash/scm/report-utilities.scm:
> >> > 415: 62* [#<procedure #f (curr val)> #f #<<gnc-numeric> num: -736000
> >> > denom: 100>]
> >> > In /usr/local/share/gnucash/scm/commodity-utilities.scm:
> >> > 890: 63 (if (gnc:commodity-equiv? domestic curr) (balance #
> >> > domestic ...) ...)
> >> > 892: 64 [#<procedure #f #> add # ...
> >> > 893: 65* [gnc:gnc-monetary-amount #f]
> >> > In unknown file:
> >> > ?: 66 (and (eq? (quote #) (record-type-descriptor obj)) (struct-ref
> >> > obj 1))
> >> > ?: 67* [eq? #<record-type <gnc-monetary>> ...
> >> > ?: 68* [record-type-descriptor #f]
> >> > ?: 69 (if (struct? obj) (struct-vtable obj) (error (quote
> >> > not-a-record) obj))
> >> > ...
> >> > ?: 70 [scm-error misc-error #f "~A ~S" (not-a-record #f) #f]
> >> > <unnamed port>: In procedure scm-error in expression (scm-error (quote
> >> > misc-error) #f ...):
> >> > <unnamed port>: not-a-record #f
> >
>
>
>
> --
> Derek Atkins, SB '93 MIT EE, SM '95 MIT Media Laboratory
> Member, MIT Student Information Processing Board (SIPB)
> URL: http://web.mit.edu/warlord/ PP-ASEL-IA N1NWH
> warlord at MIT.EDU PGP key available
>
> _______________________________________________
> gnucash-devel mailing list
> gnucash-devel at gnucash.org
> https://lists.gnucash.org/mailman/listinfo/gnucash-devel
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://lists.gnucash.org/pipermail/gnucash-devel/attachments/20060218/cf62244f/attachment.bin
More information about the gnucash-devel
mailing list