|
|
@@ -70,7 +70,8 @@
|
|
|
;; Formatting
|
|
|
(defvar *account-fuel* "expenses:Transport:Car:Gas")
|
|
|
(defvar *account-other* "expenses:Food:Snacks")
|
|
|
-(defvar *account-asset* "liabilities:Tinkoff:Platinum")
|
|
|
+(defvar *account-asset* "liabilities:Tinkoff:Credit:Platinum")
|
|
|
+(defvar *income-bonus* "income:bonus")
|
|
|
(defvar *account-bonus* "assets:Gazprom:Bonus")
|
|
|
(defvar *default-currency* "RUB")
|
|
|
|
|
|
@@ -128,6 +129,10 @@
|
|
|
:quantity bonus :commodity *default-currency*)))
|
|
|
(when (= type 1)
|
|
|
(list (pta-ledger:make-posting
|
|
|
+ :account *income-bonus*
|
|
|
+ :amount (pta-ledger:make-amount
|
|
|
+ :quantity (* -1 bonus) :commodity *default-currency*))
|
|
|
+ (pta-ledger:make-posting
|
|
|
:account *account-asset*
|
|
|
:amount (pta-ledger:make-amount
|
|
|
:quantity (* -1 total) :commodity *default-currency*))))))))
|
