[Patch] reworked advanced-portfolio.scm

[Derek Atkins]

No, it hasn't made it into SVN.   Any chance you could apply it to
your sandbox and test it?    If it works for you could you let me know?
Then you could "svn revert" the advanced-portfoliio.scm so it doesn't
conflict when I do commit it.

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
>
>
> 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.
>> >
> _______________________________________________
> gnucash-devel mailing list
> gnucash-devel at gnucash.org
> https://lists.gnucash.org/mailman/listinfo/gnucash-devel
>



-- 
       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