brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Show specific symbol.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-18 23:20:14 +02:00
parent 2235df9295
commit ef73cecec5
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/bank-account.scm
View file

@ -44,6 +44,7 @@
bank-transaction-type
bank-transaction-account
bank-transaction-bank
bank-transaction-specsym
bank-accounts-member?
)

3
src/members-print.scm
View file

@ -395,7 +395,7 @@
(apply
table->list
(cons
(list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
(list "Id" "Date" "Amount" "" "VS" "SS" "Type" "Message" "Account" "Bank")
(map
(lambda (tr)
(list (bank-transaction-id tr)
@ -403,6 +403,7 @@
(sprintf "\t~A" (bank-transaction-amount tr))
(bank-transaction-currency tr)
(sprintf "\t~A" (bank-transaction-varsym tr))
(sprintf "\t~A" (bank-transaction-specsym tr))
(bank-transaction-type tr)
(bank-transaction-message tr)
(bank-transaction-account tr)