|
@@ -145,8 +145,8 @@
|
|
|
(cond
|
|
(cond
|
|
|
((string= num "40817810503000266700") "Debit")
|
|
((string= num "40817810503000266700") "Debit")
|
|
|
((string= num "40817978803000110883") "Savings:EUR")
|
|
((string= num "40817978803000110883") "Savings:EUR")
|
|
|
- ((string= num "40817810203001534278") "Savings:Renov")
|
|
|
|
|
- ((string= num "40817810103001667025") "Savings:For credit")
|
|
|
|
|
|
|
+ ((string= num "40817810203001534278") "Savings:Kopilka")
|
|
|
|
|
+ ((string= num "40817810103001667025") "Saver")
|
|
|
(:overwise (concatenate 'string
|
|
(:overwise (concatenate 'string
|
|
|
(agets account :account-type)
|
|
(agets account :account-type)
|
|
|
":"
|
|
":"
|
|
@@ -167,7 +167,7 @@
|
|
|
(let ((desc (agets move :short-description)))
|
|
(let ((desc (agets move :short-description)))
|
|
|
(cond
|
|
(cond
|
|
|
((equal desc "P/O 001,40817810503000266700RC") "assets:Raiffeisen:Debit")
|
|
((equal desc "P/O 001,40817810503000266700RC") "assets:Raiffeisen:Debit")
|
|
|
- ((equal desc "P/O 001,40817810203001534278RC") "assets:Raiffeisen:Savings:Renov")
|
|
|
|
|
|
|
+ ((equal desc "P/O 001,40817810203001534278RC") "assets:Raiffeisen:Savings:Kopilka")
|
|
|
((equal desc "TINKOFF BANK CARD2CARD MOSCOW") "assets:Tinkoff:Debit")
|
|
((equal desc "TINKOFF BANK CARD2CARD MOSCOW") "assets:Tinkoff:Debit")
|
|
|
((equal (subseq desc 0 (min 7 (length desc))) "RBA ATM") "assets:Cash:RUB")
|
|
((equal (subseq desc 0 (min 7 (length desc))) "RBA ATM") "assets:Cash:RUB")
|
|
|
(t (if (string= "1" (agets move :type)) "income" "expenses")))))
|
|
(t (if (string= "1" (agets move :type)) "income" "expenses")))))
|