From c6611a40bbc13c8fb8fdfe1fc75e35f5adadcc25 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sun, 20 Nov 2022 17:24:35 +0800 Subject: [PATCH] [ifrs-report] From Bug 798004 allow Cr cash to offset Dr fee and remove invalid "dividend reinvestment" during short. --- gnucash/report/reports/standard/ifrs-cost-basis.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/gnucash/report/reports/standard/ifrs-cost-basis.scm b/gnucash/report/reports/standard/ifrs-cost-basis.scm index 1ce7dcebd8..4172dfcf83 100644 --- a/gnucash/report/reports/standard/ifrs-cost-basis.scm +++ b/gnucash/report/reports/standard/ifrs-cost-basis.scm @@ -198,11 +198,11 @@ the split action field to detect capitalized fees on stock activity") (list N100 N100 N011 N000 N011 N000 N111 #f #t "Sell") (list N000 N000 N001 N000 N011 N100 N000 #f #f "Dividend") (list N001 N001 N001 N011 N000 N100 N000 #t #f "Dividend reinvestment (w/ remainder)") - (list N001 N001 N000 N011 N000 N100 N000 #t #f "Dividend reinvestment (w/o remainder)") + (list N001 N001 N110 N011 N000 N100 N000 #t #f "Dividend reinvestment (w/o remainder)") (list N000 N100 N001 N011 N000 N000 N000 #t #f "Return of Capital") (list N000 N001 N000 N000 N011 N100 N000 #t #f "Notional distribution") - (list N001 N000 N000 N011 N000 N000 N000 #f #f "Stock split") - (list N100 N000 N000 N011 N000 N000 N000 #f #f "Reverse split") + (list N001 N000 N110 N011 N000 N000 N000 #f #f "Stock split") + (list N100 N000 N110 N011 N000 N000 N000 #f #f "Reverse split") (list N100 N100 N001 N000 N011 N000 N111 #f #t "Reverse split w/ cash in lieu for fractionals"))) (define short-types @@ -210,12 +210,10 @@ the split action field to detect capitalized fees on stock activity") (list N100 N100 N001 N011 N000 N000 N000 #t #f "Short Sell") (list N001 N001 N110 N000 N011 N000 N111 #f #t "Cover Buy") (list N000 N000 N100 N000 N011 N001 N000 #f #f "Compensatory dividend") - (list N000 N000 N000 N011 N000 N000 N000 #t #f "Dividend reinvestment (w remainder)") - (list N000 N000 N000 N011 N000 N000 N000 #t #f "Dividend reinvestment (w/o remainder)") (list N000 N001 N100 N011 N000 N000 N000 #t #f "Compensatory return of capital") (list N000 N100 N000 N000 N011 N001 N000 #t #f "Compensatory notional distribution") - (list N100 N000 N000 N011 N000 N000 N000 #f #f "Stock split") - (list N001 N000 N000 N011 N000 N000 N000 #f #f "Reverse split") + (list N100 N000 N110 N011 N000 N000 N000 #f #f "Stock split") + (list N001 N000 N110 N011 N000 N000 N000 #f #f "Reverse split") (list N001 N001 N100 N000 N011 N000 N111 #f #t "Reverse split w/ cash in lieu for fractionals"))) (define (cmp amt neg zero pos)