Correction : devises.

diff --git a/chart/Association_1901/Cyclofficine.Plan_comptable.hledger b/chart/Association_1901/Cyclofficine.Plan_comptable.hledger
index a0998f5..d37296e 100644 (file)
--- a/chart/Association_1901/Cyclofficine.Plan_comptable.hledger
+++ b/chart/Association_1901/Cyclofficine.Plan_comptable.hledger
@@ -18,7 +18,7 @@
 ; 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

diff --git a/hledger-print-csv.hs b/hledger-print-csv.hs
index efb7a6e..cac402a 100755 (executable)
--- a/hledger-print-csv.hs
+++ b/hledger-print-csv.hs
@@ -30,11 +30,12 @@ chomp = reverse . dropWhile isSpace . reverse . dropWhile isSpace
 
 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