1
0
فهرست منبع

[banks] fix total-amout value

Innocenty Enikeew 5 سال پیش
والد
کامیت
96f85a9618
2فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 1 1
      plugins/raiffeisen.lisp
  2. 1 1
      plugins/tinkoff.lisp

+ 1 - 1
plugins/raiffeisen.lisp

@@ -137,7 +137,7 @@
                           :commodity currency)
                           :commodity currency)
                  :total-price (unless (equal currency bill-currency)
                  :total-price (unless (equal currency bill-currency)
                                 (pta-ledger:make-amount
                                 (pta-ledger:make-amount
-                                 :quantity (* bill-amount -1)
+                                 :quantity (abs bill-amount)
                                  :commodity bill-currency)))
                                  :commodity bill-currency)))
                 (pta-ledger:make-posting
                 (pta-ledger:make-posting
                  :account account1
                  :account account1

+ 1 - 1
plugins/tinkoff.lisp

@@ -149,7 +149,7 @@
                                    :commodity currency)
                                    :commodity currency)
                           :total-price (unless (equal currency account-currency)
                           :total-price (unless (equal currency account-currency)
                                          (pta-ledger:make-amount
                                          (pta-ledger:make-amount
-                                          :quantity (* account-amount (if expense 1 -1))
+                                          :quantity account-amount
                                           :commodity account-currency)))
                                           :commodity account-currency)))
                          (pta-ledger:make-posting
                          (pta-ledger:make-posting
                           :account account1
                           :account account1