 
     stream
     |> IO.binstream(:line)
+    |> Stream.map(fn(x) -> clean_line(x) end)
     |> MyParser.parse_stream(headers: false)
     |> Stream.filter(fn(x) -> Enum.at(x, 6) == "203000" end)
     |> Stream.map(fn(x) ->
       case {Enum.at(x, 9), Enum.at(x, 10)} do
         {"D", ""} ->
-          [credit_id(Enum.at(x,  0), Enum.at(x,  1),
-                     Enum.at(x,  3), Enum.at(x,  2)),
+          [posting_id(Enum.at(x,  5), Enum.at(x,  0), Enum.at(x,  1),
+                      Enum.at(x,  3), Enum.at(x,  2), Enum.at(x, 4)),
            Enum.at(x,  5), Enum.at(x,  7), Enum.at(x, 28),
            Enum.at(x, 11),
            Enum.at(x, 54), Enum.at(x, 55), Enum.at(x, 56)]


  def populate(year) do
    files = generate_file_paths(@root_folder, year)

    with :ok <- check_files(files),
         {products , nil} <- populate_products(files.products_dbf),
         {prices   , nil} <- populate_prices(files.prices_dbf),
         {customers, nil} <- populate_customers(files.customers_dbf),

           Enum.at(x, 11),
           Enum.at(x, 54), Enum.at(x, 55), Enum.at(x, 56)]
        _ ->
          [posting_id(Enum.at(x,  5), Enum.at(x,  0), Enum.at(x,  1),
                      Enum.at(x,  3), Enum.at(x,  2), Enum.at(x,  4)),
           Enum.at(x,  5), Enum.at(x,  7), Enum.at(x, 28),
           "-" <> Enum.at(x, 11),
           Enum.at(x, 54), Enum.at(x, 55), Enum.at(x, 56)]
