I'm having problems testing the sign of a commodity collector.
I've modified the income statement to show gross margin and EBITDA. I've
removed the option for multiple columns and put all the results in a single
table. It all works well except for the following:
The original scm code used this:
(report-line
(if standard-order?
exp-table
inc-table)
(string-append (_ "Net income") period-for)
(string-append (_ "Net loss") period-for)
net-income
(* 2 (- tree-depth 1)) exchange-fn #f #f
)
I'd like to replace it with:
(add-subtotal-line my-table
(if (gnc-numeric-negative-p (net-income))
(string-append (_ "Net loss") period-for)
(string-append (_ "Net income") period-for)
)
#f net-income)
Net-income is defined as
(set! net-income (gnc:make-commodity-collector))
Everything works but the if statement. What am I missing?
Thanks in advance.
Michael McKay
Web site: http://mjmhelp.com
Web log: http://mjmhelp.com/blog
Subscribe
BEGIN:VCARD
VERSION:2.1
X-MS-SIGNATURE:YES
N;LANGUAGE=en-ca:McKay;Michael;J.;;CD MBA
FN:Michael J. McKay CD MBA
ORG:MJM Consulting
TITLE:Principal
TEL;CELL;VOICE:(613) 724-8169
ADR;WORK;PREF:;;33 Ossington Ave.;Ottawa;ON;K1S 3B3;Canada
LABEL;WORK;PREF;ENCODING=QUOTED-PRINTABLE:33 Ossington Ave.=0D=0A=
Ottawa, ON=0D=0A=
K1S 3B3
X-MS-OL-DEFAULT-POSTAL-ADDRESS:2
URL;WORK:mjmhelp.com
EMAIL;PREF;INTERNET:michael.mc...@mjmhelp.com
PHOTO;TYPE=JPEG;ENCODING=BASE64:
/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQY
GBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYa
KCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAAR
CABgAEcDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAA
AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkK
FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWG
h4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl
5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREA
AgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYk
NOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOE
hYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk
5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD5pxS0UuKuwrgKAM9KvaTptzql2lvaRs7t
6DNex+FfhjbpbpJqJLSdSqD+tY1a0ae+5vSoSq7HiXkShN/lPt9dpxUZBHWvpTVfBunx2RSG
32jHBzXlnijwuLVXdE3Adu4rKOKUt0aVMLKCuefUVLNF5bkds1Hiulaq5yvQSiiimAoFPijM
kiogyzHAFJitvwXZi/8AFelWxHyyXCA/TNaS91Nij7zSPov4R+AINJ0SOa6jVrycBmbuAewN
einTFjTaiqFAwMVc0uNY4o0wAoUDirlwE4AzzXj/ABe8z20lC0UcJq9hIN4LDZ2FebeJIAsj
KRkGvXvEDJHG/XjivKPEh3+ax6DpWa+I0mrxPHNe00xX0mB8shyMDpXOOpRirDkHBr0jW4PP
ELDlhniuD1hAmqXIUYG816WHlfQ8evGzuUTRS4orpsc9x4Fdz8I7GK58VQXD3McT2jLIsTA5
lGcHH061xSivV/gFpK32ranctjNvGiqP94n9PlqsSuWlJjwvvVYo+hF8UaRaBI7i4AYj06Vd
XUIZnikSYeU3cntXmmueFdUvlaV9SWJg/EMVupLDjgcVag0e/wBP0m9Et1IBbwh1YgcOf4ce
2B+deHdpHvxWupteKfEOl2gKSXCgse/avLvEeoQT/wColR1buprN8O2V/wCJLy4kvrmJGUZV
ZV4J/lTLjSr4TvDcRQv5an97bpgD+lUo2d2ZTm5KyRjanKIwpY89AK5LxHZSRzG7Yr5czYC/
xDjqfrXWaqghhaYjc0YPB7msLxJKsulwOOshUgHtjOa6qEmppLqcVaCcG30OWIopcUV6fKef
clFer/s76h9k8XXNu7AJcW/Q9ypBH6E15Yq10nw/v/7L8XaZcsdqeaEY+zcf1rfEUuelJLsY
YatyVYt9z62vb6GJ0SJpS79VjbaB6msjxhLHF4Wuyg+TGOD1rN+1PbySz3CzOnLF41yqJ246
ms7xdEdQ0Ix2lxPaxMuc+W2Gz7Yr5i9z6vmSRyvhXU7S31aCzl2o80eVZDyp962vF989tZvE
s2d3sOfyryxo4dGnVmaV5i2FbYdzH+ddLqzyS+Hori4kffv2qG64qnFXuZRq6NNHPXmJonSQ
4D8H+tch4jmWS98iIYigG1QK6yTa0DbuuDg+hwa4R8sSWJJPJJr1cBRUpOfY8jHVuWKj3K5F
FPK80V6XszzlULCJUyKRgjgilRamVK74wuee52PoH4X+Ihq+kRLOwM8a+XIM9x3/ABrR16e3
gheIwzgE5byZWQH6gGvCvCOty+H9at7lHxGzBJEJ4ZTx/Wvc9R1ywlsXHmIHxyHxkV8vmGF+
r1dNmfVZbjPbUve3R5vM0QvHkt7QQxqCWcjJP41kaxq5vIbaAH93CCT7kmrninXY5Ea3tWBX
+Jx0rkEkMrbU5HrXPTpuWyNK1VJ7mzYTB7uGPAbnLZ6Ae9cnqEKRahdwxnKxTMn5Gt68vIdI
sGmcgyH7ozyxrjNNvGluZjO2WlYuT7162Fth3Z9dzycVesrroW2SirLJRXr8h5XOTIuOvSql
zesTst8Af3v8KTUJyCIEPbLH+lUjwvFc2Lxbi/Z0/mdOFwykueZqeGbJ9U8SadaZ3GadQST2
zkn8ga921bw0utXznTlE0a8ebGQVx7n1rxLwfame/d+AEQ5JOOO4z7jI/Gvcfg1q8d3o+q20
OR5dyGxnJCsuAOvqDXmKCqySkempumm4nJ6x4BeHJeV3x/CBgf8A165bVLVNFgeW4OFToPU1
77rUtvaWM0966xwRKWdm9K+ZvHGtnXtUZoVMdmhIiTufc+9dM4wpLQxu5vU5nUryfUbkyTHg
cKvZRUGwx4I+92q35YjUu3QUiREgs33j+lcj13NTQsLoPGEkPzDvRWaMxtlelFdEMXUguVM5
5YanJ3aP/9k=
X-MS-OL-DESIGN;CHARSET=utf-8:<card xmlns="http://schemas.microsoft.com/office/outlook/12/electronicbusinesscards"; ver="1.0" layout="left" bgcolor="ffffff"><img xmlns="" align="tleft" area="32" use="photo"/><fld xmlns="" prop="name" align="center" dir="ltr" style="b" color="000000" size="10"/><fld xmlns="" prop="title" align="center" dir="ltr" color="000000" size="8"/><fld xmlns="" prop="org" align="center" dir="ltr" style="b" color="000000" size="8"/><fld xmlns="" prop="addrwork" align="center" dir="ltr" color="000000" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="telcell" align="center" dir="ltr" color="000000" size="8"><label align="right" color="626262">Mobile</label></fld><fld xmlns="" prop="email" align="left" dir="ltr" color="000000" size="8"/><fld xmlns="" prop="webwork" align="center" dir="ltr" color="000000" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/><fld xmlns="" prop="blank" size="8"/></card>
REV:20081112T144631Z
END:VCARD
_______________________________________________
gnucash-devel mailing list
gnucash-devel@gnucash.org
https://lists.gnucash.org/mailman/listinfo/gnucash-devel
