stall 0.2.0 → 0.3.1

data/app/models/stall/models/property.rb

@@ -0,0 +1,20 @@
+module Stall
+  module Models
+    module Property
+      extend ActiveSupport::Concern
+
+      included do
+        self.table_name = 'stall_properties'
+
+        has_many :property_values, dependent: :destroy,
+                                   inverse_of: :property
+        accepts_nested_attributes_for :property_values, allow_destroy: true
+
+        has_many :variant_property_values, through: :property_values
+        has_many :variants, through: :variant_property_values
+
+        validates :name, presence: true
+      end
+    end
+  end
+end

data/app/models/stall/models/property_value.rb

@@ -0,0 +1,23 @@
+module Stall
+  module Models
+    module PropertyValue
+      extend ActiveSupport::Concern
+
+      included do
+        self.table_name = 'stall_property_values'
+
+        acts_as_orderable
+
+        belongs_to :property
+
+        has_many :variant_property_values, dependent: :destroy,
+                                           inverse_of: :property_value
+        has_many :variants, through: :variant_property_values
+
+        validates :property, :value, presence: true
+
+        alias_attribute :name, :value
+      end
+    end
+  end
+end

data/app/models/stall/models/variant.rb

@@ -0,0 +1,34 @@
+module Stall
+  module Models
+    module Variant
+      extend ActiveSupport::Concern
+
+      included do
+        self.table_name = 'stall_variants'
+
+        include Stall::Sellable
+
+        belongs_to :product
+
+        has_many :variant_property_values, dependent: :destroy,
+                                           inverse_of: :variant
+        accepts_nested_attributes_for :variant_property_values,
+                                      allow_destroy: true,
+                                      reject_if: :all_blank
+
+        has_many :property_values, through: :variant_property_values
+        has_many :properties, through: :property_values
+
+        monetize :price_cents, with_model_currency: :currency, allow_nil: false
+
+        delegate :name, :image, :image?, :vat_rate, to: :product, allow_nil: true
+
+        scope :published, -> { where(published: true) }
+
+        def currency
+          @currency ||= Money::Currency.new(Stall.config.default_currency)
+        end
+      end
+    end
+  end
+end

data/app/models/stall/models/variant_property_value.rb

@@ -0,0 +1,18 @@
+module Stall
+  module Models
+    module VariantPropertyValue
+      extend ActiveSupport::Concern
+
+      included do
+        self.table_name = 'stall_variant_property_values'
+
+        belongs_to :property_value
+        has_one :property, through: :property_value
+
+        belongs_to :variant
+
+        validates :property_value, :variant, presence: true
+      end
+    end
+  end
+end

data/app/models/variant.rb

@@ -0,0 +1,3 @@
+class Variant < ActiveRecord::Base
+  include Stall::Models::Variant
+end

data/app/models/variant_property_value.rb

@@ -0,0 +1,3 @@
+class VariantPropertyValue < ActiveRecord::Base
+  include Stall::Models::VariantPropertyValue
+end

data/app/services/stall/cart_credit_note_creation_service.rb

@@ -0,0 +1,40 @@
+module Stall
+  class CartCreditNoteCreationService < Stall::BaseService
+    attr_reader :cart
+
+    def initialize(cart)
+      @cart = cart
+    end
+
+    def call
+      if cart.remainder? && !adjustment_exists?
+        credit_note = create_credit_note!
+        create_adjustment_for!(credit_note)
+      end
+    end
+
+    private
+
+    def adjustment_exists?
+      cart.adjustments.any? { |adj| CartCreditNoteAdjustment === adj }
+    end
+
+    def create_credit_note!
+      cart.customer.credit_notes.create!(amount: cart.remainder)
+    end
+
+    def create_adjustment_for!(credit_note)
+      name = I18n.t(
+        'stall.credit_notes.source_cart_adjustment_label',
+        ref: credit_note.reference
+      )
+
+      cart.adjustments.create!(
+        type: 'CartCreditNoteAdjustment',
+        name: name,
+        price: credit_note.amount,
+        credit_note: credit_note
+      )
+    end
+  end
+end

data/app/services/stall/cart_payment_validation_service.rb

@@ -0,0 +1,28 @@
+module Stall
+  class CartPaymentValidationService < Stall::BaseService
+    attr_reader :cart
+
+    def initialize(cart)
+      @cart = cart
+    end
+
+    def call
+      cart.payment.pay!
+      send_payment_notification_emails!
+      create_credit_notes!
+    end
+
+    private
+
+    def send_payment_notification_emails!
+      Stall::CustomerMailer.order_paid_email(cart).deliver
+      Stall::AdminMailer.order_paid_email(cart).deliver
+    end
+
+    def create_credit_notes!
+      if cart.remainder?
+        Stall.config.service_for(:cart_credit_note_creation).new(cart).call
+      end
+    end
+  end
+end

