 
     {bank, program} =
       [
-        "/home/hvaria/backup/MGP20/FIT#{year_month}.dbf"
+        "/home/hvaria/backup/MGP20/FIT#{short_code}.dbf"
       ]
       |> Enum.flat_map(fn x -> parse_dbf(x, code) end)
       |> combine_cash_splits(code)
       # |> Enum.sort_by(& &1.date, Date)
       |> Enum.into(%{}, fn x -> {x.id, x} end)
       |> compare_entries(
-        bank_csv("/home/hvaria/Downloads/Bank/#{folder}/20#{year_month}.csv", code),
+        bank_csv("/home/hvaria/Downloads/Bank/#{folder}/20#{short_code}.csv", code),
         []
       )
 
-    {rm_contras(bank), csv(Map.to_list(program))}
+    prev_month = Calendar.strftime(Date.new!(year, month - 1, 1), "%y%m")
+
+    {_, p} =
+      [
+        "/home/hvaria/backup/MGP20/FIT#{prev_month}.dbf"
+      ]
+      |> Enum.flat_map(fn x -> parse_dbf(x, code) end)
+      |> combine_cash_splits(code)
+      # |> Enum.sort_by(& &1.date, Date)
+      |> Enum.into(%{}, fn x -> {x.id, x} end)
+      |> compare_entries(
+        bank_csv("/home/hvaria/Downloads/Bank/#{folder}/20#{prev_month}.csv", code),
+        []
+      )
+
+    cur = {rm_contras(bank), csv(Map.to_list(program))}
+    prev = {csv(Map.to_list(p))}
+    [prev, cur]
   end
 
   defp csv(map) do


    if debit === "" do
      # Credit Entry
      r =
        Enum.find(program, :not_found, fn {_id, m} ->
          m.drcr === "C" and Decimal.compare(m.amount, credit) === :eq
        end)

      if r !== :not_found do
        {id, _} = r

  alias Mgp.Sync.DbaseParser
  alias Mgp.Utils

  def run(code, year, month) do
    short_code = Calendar.strftime(Date.new!(year, month, 1), "%y%m")

    folder =
      case code do
        "MB" -> "UMB"
