amo_crm 0.2.2

data/lib/amo_crm/entities/error.rb

@@ -0,0 +1,13 @@
+module AmoCRM::Entities
+  class Error < Base
+    include HappyMapper
+
+    tag 'error'
+
+    element :uid,     String
+    element :moment,  Time
+    element :message, String
+
+    element :stack,   String
+  end
+end

data/lib/amo_crm/entities/feature.rb

@@ -0,0 +1,23 @@
+module AmoCRM::Entities
+  class Feature < Base
+    include CommonObject
+
+    tag 'feature'
+
+    attribute :goodUuid,    String
+
+    attribute :archived,    Boolean
+    attribute :isDefault,   Boolean
+
+    element   :shared,      Boolean
+
+    has_many  :attributes,  AmoCRM::Entities::Attribute
+    has_many  :barcodes,    AmoCRM::Entities::Barcode
+
+    def good universe
+      cache :good, universe do
+        universe.good.find goodUuid
+      end
+    end
+  end
+end

data/lib/amo_crm/entities/good.rb

@@ -0,0 +1,34 @@
+module AmoCRM::Entities
+  class Good < Base
+    include CommonObject
+    include AmoCRM::Entities::XmlFix
+
+    tag 'good'
+
+    attribute :isSerialTrackable, Boolean
+    attribute :buyPrice,          Float
+    attribute :buyCurrencyUuid,   String
+    attribute :minPrice,          Float
+    attribute :salePrice,         Float
+    attribute :saleCurrencyUuid,  String
+    attribute :weight,            Float
+    attribute :volume,            Float
+    attribute :parentUuid,        String
+    attribute :productCode,       String
+    attribute :uomUuid,           String
+
+    element   :code,              String
+    element   :salePrices,        AmoCRM::Entities::SalePrices
+
+    has_many  :attributes,        Attribute
+    element   :images,            AmoCRM::Entities::Images
+    element   :barcode,           AmoCRM::Entities::Barcode
+    # preferences
+
+    def features universe
+      cache :features, universe do
+        universe.features.where goodUuid: uuid
+      end
+    end
+  end
+end

data/lib/amo_crm/entities/good_folder.rb

@@ -0,0 +1,10 @@
+module AmoCRM::Entities
+  class GoodFolder < Base
+    include CommonObject
+
+    tag 'goodFolder'
+
+    attribute :productCode,   String
+    attribute :parentUuid,    String
+  end
+end

data/lib/amo_crm/entities/good_ref.rb

@@ -0,0 +1,12 @@
+module AmoCRM::Entities
+  class GoodRef < Base
+    include HappyMapper
+
+    tag 'goodRef'
+
+    attribute :uuid,  String
+    attribute :name,  String
+    attribute :code,  String
+    attribute :objectType, String
+  end
+end

data/lib/amo_crm/entities/image.rb

@@ -0,0 +1,21 @@
+module AmoCRM::Entities
+  class Image < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    tag 'image'
+
+    attribute :created,  Time
+    attribute :updated,  Time
+    attribute :updatedBy,  String
+    attribute :name,  String
+    attribute :tinyUuid, String
+    attribute :filename, String
+    attribute :miniatureUuid, String
+
+    attribute :accountUuid, String
+    attribute :accountId, String
+    attribute :uuid, String
+    attribute :externalcode, String
+  end
+end

data/lib/amo_crm/entities/images.rb

@@ -0,0 +1,10 @@
+module AmoCRM::Entities
+  class Images < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    tag 'images'
+
+    has_many :image, AmoCRM::Entities::Image
+  end
+end

data/lib/amo_crm/entities/lead.rb

@@ -0,0 +1,28 @@
+module AmoCRM::Entities
+  class Lead
+    include Virtus.model
+    attribute :name, String
+    attribute :date_create, Time
+    attribute :last_modified, Time
+    attribute :status_id, Integer
+    attribute :price, Integer
+    attribute :request_id, Integer
+    attribute :tags, Array[String]
+    # responsible_user_id
+
+
+    def attributes_for_update
+      {
+        name: name,
+        date_create: date_create.to_i,
+        last_modified: last_modified.to_i,
+        request_id: request_id,
+        # status_id: status_id,
+        price: price,
+        custom_fields: custom_fields,
+        # tags: tags,
+        visitor_uid: visitor_uid,
+      }
+    end
+  end
+end

data/lib/amo_crm/entities/my_company.rb

@@ -0,0 +1,12 @@
+module AmoCRM::Entities
+  # https://online.moysklad.ru/exchange/rest/ms/xml/MyCompany/list
+  class MyCompany < Base
+    include AmoCRM::Entities::CompanyConcern
+
+    tag 'myCompany'
+
+    attribute :director,    String
+    attribute :chiefAccountant, String
+
+  end
+end

data/lib/amo_crm/entities/page.rb

