1 files changed, 13 insertions, 0 deletions

diff --git a/lib/convert.ml b/lib/convert.ml
index cbdb90f..fb41020 100644
--- a/lib/convert.ml
+++ b/lib/convert.ml
@@ -1,5 +1,6 @@
 open Core
 open Ledger
+open Result.Let_syntax
 
 let virt_checking_acc = [ "Unfiled"; "Checking" ]
 let virt_savings_acc = [ "Unfiled"; "Savings" ]
@@ -162,3 +163,15 @@ let tx_from_current_acc euc_id (Ingcsv.Tx (base, spec)) =
                    details.counterparty_name
               |> add (String_label Desc_tag) details.description
               |> add (String_label Reference_tag) details.reference)
+
+let ba_from_current_acc (Ingcsv.Tx (base, _)) =
+  {
+    account = virt_checking_acc;
+    amount = Money.of_z base.resulting_balance;
+    labels = Labels.(empty |> add (Iban_label Account_tag) base.account);
+  }
+
+let les_from_current_acc euc_id tx =
+  let%map tx' = tx_from_current_acc euc_id tx in
+  let ba = ba_from_current_acc tx in
+  [ Bal_assert_item ba; Tx_item tx' ]