OMS/kululaskusilppuri
2
0
Fork 0
Code Issues Pull Requests Projects Releases Activity

Korjaa vientien suunta Kitsaaseen tuodessa

Browse Source 
Kululaskut.fi kertoo maksettavan määrän ja Kitsas odottaa pankkitilille
tulevaa määrää, joten viennit menivät väärin päin. Kuluista siirtyi
rahaa pankkitilille ja tuloista pois sieltä. Tällä muutoksella kootut
CSV-tiedostot ovat Kitsaan odottamassa muodossa.
This commit is contained in:
Saku Laesvuori 2025-01-11 21:53:04 +02:00
parent 3fc5eb8ef8
commit 672addb270
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Kululaskusilppuri/Types.hs
View File

@ -36,10 +36,16 @@ instance ToNamedRecord Kululasku where
toNamedRecord Kululasku {..} = namedRecord toNamedRecord Kululasku {..} = namedRecord
[ referenceField .= referenceNumber [ referenceField .= referenceNumber
, submitterField .= submitter , submitterField .= submitter
, amountField .= amount -- Kitsas reads this as money to our bank account and kululaskut.fi
-- reports what we need to pay. Negating it makes them understand each other
, amountField .= negateBS amount
, descriptionField .= description , descriptionField .= description
, dateField .= paymentDate , dateField .= paymentDate
] ]
where negateBS bs = case BS.head bs of
-- 45 is the - character in ASCII/UTF-8
45 -> BS.tail bs
_ -> BS.cons 45 bs
instance DefaultOrdered Kululasku where instance DefaultOrdered Kululasku where
headerOrder _ = header [dateField, referenceField, submitterField, amountField, descriptionField] headerOrder _ = header [dateField, referenceField, submitterField, amountField, descriptionField]