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

Add period-based exchange rates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 20:59:04 +02:00
parent e9745bc64a
commit 2bbaa1da9f
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Makefile
View file

@ -253,7 +253,8 @@ bank-fio.o: bank-fio.import.scm
bank-fio.import.scm: $(BANK-FIO-SOURCES) bank-fio.import.scm: $(BANK-FIO-SOURCES)
MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm \ MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm \
dictionary.import.scm member-fees.import.scm dictionary.import.scm member-fees.import.scm \
period.import.scm
members-payments.so: members-payments.o members-payments.so: members-payments.o
members-payments.o: members-payments.import.scm members-payments.o: members-payments.import.scm

13
members-payments.scm
View file

@ -41,9 +41,18 @@
member-record member-record
members-base members-base
bank-fio bank-fio
dictionary dictionary
member-fees) member-fees
period)
;; Exchange rates
(define exchange-rates-lookup-table
(make-period-lookup-table
'(((2010 1) 25))))
;; Lookup CZK/EUR
(define (lookup-eur-rate)
(car (lookup-by-period exchange-rates-lookup-table)))
;; Extract probable member-id from transaction ;; Extract probable member-id from transaction
(define (transaction-extract-member-id transaction) (define (transaction-extract-member-id transaction)