data/app/services/stall/cart_update_service.rb

@@ -2,7 +2,7 @@ module Stall
   class CartUpdateService < Stall::BaseService
     attr_reader :cart, :params
 
-    def initialize(cart, params)
+    def initialize(cart, params = {})
       @cart = cart
       @params = params
     end
@@ -10,17 +10,28 @@ module Stall
     def call
       cart.update(params).tap do |saved|
         return false unless saved
-
-        # Recalculate shipping fee if available for calculation to ensure
-        # that the fee us always up to date when displayed to the customer
-        shipping_fee_service.call if shipping_fee_service.available?
+        refresh_associated_services!
       end
     end
 
+    def refresh_associated_services!
+      # Recalculate shipping fee if available for calculation to ensure
+      # that the fee us always up to date when displayed to the customer
+      shipping_fee_service.call if shipping_fee_service.available?
+
+      # Recalculate the credit usage amount if already used to avoid negative
+      # cart totals
+      credit_usage_service.ensure_valid_or_remove! if credit_usage_service.available? && credit_usage_service.credit_used?
+    end
+
     private
 
     def shipping_fee_service
-      @shipping_fee_service ||= Stall::ShippingFeeCalculatorService.new(cart)
+      @shipping_fee_service ||= Stall.config.service_for(:shipping_fee_calculator).new(cart)
+    end
+
+    def credit_usage_service
+      @credit_usage_service ||= Stall.config.service_for(:credit_usage).new(cart)
     end
   end
 end

data/app/services/stall/credit_usage_service.rb

@@ -0,0 +1,102 @@
+module Stall
+  class CreditUsageService < Stall::BaseService
+    attr_reader :cart, :params
+
+    def initialize(cart, params = {})
+      @cart = cart
+      @params = params
+    end
+
+    def call
+      return false unless enough_credit?
+
+      clean_credit_note_adjustments!
+
+      available_credit_notes.reduce(amount) do |missing_amount, credit_note|
+        break true if missing_amount.to_d == 0
+
+        used_amount = [credit_note.remaining_amount, missing_amount].min
+        add_adjustment(used_amount, credit_note)
+
+        missing_amount - used_amount
+      end
+    end
+
+    def amount
+      @amount ||= begin
+        amount = if params[:amount]
+          cents = BigDecimal.new(params[:amount]) * 100
+          Money.new(cents, cart.currency)
+        else
+          credit
+        end
+
+        [amount, cart.total_price].min
+      end
+    end
+
+    def credit
+      @credit ||= begin
+        credit = cart.customer.try(:credit, cart.currency) || Money.new(0, cart.currency)
+        Money.new(credit + credit_note_adjustments.map(&:price).sum.abs, cart.currency)
+      end
+    end
+
+    def enough_credit?
+      amount <= credit
+    end
+
+    def clean_credit_note_adjustments!
+      credit_note_adjustments.each do |adjustment|
+        cart.adjustments.destroy(adjustment)
+      end
+    end
+
+    # FIXME: Ducktyping ShippingFeeCalculatorService and use this method in
+    # CartUpdateService#refresh_associated_services! to test if credit notes exists
+    #
+    def available?
+      cart.respond_to?(:adjustments)
+    end
+
+    def credit_used?
+      credit_note_adjustments.any?
+    end
+
+    def credit_used
+      credit_note_adjustments.map(&:price).sum
+    end
+
+    def ensure_valid_or_remove!
+      if !enough_credit?
+        clean_credit_note_adjustments!
+      elsif cart.total_price.to_d < 0
+        @amount = credit_used
+        call
+      end
+    end
+
+    private
+
+    def available_credit_notes
+      @available_credit_notes ||= cart.customer.credit_notes
+        .for_currency(cart.currency)
+        .select(&:with_remaining_money?)
+    end
+
+    def add_adjustment(amount, credit_note)
+      cart.adjustments.create!(
+        type: 'CreditNoteAdjustment',
+        name: I18n.t('stall.credit_notes.adjustment_label', ref: credit_note.reference),
+        price: -amount,
+        credit_note: credit_note
+      )
+    end
+
+    def credit_note_adjustments
+      @credit_note_adjustments ||= cart.adjustments.select do |adjustment|
+        CreditNoteAdjustment === adjustment
+      end
+    end
+  end
+end

data/app/services/stall/payment_notification_service.rb

@@ -11,7 +11,7 @@ module Stall
 
     def call
       if gateway_response.valid?
