Invoice

[Mike Evans]

On Tuesday October 5 2010 20:05:10 David Langer wrote:
> The error, when applying the report parameters, is:
> 
> Report error
> 
> An error occurred while running the report
> 
> 
> Here is the code for that place, including some before 399:
> 
> 
> 
> (define (add-payment-row table used-columns split total-collector)
> 
>       (let* ((t (xaccSplitGetParent split))
> 
>      (currency (xaccTransGetCurrency t))
> 
>      ;; XXX Need to know when to reverse the value
> 
>      (amt (gnc:make-gnc-monetary currency (xaccSplitGetValue split)))
> 
>      (payment-style "grand-total")
> 
>      (row '()))
> 
>   (total-collector 'add
> 
>  (gnc:gnc-monetary-commodity amt)
> 
>  (gnc:gnc-monetary-amount amt))
> 
> >  (if (date-col used-columns)
> 
>     (addto! row
> 
>     (gnc-print-date (gnc-transaction-get-date-posted t))))
> 
> >         (if (description-col used-columns)
> 
>        (let* ((t (xaccSplitGetParent split))
> 
>                                (m1 (xaccSplitGetMemo split)))
> 
>                                (if (string= m1 "")( addto! row  (_
> "Payment,
> 
> > thank you"))
> 
>                                        ( addto! row  m1 ))))
> 
> 
> 
>  (gnc:html-table-append-row/markup!
> 
>  table
> 
>  payment-style
> 
>  (append (reverse row)
I assume the greater thans  ">" sneaked into the email reply as they're not 
part of the invoice code!
Mike E 


-- 
GPG Key: 1024D/050895C2
Keyserver: http://pgp.mit.edu/          
Search String: 0x050895C2