@@ -0,0 +1,5 @@
+module AmoCRM::Entities
+  class Page < Struct.new(:items, :total, :start, :count)
+
+  end
+end

data/lib/amo_crm/entities/price.rb

@@ -0,0 +1,15 @@
+module AmoCRM::Entities
+  class Price < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    def self.from_money money
+      p = new
+      p.sumInCurrency = p.sum = money.cents
+      p
+    end
+
+    attribute :sumInCurrency, Float
+    attribute :sum,           Float
+  end
+end

data/lib/amo_crm/entities/price_type.rb

@@ -0,0 +1,13 @@
+module AmoCRM::Entities
+  class PriceType < Base
+    include CommonObject
+    include AmoCRM::Entities::XmlFix
+    tag 'priceType'
+
+    attribute :updated,     Time
+    attribute :updatedBy,   String
+    attribute :name,        String
+
+    attribute :index,       Integer
+  end
+end

data/lib/amo_crm/entities/sale_price.rb

@@ -0,0 +1,18 @@
+module AmoCRM::Entities
+  class SalePrice < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    tag 'price'
+
+    attribute :currencyUuid,  String
+    attribute :priceTypeUuid, String
+    attribute :value, Float
+
+    def priceType universe
+      cache :priceType, universe do
+        universe.price_types.find priceTypeUuid
+      end
+    end
+  end
+end

data/lib/amo_crm/entities/sale_prices.rb

@@ -0,0 +1,10 @@
+module AmoCRM::Entities
+  class SalePrices < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    tag 'salePrices'
+
+    has_many :price, AmoCRM::Entities::SalePrice
+  end
+end

data/lib/amo_crm/entities/slot.rb

@@ -0,0 +1,10 @@
+module AmoCRM::Entities
+  # https://online.moysklad.ru/exchange/rest/ms/xml/Warehouse/list
+  class Slot < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    tag 'slot'
+
+  end
+end

data/lib/amo_crm/entities/stock_to.rb

@@ -0,0 +1,33 @@
+module AmoCRM::Entities
+  class StockTO < Base
+    include HappyMapper
+    include AmoCRM::Entities::XmlFix
+
+    tag 'stockTO'
+
+    attribute :productCode,  String
+    attribute :uomName,      String
+
+    attribute :quantity,     Float  # Доступный остаток на склада
+    attribute :reserve,      Float  # Сколько в резерве
+    attribute :stock,        Float  # Остаток на складе не считая резерва
+
+    attribute :inTransit,    Float
+    attribute :sumTotal,     Float
+    attribute :saleAmount,   Float
+    attribute :minimumBalance, Float
+    attribute :category,     String
+    attribute :externalCode, String
+    attribute :parentUuid,   String
+    attribute :defaultConsignment, Boolean
+    attribute :salePrice,   Float
+
+    # Есть только при showConsignments
+    attribute :consignmentName, String
+    attribute :consignmentUuid, String
+
+    element   :goodRef,  AmoCRM::Entities::GoodRef
+
+  end
+end
+

data/lib/amo_crm/entities/warehouse.rb

@@ -0,0 +1,15 @@
+module AmoCRM::Entities
+  # https://online.moysklad.ru/exchange/rest/ms/xml/Warehouse/list
+  class Warehouse < Base
+    include CommonObject
+
+    tag 'warehouse'
+
+    attribute :agentUuid,    String
+    attribute :archived,     Boolean
+    attribute :code,         String
+
+    element   :contact,      Contact
+    has_many  :slots,        Slot
+  end
+end

data/lib/amo_crm/entities/workflow.rb

@@ -0,0 +1,11 @@
+module AmoCRM::Entities
+  class Workflow < Base
+    include CommonObject
+    include AmoCRM::Entities::XmlFix
+
+    element :code, String
+    element :uuid, String
+
+    has_many :states, AmoCRM::Entities::WorkflowState, tag: :state
+  end
+end

data/lib/amo_crm/entities/workflow_state.rb

@@ -0,0 +1,8 @@
+module AmoCRM::Entities
+  class WorkflowState < Base
+    include CommonObject
+    include AmoCRM::Entities::XmlFix
+
+    element :uuid, String
+  end
+end

data/lib/amo_crm/entities/xml_fix.rb

@@ -0,0 +1,14 @@
+module AmoCRM::Entities::XmlFix
+  extend ::ActiveSupport::Concern
+
+  def to_xml builder = nil,default_namespace = nil,tag_from_parent = nil
+    unless builder
+      builder = Nokogiri::XML::Builder.new(encoding: 'utf-8')
+      write_out_to_xml = true
+    end
+
+    result = super builder, default_namespace, tag_from_parent
+
+    write_out_to_xml ? result.to_xml : result
+  end
+end

data/lib/amo_crm/errors.rb

@@ -0,0 +1 @@
+# nothing

data/lib/amo_crm/resources.rb

