[Patch] reworked advanced-portfolio.scm

Andrew Sackville-West andrew at farwestbilliards.com
Thu Feb 23 13:31:48 EST 2006


On Sun, 19 Feb 2006 10:13:13 +0100
Eildert Groeneveld <Eildert.Groeneveld at fal.de> wrote:

> Andrew
> 
> I seem to know when the error occurs: I have a set of stocks and among them 
> one account
<<snipping personal data >>

it looks to me like that one account has no shares in it. It was amistake on my part using (not price) instead of price. That will be fixed. if you want to temporarily fix your local copy, seach for

(commod-currency (if (not price) (gnc:...

and replace "(not price)" with "price"  (no quotes please) and it should run properly. 

my mistake. sorry.

A
> 
> 
> 
> 
> 
> On Saturday 18 February 2006 21:01, Andrew Sackville-West wrote:
> > 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-portfoli
> > > >o.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-portf
> > > >> >olio. 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
> 
> -- 
> Eildert Groeneveld
> ===================================================
> Institute for Animal Breeding
> Mariensee 31535 Neustadt Germany
> Tel : (+49)(0)5034 871155 Fax : (+49)(0)5034 871239
> e-mail: eildert.groeneveld at fal.de http://vce.tzv.fal.de/index.pl
> http://www.tzv.fal.de/~eg/ http://apiis.tzv.fal.de/index.pl
> ===================================================
-------------- 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/20060223/1916761d/attachment.bin


More information about the gnucash-devel mailing list