POS-Server/app/controllers/cash_registers_moves_controller.rb

class CashRegistersMovesController < ApplicationController
  before_action :set_cash_registers_move, only: [:show, :edit, :update, :destroy]
  before_action :set_payment_methods, only: [:new, :register_payment]

  # GET /cash_registers_moves/new
  def new
    @cash_registers_move = CashRegistersMove.new

    if params[:sale].present?
      @sale = Sale.find(params[:sale])
      @credito = Credit.activos.where(customer_id: @sale.customer_id).sum(:rest)
      @cash_registers_move.open_cash_register_id = @sale.open_cash_register_id
    elsif params[:products_return].present?
      @products_return = ProductsReturn.find(params[:products_return])
    end

    @cash_id = PaymentMethod.find_by(isCash: 1).id

    if @sale.present?
      if @sale.saletype == 'reserved'
        if @sale.parcial?
          # esto quiere decir que la venta ya tiene un anticipo, se debe mostrar modal
          # para abonar al apartado o liquidarlo
          @payments = CashRegistersMove.where(sale_id: @sale.id, status: 1)
          render 'liquidate_reserved_sale'
        else
          # registrar apartado
          @min_quantity_reserve = ((@pos_config.reserve_sale_percent / 100) * @sale.total).round
          @cash_registers_move.quantity = @min_quantity_reserve
          render 'new_sale_reserve'
        end
      else
        # Nueva venta
        render 'new'
      end
    elsif @products_return.present?
      @open_cash_register_id = session[:open_cash_register_id]
      render 'products_return_payment'
    end
  end

  # POST /cash_registers_moves
  # POST /cash_registers_moves.json
  # rubocop:disable Metrics/BlockLength
  def create
    @cash_registers_move = CashRegistersMove.new(cash_registers_move_params)
    @sale = Sale.find(params[:cash_registers_move][:sale_id]) if params[:cash_registers_move][:sale_id].present?
    @purchase = Purchase.find(params[:cash_registers_move][:purchase_id]) if params[:cash_registers_move][:purchase_id].present?
    credit = Credit.find_by_sale_id(@sale.id) if params[:cash_registers_move][:sale_id].present?
    @products_return = ProductsReturn.find(params[:cash_registers_move][:products_return_id]) if params[:cash_registers_move][:products_return_id].present?

    respond_to do |format|
      if !@cash_registers_move.valid?
        format.js
        format.json { render json: @cash_registers_move.errors, status: :unprocessable_entity }
      elsif @sale.present?
        # calcular cambio cuando aplica.
        @cash_registers_move.calculate_quantities
        @cash_registers_move.concept = :sale
        @cash_registers_move.move_type = :ingreso

        if credit.present?
          save_when_is_credit(@cash_registers_move, @sale)
          @cash_registers_move.open_cash_register_id = session[:open_cash_register_id]
        end

        if @sale.cash?
          @sale.update_attributes(status: :paid)
        elsif @sale.reserved?
          @cash_registers_move.status = :inactive
          @cash_registers_move.choose_concept_when_reserved
          @cash_registers_move.open_cash_register_id = current_user.usertype == 'C' ? session[:open_cash_register_id] : current_user.pointsale.get_open_cash_register.id
        end

        message = "movimiento de efectivo por venta con folio #{@cash_registers_move.sale.sale_code}"
        @cash_registers_move.audit_comment = message
        if @cash_registers_move.save
          format.js { flash[:success] = message }
        else
          format.js
          format.json { render json: @cash_registers_move.errors, status: :unprocessable_entity }
        end
      elsif @purchase.present?
        @cash_registers_move.move_type = :egreso
        @cash_registers_move.concept = :purchase
        @cash_registers_move.status = :inactive

        message = "movimiento de efectivo por compra con folio #{@cash_registers_move.purchase.purchase_code}"
        @cash_registers_move.audit_comment = message

        if @cash_registers_move.save
          format.html { redirect_to purchases_path, success: 'Movimiento de efectivo realizado correctamente.' }
        else
          format.js
          format.json { render json: @cash_registers_move.errors, status: :unprocessable_entity }
        end
      elsif @products_return.present?
        # calcular cambio cuando aplica.
        @cash_registers_move.calculate_quantities
        @cash_registers_move.move_type = :ingreso
        @cash_registers_move.concept = :products_return
        @cash_registers_move.sale_id = @cash_registers_move.products_return.sale_id
        @cash_registers_move.status = :inactive

        message = "movimiento de efectivo por devolución con folio #{@cash_registers_move.products_return.return_code}"
        @cash_registers_move.audit_comment = message
        if @cash_registers_move.save
          format.js { flash[:success] = message }
        else
          format.js
          format.json { render json: @cash_registers_move.errors, status: :unprocessable_entity }
        end
      end
    end
  end
  # rubocop:enable Metrics/BlockLength

  # DELETE /cash_registers_moves/1
  # DELETE /cash_registers_moves/1.json
  def destroy
    @cash_registers_move.destroy
    respond_to do |format|
      format.json { head :no_content }
      format.js { head :ok }
    end
  end

  def confirm_payments
    respond_to do |format|
      @sale = Sale.find(params[:sale_id]) if params[:sale_id].present?
      @products_return = ProductsReturn.find(params[:products_return_id]) if params[:products_return_id].present?

      if @sale.present?
        if CashRegistersMove.where(sale_id: @sale.id).update_all(status: 1)
          @sale.update_attributes(status: :paid)
          message = "Venta registrada correctamente."
        end
      elsif @products_return.present?
        CashRegistersMove.where(products_return_id: @products_return.id).update_all(status: 1)
        message = "Devolución registrada correctamente."
      end

      format.js { flash[:success] = message }
    end
  end

  # funcion que se manda llamar cuando se clickea en 'Abonar' al crear apartado
  def confirm_reserve
    respond_to do |format|
      @sale = Sale.find(params[:sale_id])
      if CashRegistersMove.where(sale_id: @sale.id).update_all(status: 1)
        @sale.update_attributes(status: :parcial)
        format.js { flash[:success] = "Apartado agregado al cliente #{@sale.customer.nick_name} correctamente." }
      end
    end
  end

  def add_payments_to_reserve
    respond_to do |format|
      @sale = Sale.find(params[:sale_id])
      @new_moves_array = Array.new
      @new_moves = CashRegistersMove.where(sale_id: @sale.id, status: 0)
      @new_moves.each do |move|
        @new_moves_array << move.id
      end
      if @new_moves.update_all(status: 1)
        # if @sale.reserve_debt == 0
        if @sale.reserve_debt <= 0
          @sale.update_attributes(status: :paid)
        end
        format.js { flash[:success] = "Abono al apartado #{@sale.sale_code} agregado correctamente." }
      end
    end
  end

  # rubocop:disable Metrics/BlockLength
  def delete_credit_payment
    respond_to do |format|
      payment = CreditPayment.find(params[:credit_payment_id])
      cashmoves = CashRegistersMove.where(credit_payment_id: payment.id)

      openregister = OpenCashRegister.find_by(id: cashmoves.first.open_cash_register_id)
      if openregister.open?
        payment.update_attributes(status: :cancelled)
        credit = Credit.find(params[:credit])
        sale = Sale.find(credit.sale_id)
        sum = payment.quantity + credit.rest
        if credit.total < sum
          credit.update_attributes(rest: credit.total)
          sale.update_attributes(status: :notpaid)
        else
          credit.update_attributes(rest: sum)
          if sale.total == credit.rest
            sale.update_attributes(status: :notpaid)
          end
        end
        cashmoves.each do |move|
          new_cash_move = move.dup
          new_cash_move.move_type = :egreso
          new_cash_move.save
        end
        format.html { redirect_to customer_sales_path(customer_id: payment.customer_id), notice: "Movimiento de efectivo realizado correctamente." }
        format.js { flash[:success] = "Movimiento de efectivo realizado correctamente." }
      else
        format.html { redirect_to customer_sales_path(customer_id: payment.customer_id), notice: "No se pudo realizar el movimiento." }
        format.js { flash[:success] = "NO se pudo realizar el movimiento." }
      end
    end
  end
  # rubocop:enable Metrics/BlockLength

  def add_quick_payment
    # type 1 es abono a credito, 2 es abono a apartado
    @type = params[:type].to_i
    if @type == 1
      debtors_ids = Credit.debtors
      @customers = Customer.find(debtors_ids.map { |m| m[0] })
    else
      @sales = Pointsale.find(current_user.pointsale_id).sales.where(saletype: 2, status: 3).select(:customer_id).distinct
      # rubocop:disable Style/SymbolProc
      @customers = Customer.find(@sales.map { |m| m.customer_id })
      # rubocop:enable Style/SymbolProc
    end
  end

  def create_quick_debt_payment
    @customer = Customer.find(params[:customer_id])
    @sale = @customer.sales.where('saletype = 0 and status != 1 and status != 2').order('date_sale DESC').last
    redirect_to new_cash_registers_move_path(sale: @sale, customer: @customer)
  end

  def set_payment_methods
    @is_cash = PaymentMethod.find_by(isCash: 1).id
    @is_credit_card = PaymentMethod.find_by(method: "Tarjeta de credito").id
    @is_debit_card = PaymentMethod.find_by(method: "Tarjeta de debito").id
    @is_transfer = PaymentMethod.find_by(method: "Transferencia bancaria").id
    @is_check = PaymentMethod.find_by(method: "Cheque").id
  end

  private

  # Use callbacks to share common setup or constraints between actions.
  def set_cash_registers_move
    @cash_registers_move = CashRegistersMove.find(params[:id])
  end

  # Never trust parameters from the scary internet, only allow the white list through.
  def cash_registers_move_params
    params.require(:cash_registers_move).permit(:payment_method_id, :quantity, :open_cash_register_id, :sale_id, :cardnumber, :ticket, :received, :change, :products_return_id, :bank_name, :check_number, :customer_account, :customer_code)
  end

  def save_when_is_credit(cash_registers_move, sale)
    if sale.paid?
      sale = Sale.credit_pending(sale.customer_id).first
    end
    credit = Credit.find_by(sale_id: sale.id)
    abono = cash_registers_move.quantity
    total_debt = Credit.activos.where(customer_id: sale.customer_id)
    @debt = total_debt.sum(:rest)
    cash_registers_move.concept = :credit_payment
    cash_registers_move.save

    if abono >= total_debt.sum(:rest) # => liquidacion de la deuda total
      nuevo_saldo = abono - total_debt.sum(:rest)
      total_debt.each do |c|
        sale = Sale.find_by_id(c.sale_id)
        CreditPayment.create(credit_id: c.id, customer_id: sale.customer_id, pointsale_id: current_user.pointsale_id, status: "active", date_payment: Date.today, user_id: current_user.id, quantity: c.rest, cash_registers_move_id: cash_registers_move.id)
        sale.update_attribute(:status, 2)
      end
      total_debt.update_all(rest: 0, status: 3)
      cash_registers_move.update_attributes(change: nuevo_saldo, quantity: abono - nuevo_saldo) if cash_registers_move.payment_method.isCash?

    elsif abono > credit.rest
      CreditPayment.create(credit_id: credit.id, customer_id: sale.customer_id, pointsale_id: current_user.pointsale_id, status: "active", date_payment: Date.today, user_id: current_user.id, quantity: credit.rest, cash_registers_move_id: cash_registers_move.id)
      abono -= credit.rest
      credit.update_attributes(rest: 0, status: 3)
      sale.update_attribute(:status, 2)
      if abono > 0
        new_debt(abono, cash_registers_move, sale)
      elsif cash_registers_move.payment_method.isCash?
        cash_registers_move.update_attributes(change: abono, quantity: cash_registers_move.quantity - abono)
      end
    else
      CreditPayment.create(credit_id: credit.id, customer_id: sale.customer_id, pointsale_id: current_user.pointsale_id, status: "active", date_payment: Date.today, user_id: current_user.id, quantity: abono, cash_registers_move_id: cash_registers_move.id)
      nuevo_saldo = credit.rest - abono
      credit.update_attribute(:rest, nuevo_saldo)
      sale.update_attribute(:status, 3)
    end
  end

  def new_debt(abono, cash_registers_move, sale)
    until abono.zero?
      next_sale = Sale.credit_pending(sale.customer_id).first
      if next_sale.present?
        credit = Credit.find_by(sale_id: next_sale.id)
        if abono < credit.rest
          cp = CreditPayment.create(credit_id: credit.id, customer_id: next_sale.customer_id, status: 0, date_payment: Date.today, user_id: current_user.id, quantity: abono, cash_registers_move_id: cash_registers_move.id)
          nuevo_saldo = credit.rest - abono
          abono = 0
          credit.update_attribute(:rest, nuevo_saldo)
          next_sale.update_attribute(:status, 3)
        else
          cp = CreditPayment.create(credit_id: credit.id, customer_id: next_sale.customer_id, status: 0, date_payment: Date.today, user_id: current_user.id, quantity: credit.rest, cash_registers_move_id: cash_registers_move.id)
          abono -= credit.rest
          credit.update_attributes(rest: 0, status: 3)
          next_sale.update_attribute(:status, 2)
        end
      else
        cash_registers_move.update_attribute(:change, abono)
        abono = 0
      end
    end
  end # new debt
end