; A.ZZZ:B.YYY:C.XXX 0 ; ABC. INTITULÉ OFFICIEL DU COMPTE
; ----
-D 1,000.00€ ; NOTE: précise le format de la devise.
+D 1.000,00€ ; NOTE: précise le format de la devise.
01/01 Initialisation des comptes
1.Capital 0 ; 1. COMPTES DE CAPITAUX
postingToCSV :: Posting -> CSV
postingToCSV p =
- map (\((Amount {aquantity=q,acommodity=c})) ->
- let amount = show q in
+ map (\(a@(Amount {aquantity=q,acommodity=c})) ->
+ let a_ = a{acommodity=""} in
+ let amount = showAmount a_ in
let commodity = c in
- let credit = if q < 0 then show $ negate q else "" in
- let debit = if q > 0 then show q else "" in
+ let credit = if q < 0 then showAmount $ negate a_ else "" in
+ let debit = if q > 0 then showAmount a_ else "" in
account:amount:commodity:credit:debit:status:comment:[])
amounts
where