@@ -0,0 +1,18 @@
+module AmoCRM::Resources
+  mattr_accessor :resources
+
+  extend ActiveSupport::Autoload
+
+  def self.register_resource resource_class
+    self.resources ||= []
+    self.resources << resource_class
+  end
+
+  require_relative 'resources/base'
+  require_relative 'resources/indexed'
+  require_relative 'resources/companies'
+  require_relative 'resources/leads'
+  require_relative 'resources/contacts'
+  require_relative 'resources/account'
+  require_relative 'resources/custom_field'
+end

data/lib/amo_crm/resources/account.rb

@@ -0,0 +1,30 @@
+module AmoCRM::Resources
+  class Account < Base
+
+    def current
+      get
+    end
+
+    def get
+      parse client.get 'accounts/current'
+    end
+
+    def self.entity_class
+      AmoCRM::Entities::Account
+    end
+
+    def response_key
+      'account'
+    end
+
+    def self.resource_name
+      :account
+    end
+
+    private
+
+    def parse data
+      self.class.entity_class.new data[response_key]
+    end
+  end
+end

data/lib/amo_crm/resources/base.rb

@@ -0,0 +1,149 @@
+module AmoCRM::Resources
+  class Base
+    LIMIT_ROWS = 500
+
+    def self.inherited superclass
+      super
+      AmoCRM::Resources.register_resource superclass
+    end
+
+    # Возвращает этот-же ресурс только индексированный
+    #
+    # @return [AmoCRM::Resources::Indexed]
+    def self.indexed *args
+      # AmoCRM::Resources::Indexed.new new(*args)
+      new(*args)
+    end
+
+    def initialize client: nil
+      raise "Должен быть AmoCRM::Client" unless client.is_a? AmoCRM::Client
+      @client = client
+    end
+
+    def all
+      buffer = []
+      offset = 0
+      list = nil
+
+      while offset==0 || list.present?
+        list = client.get(list_path, limit_offset: offset, limit_rows: LIMIT_ROWS).contacts
+        offset += LIMIT_ROWS
+        buffer += list
+      end
+
+    rescue AmoCRM::Client::Error => err
+      raise err unless err.state == 204
+      buffer
+    end
+
+    # Возвращает список элементов как есть
+    #
+    # @return [Array of AmoCRM::Entities::Base]
+    def list params={}
+      parse_list client.get list_path, params
+    end
+
+    # Возвращает страницу со списком элементов
+    #
+    # @return [AmoCRM::Entities::Page]
+    def page params={}
+      parse_page client.get list_path, params
+    end
+
+    # Забираем элемент по id
+    #
+    # @return [AmoCRM::Entities::Base]
+    def get id=nil
+      parse client.get get_path, id: id
+    end
+
+    # Модифицируем элемент по id
+    #
+    # @return [AmoCRM::Entities::Base]
+    def update model
+      raise "Должна быть модель типа AmoCRM::Entities::Base" unless model.is_a? AmoCRM::Entities::Base
+      client.post set_path, model_to_request(model)
+    end
+
+    # Создаем запись
+    #
+    # @param [AmoCRM::Entities::Base]
+    #
+    # Возвращается созданная на сервере сущность
+    #
+    # @return [AmoCRM::Entities::Base]
+    def create model
+      raise "Должна быть модель типа AmoCRM::Entities::Base" unless model.is_a? AmoCRM::Entities::Base
+      client.post set_path, model_to_request(model, :add)
+    end
+
+    # Удаляем запись по id
+    #
+    # @param id
+    def delete id
+      client.delete get_path id
+    end
+
+    def self.type
+      ActiveSupport::Inflector.singularize name.split('::').last.to_sym
+    end
+
+    def self.resource_name
+      ActiveSupport::Inflector.underscore ActiveSupport::Inflector.pluralize type
+    end
+
+    def self.entity_class
+      ActiveSupport::Inflector.constantize "AmoCRM::Entities::#{type.to_s}"
+    end
+
+    private
+
+    attr_reader :client
+
+    def model_to_request(model, command=:update)
+      {
+        request: {
+          response_key => {
+            command => [model.attributes_for_update]
+          }
+        }
+      }
+    end
+
+    def parse data
+      self.class.entity_class.new data[response_key].first
+    end
+
+    def parse_list content
+      content[response_key].map do |data|
+        self.class.entity_class.new data
+      end
+    end
+
+    def parse_content content
+      content
+    end
+
+    def parse_page content
+      col = AmoCRM::Entities::Collection.parse parse_content content
+
+      # TODO Парсится два раза. Оптимизировать. Например сделать динамические CollectionFeature
+      # и парсить через них
+
+      items = parse content
+      AmoCRM::Entities::Page.new items, col.total,  col.start, col.count
+    end
+
+    def get_path
+      list_path
+    end
+
+    def set_path
+      raise 'not implemented'
+    end
+
+    def list_path
+      raise 'not implemented'
+    end
+  end
+end