-        send_payment_notification_emails! if gateway_response.notify
+        validate_cart! if gateway_response.process
       else
         raise UnknownNotificationError,
               "The payment notification request does not seem to come from " +
@@ -25,8 +25,9 @@ module Stall
 
     private
 
-    def cart
-      gateway_response.cart
+    def validate_cart!
+      service = Stall.config.service_for(:cart_payment_validation)
+      service.new(gateway_response.cart).call
     end
 
     def gateway_class
@@ -36,10 +37,5 @@ module Stall
     def gateway_response
       @gateway_response ||= gateway_class.response(request)
     end
-
-    def send_payment_notification_emails!
-      Stall::CustomerMailer.order_paid_email(gateway_response.cart).deliver
-      Stall::AdminMailer.order_paid_email(gateway_response.cart).deliver
-    end
   end
 end

data/app/services/stall/product_list_staleness_handling_service.rb

@@ -0,0 +1,33 @@
+module Stall
+  class ProductListStalenessHandlingService < Stall::BaseService
+    attr_reader :cart
+
+    def initialize(cart)
+      @cart = cart
+    end
+
+    def call
+      handle_line_items
+    end
+
+    private
+
+    def handle_line_items
+      cart.line_items.each do |line_item|
+        if stale?(line_item)
+          cart.line_items.delete(line_item) 
+        else
+          handle_valid_line_item(line_item)
+        end
+      end
+    end
+
+    def handle_valid_line_item line_item
+      # Override this method
+    end
+
+    def stale? line_item
+      line_item.sellable.nil? || !line_item.sellable.published?
+    end
+  end
+end

data/app/views/admin/addresses/_fields.html.haml

@@ -0,0 +1,9 @@
+= form.input :civility
+= form.input :first_name
+= form.input :last_name
+= form.input :address
+= form.input :address_details
+= form.input :zip
+= form.input :city
+= form.input :country
+= form.input :phone

data/app/views/admin/carts/_filters.html.haml

@@ -0,0 +1,17 @@
+= search_form_for @q, builder: SimpleForm::FormBuilder, url: @component.path, html: { data: { :'filters-form' => true } } do |form|
+  .row
+    .col-md-3
+      = form.input_field :payment_paid_at_null, as: :selectize, collection: [{ text: t('activerecord.enums.payment.state.paid'), value: '0' }, { text: t('activerecord.enums.payment.state.pending'), value: '1' }], placeholder: @component.model.human_attribute_name(:payment)
+
+    .col-md-3
+      = form.input_field :state_eq, as: :selectize, collection: DefaultCheckoutWizard.steps.map { |step| { text: t("activerecord.enums.cart.state.#{ step }"), value: step } }, placeholder: @component.model.human_attribute_name(:state)
+
+    .col-md-4
+      .input-group
+        %span.input-group-addon
+          %i.fa.fa-search
+
+        = form.input_field :reference_or_customer_email_cont, as: :string, placeholder: t('para.shared.search'), class: 'form-control'
+
+    .col-md-2
+      = form.submit t('para.shared.search'), class: 'btn btn-default btn-block'

data/app/views/admin/carts/_form.html.haml

@@ -0,0 +1,43 @@
+= para_form_for(resource) do |form|
+  = form.tabs do |tabs|
+    = tabs.tab :informations do
+      = form.input :reference
+      = form.input :total_price do
+        .input-group
+          = form.input_field :total_price, class: 'form-control', disabled: 'disabled'
+          %span.input-group-addon
+            = form.object.total_price.symbol
+
+      = form.actions
+
+    = tabs.tab :billing do
+      = form.input :customer, :as => :nested_one
+
+      = form.input :billing_address do
+        .nested-one-field
+          = form.simple_fields_for :billing_address, (form.object.billing_address || form.object.build_billing_address), nested_attribute_name: :billing_address do |nested_form|
+            = render partial: find_partial_for(Address, :fields), locals: { form: nested_form, parent: form.object }
+
+      = form.actions
+
+    = tabs.tab :shipping do
+      = form.input :shipment, :as => :nested_one
+
+      = form.input :shipping_address do
+        .nested-one-field
+          = form.simple_fields_for :shipping_address, (form.object.shipping_address || form.object.build_shipping_address), nested_attribute_name: :shipping_address do |nested_form|
+            = render partial: find_partial_for(Address, :fields), locals: { form: nested_form, parent: form.object }
+
+      = form.actions
+
+    = tabs.tab :payment do
+      = form.input :payment, :as => :nested_one
+
+      = form.actions
+
+    = tabs.tab :line_items do
+      = form.input :line_items, :as => :nested_many
+
+      = form.actions
+
+