defmodule FIN.Index do
  use N2O, with: [:n2o, :nitro]
  use FORM, with: [:form]
  use BPE
  require KVS
  require ERP
  require Logger

  def accountsHeader() do
    panel(
      id: :header,
      class: :th,
      body: [
        panel(class: :column33, body: "Account"),
        panel(class: :column10, body: "Type"),
        panel(class: :column2, body: "Ballance")
      ]
    )
  end

  def txsHeader() do
    panel(
      id: :header,
      class: :th,
      body: [
        panel(class: :column66, body: "Account"),
        panel(class: :column10, body: "Amount"),
        panel(class: :column10, body: "Datetime")
      ]
    )
  end

  def pushAccounts(cn) do

     account = ERP."Acc"(id: cn ++ '/local')

     NITRO.insert_bottom(
        :accountsRow,
        FIN.Rows.Account.new(FORM.atom([:row, :account, cn]), account)
      )

     cn
  end

  def pushTxs(cn) do

    for i <- :kvs.feed('/fin/tx/' ++ cn ++ '/local') do
      NITRO.insert_bottom(
        :txsRow,
        FIN.Rows.Transaction.new(FORM.atom([:row, :transaction, cn]), i)
      )
    end

    cn
  end

  def event(:init) do
    NITRO.clear(:frms)
    NITRO.clear(:ctrl)
    NITRO.clear(:accountsHead)
    NITRO.clear(:accountsRow)
    NITRO.clear(:txsHead)
    NITRO.clear(:txsRow)

    case N2O.user() do
      [] ->
        NITRO.hide(:head)

        PLM.box(
          PLM.Forms.Error,
          {:error, 1, "Not authenticated", "User must be authenticated in order to view account and transactions"}
        )

      ERP."Employee"(person: ERP."Person"(cn: id)) ->
        send self(), {:direct, {:txs, id} }
    end
  end

  def event({:txs, id}) do
    NITRO.insert_top(:accountsHead, FIN.Index.accountsHeader())
    NITRO.insert_top(:txsHead, FIN.Index.txsHeader())
    NITRO.update(:num, span(body: KVS.Index.parse(N2O.user())))
    NITRO.hide(:frms)
    id |> pushAccounts |> pushTxs
  end

  def event({:off, _}), do: NITRO.redirect("ldap.htm")
  def event(_), do: []
end