[Patch] reworked advanced-portfolio.scm

[Eildert Groeneveld]

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


greetings

Eildert

On Saturday 18 February 2006 06:56, Andrew Sackville-West wrote:
> On Fri, 17 Feb 2006 19:58:24 -0700
>
> Mark Johnson <mrj001 at shaw.ca> wrote:
> > Andrew Sackville-West wrote:

> > a new house, I've fallen behind in recording real transactions and have
> > not yet determined if these use cases work in 1.8.12.
> >