[ifrs-report] From Bug 798004 allow Cr cash to offset Dr fee

and remove invalid "dividend reinvestment" during short.
Gnucash · Nov 20, 2022 · c6611a4 · c6611a4
1 parent 13895e1
commit c6611a4
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/gnucash/report/reports/standard/ifrs-cost-basis.scm b/gnucash/report/reports/standard/ifrs-cost-basis.scm
@@ -198,24 +198,22 @@ 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
   (list
    (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)