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