Re: GnuCash reports via eguile - probably not
Derek Atkins wrote: > Quoting Derek Atkins : > [snip] >>> Can any Guile/Scheme experts help? > > I found some help, and here's some working code: > > ;#! /usr/bin/guile > (define fred "This is Fred") > > (define (foo bar) > (display fred) (newline) (display bar) (newline) > (display "and now via eval-string...") (newline) > (let ((string1 "(begin (display bar) (newline) (display fred) (newline) > (display bar) (newline))")) > (with-input-from-string string1 (lambda () (local-eval (read) > (the-environment > )) > (foo "Actual parameter") > > > Note that I added the 'begin' because the 'read' will only read in one > s-expression. You could theoretically read in multiple s-expressions > in a loop if you wanted. But this was easier. > > This code works for me. > > -derek > > I'm making progress with this, but I've hit another snag with local-eval. The following code gives an error (note the extra "(define x 42)": -- ;#! /usr/bin/guile (define fred "This is Fred") (define (foo bar) (let ((string1 "(begin (display fred) (newline) (display bar) \ (newline) (define x 42) (display x) (newline))")) (with-input-from-string string1 (lambda () (local-eval (read) (the-environment)) (foo "Actual parameter") -- gives -- ERROR: Bad define placement -- I found a mention of this issue at http://www.opensubscriber.com/message/guile-u...@gnu.org/9617568.html but I'm not sure whether to give up on local-eval, or just make a rule that the template code can't include 'define', which would be a bit limiting. Any ideas? cheers Chris -- Chris Dennis cgden...@btinternet.com Fordingbridge, Hampshire, UK ___ gnucash-devel mailing list gnucash-devel@gnucash.org https://lists.gnucash.org/mailman/listinfo/gnucash-devel
Re: FYO: changing OFX version from 102 to 103 breaks access to citigroup (secureofx2.bankhost.com) credit cards
Derek Atkins (warl...@mit.edu) said: > >> I reported this at https://bugzilla.redhat.com//show_bug.cgi?id=481084 > >> and they say "CANTFIX". > > > > Yes - it's fixed in current versions of libofx and aqbanking, but we > > can't put those versions on Fedora 9 without breaking the ABI. > > Does anything other than GnuCash use it? kmymoney2 and grisbi, in Fedora. (This problem only exists on Fedora 9, we have new enough versions on Fedora 10, and too-old versions on Fedora 8 and earlier.) Bill ___ gnucash-devel mailing list gnucash-devel@gnucash.org https://lists.gnucash.org/mailman/listinfo/gnucash-devel
Re: FYO: changing OFX version from 102 to 103 breaks access to citigroup (secureofx2.bankhost.com) credit cards
Bill Nottingham writes: > Archimerged Ark Submedes (archimer...@gmail.com) said: >> I reported this at https://bugzilla.redhat.com//show_bug.cgi?id=481084 >> and they say "CANTFIX". > > Yes - it's fixed in current versions of libofx and aqbanking, but we > can't put those versions on Fedora 9 without breaking the ABI. Does anything other than GnuCash use it? > Bill -derek -- 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 warl...@mit.eduPGP key available ___ gnucash-devel mailing list gnucash-devel@gnucash.org https://lists.gnucash.org/mailman/listinfo/gnucash-devel
Re: FYO: changing OFX version from 102 to 103 breaks access to citigroup (secureofx2.bankhost.com) credit cards
Archimerged Ark Submedes (archimer...@gmail.com) said: > I reported this at https://bugzilla.redhat.com//show_bug.cgi?id=481084 > and they say "CANTFIX". Yes - it's fixed in current versions of libofx and aqbanking, but we can't put those versions on Fedora 9 without breaking the ABI. Bill ___ gnucash-devel mailing list gnucash-devel@gnucash.org https://lists.gnucash.org/mailman/listinfo/gnucash-devel
Problems testing the sign of a commodity collector.
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/8QAHwAAAQUBAQEBAQEAAAECAwQFBgcICQoL/8QAtRAA AgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkK FhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWG h4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl 5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQECAwQFBgcICQoL/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:http://schemas.microsoft.com/office/outlook/12/electronicbusinesscards"; ver="1.0" layout="left" bgcolor="ff">Mobile REV:20081112T144631Z END:VCARD ___ gnucash-devel mailing list gnucash-devel@gnucash.org https://lists.gnucash.org/mailman/listinfo/gnucash-devel
RE: Problems testing the sign of a commodity collector.
Found the solution. The following seems to work. ;; Add the net income / net loss line. (add-subtotal-line my-table (if (gnc-numeric-negative-p (gnc:gnc-monetary-amount (gnc:sum-collector-commodity net-income report-commodity exchange-fn))) (string-append (_ "Net loss") period-for) (string-append (_ "Net income") period-for) ) #f net-income) Thanks. From: Charles Day [mailto:ceda...@gmail.com] Sent: January-26-09 4:09 AM To: michael.mc...@sympatico.ca Subject: Re: Problems testing the sign of a commodity collector. ... Shouldn't the argument to gnc-numeric-negative-p be a gnc_numeric type rather than a commodity collector? The commodity collector (net-income) will be full of amounts in various currencies; it seems like you'd have to sum them all all up into the reporting currency first before checking the sign. ___ gnucash-devel mailing list gnucash-devel@gnucash.org https://lists.gnucash.org/mailman/listinfo/gnucash-devel