bbmb 2.0.0

data/lib/bbmb/model/product.rb

@@ -0,0 +1,99 @@
+#!/usr/bin/env ruby
+# Model::Product -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/model/subject'
+require 'bbmb/util/numbers'
+require 'date'
+
+module BBMB
+  module Model
+class ProductInfo < Subject
+  include Util::Numbers
+  attr_reader :article_number, :backorder
+  attr_accessor :backorder_date, :commit_date, :ean13, :expiry_date,
+    :partner_index, :pcode, :promotion, :sale, :status
+  multilingual :description, :catalogue1, :catalogue2, :catalogue3
+  int_accessor :l1_qty, :l2_qty, :l3_qty, :l4_qty, :l5_qty, :l6_qty
+  money_accessor :price, :l1_price, :l2_price, :l3_price, :l4_price, 
+    :l5_price, :l6_price, :vat
+  def initialize(article_number)
+    @article_number = article_number
+    @backorder = false
+  end
+  def current_promo
+    [@sale, @promotion].find { |promo| promo }
+  end
+  def freebies(level)
+    (promo = current_promo) && promo.freebies(level)
+  end
+  def price(qty=nil)
+    qty ||= 1
+    res = @price
+    (1..6).each { |num|
+      if(res.nil? || ((tmp = instance_variable_get("@l#{num}_qty")) \
+                      && qty >= tmp))
+        res = instance_variable_get("@l#{num}_price") || res
+      end
+    }
+    if((pr = current_promo) && (((price = pr.price_qty(qty)) && price > res) \
+       || ((price = pr.l1_price) && price > res)))
+      res = price
+    end
+    res
+  end
+  def price_base
+    price(1)
+  end
+  def price_effective(qty=nil)
+    price = price_qty(qty)
+    if((promo = current_promo) && (discount = promo.discount(qty)))
+      price *= (100.0 - discount) / 100.0
+    end
+    price || Util::Money.new(0)
+  end
+  def price_qty(qty=nil)
+    ((promo = current_promo) && promo.price_qty(qty)) \
+      || price(qty)
+  end
+  def qty_level(level=nil)
+    if((promo = current_promo) && promo.has_price_qty?)
+      promo.qty_level(level)
+    else
+      instance_variable_get("@l#{level}_qty")
+    end
+  end
+  def to_info
+		self
+  end
+  def ==(other)
+    other.is_a?(ProductInfo) && @article_number == other.article_number
+  end
+end
+class Product < ProductInfo
+  def backorder=(value)
+    case value
+    when true, 1, /^(ja?|y(es)?|1)$/i
+      @backorder = true
+    else
+      @backorder = false
+    end
+  end
+  def current_promo
+    [@sale, @promotion].find { |promo| promo && promo.current? }
+  end
+  def to_info
+    info = ProductInfo.new(@article_number)
+    [ :backorder_date, :catalogue1, :catalogue2, :catalogue3,
+      :description, :ean13, :expiry_date, :partner_index, :pcode,
+      :status, :l1_qty, :l2_qty, :l3_qty, :l4_qty, :l5_qty, :l6_qty, :vat,
+      :price, :l1_price, :l2_price, :l3_price, :l4_price, :l5_price, :l6_price
+    ].each { |key|
+      info.send("#{key}=", self.send(key))
+    }
+    info.promotion = @promotion.dup if(@promotion && @promotion.current?)
+    info.sale = @sale.dup if(@sale && @sale.current?)
+    info
+  end
+end
+  end
+end

data/lib/bbmb/model/promotion.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+# Model::Promotion -- bbmb -- 10.04.2007 -- hwyss@ywesee.com
+
+require 'bbmb/model/subject'
+require 'bbmb/util/numbers'
+require 'date'
+
+module BBMB
+  module Model
+class Promotion < Subject
+  include Util::Numbers
+  attr_accessor :end_date, :start_date
+  int_accessor :l1_qty, :l2_qty, :l3_qty, :l4_qty, 
+    :l1_free, :l2_free, :l3_free, :l4_free, 
+    :l1_discount, :l2_discount, :l3_discount, :l4_discount
+  money_accessor :l1_price, :l2_price, :l3_price, :l4_price
+  multilingual :lines
+  def current?
+    today = Date.today
+    !!(@start_date || @end_date) \
+      && (@start_date.nil? || today >= @start_date) \
+      && (@end_date.nil? || today <= @end_date)
+  end
+  def discount(qty)
+    data_qty(qty, "discount")
+  end
+  def freebies(qty)
+    data_qty(qty, "free")
+  end
+  def has_price_qty?
+    !@l1_price.nil?
+  end
+  def price_qty(qty)
+    data_qty(qty, "price")
+  end
+  def qty_level(level)
+    instance_variable_get("@l#{level}_qty")
+  end
+  private
+  def data_qty(qty, key)
+    return if qty.nil?
+    res = nil
+    (1..4).each { |num|
+      if((tmp = qty_level(num)) && qty >= tmp)
+        res = instance_variable_get("@l#{num}_#{key}") || res
+      end
+    }
+    res
+  end
+end
+  end
+end

data/lib/bbmb/model/quota.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Model::Deal -- bbmb -- 11.04.2007 -- hwyss@ywesee.com
+
+require 'bbmb/util/numbers'
+
+module BBMB
+  module Model
+class Quota
+  class << self
+    def delegate(*keys)
+      keys.each { |key|
+        define_method(key) { @product.send(key) } 
+      }
+    end
+  end
+  include Util::Numbers
+  attr_reader :product
+  attr_accessor :start_date, :end_date
+  int_accessor :target, :actual, :difference
+  money_accessor :price
+  delegate :article_number, :description
+  def initialize(product)
+    @product = product
+  end
+end
+  end
+end

data/lib/bbmb/model/subject.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+# Model -- bbmb -- 08.08.2007 -- hwyss@ywesee.com
+
+require 'bbmb/util/multilingual'
+
+module BBMB
+  module Model
+    class Subject
+      class << self
+        def multilingual(*keys)
+          @multilinguals ||= []
+          keys.each { |key|
+            @multilinguals.push key
+            name = "@#{key}"
+            define_method(key) {
+              instance_variable_get(name) or begin
+                instance_variable_set(name, Util::Multilingual.new)
+              end
+            }
+            define_method(:to_s) { 
+              self.send(key).to_s
+            }
+            ml = @multilinguals
+            define_method(:multilinguals) { ml }
+            protected
+            attr_writer key
+          }
+        end
+      end
+      def migrate_to_subject
+        changed = false
+        multilinguals.each { |key|
+          name = "@#{key}"
+          if((var = instance_variable_get(name)) \
+             && !var.is_a?(Util::Multilingual))
+            changed = true
+            ml = Util::Multilingual.new
+            ml.de = var
+            instance_variable_set(name, ml)
+          end
+        }
+        changed
+      end
+    end
+  end
+end

data/lib/bbmb/persistence/none.rb

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+# Persistence::None -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/persistence/odba/product'
+require 'bbmb/persistence/odba/customer'
+

data/lib/bbmb/persistence/odba.rb

@@ -0,0 +1,42 @@
+#!/usr/bin/env ruby
+# Persistence::ODBA -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/config'
+require 'odba'
+require 'odba/connection_pool'
+require 'odba/drbwrapper'
+require 'bbmb/persistence/odba/model/customer'
+require 'bbmb/persistence/odba/model/order'
+require 'bbmb/persistence/odba/model/product'
+require 'bbmb/persistence/odba/model/quota'
+
+module BBMB
+  module Persistence
+    module ODBA
+      def ODBA.all(klass, &block)
+        klass.odba_extent(&block)
+      end
+      def ODBA.save(*objs)
+        objs.each { |obj| obj.odba_store }
+      end
+      def ODBA.delete(*objs)
+        objs.each { |obj| obj.odba_delete }
+      end
+      def ODBA.migrate_to_subject
+        all(Model::Product) { |product| 
+          product.migrate_to_subject && product.odba_store 
+        }
+        all(Model::Order) { |order|
+          order.each { |position| 
+            position.migrate_to_subject && position.odba_store 
+          }
+        }
+        ::ODBA.cache.create_deferred_indices(true)
+      end
+    end
+  end
+  ODBA.storage.dbi = ODBA::ConnectionPool.new("DBI:pg:#{@config.db_name}",
+                                             @config.db_user, @config.db_auth)
+  ODBA.cache.setup
+  ODBA.cache.prefetch
+end

data/lib/bbmb/persistence/odba/model/customer.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/env ruby
+# Model::Customer -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/model/customer'
+
+module BBMB
+  module Model
+    class Customer
+      include ODBA::Persistable
+      ODBA_PREFETCH = true
+      ODBA_SERIALIZABLE = ['@protected']
+      odba_index :customer_id
+      odba_index :ean13
+      odba_index :email
+      alias :__old_current_order__ :current_order
+      def current_order
+        if(@current_order.nil?)
+          __old_current_order__
+          odba_store
+        end
+        @current_order
+      end
+      alias :__old_commit_order__ :commit_order!
+      def commit_order!(*args)
+        order = __old_commit_order__(*args)
+        @archive.odba_store
+        odba_store
+        order
+      end
+      alias :__old_inject_order__ :inject_order
+      def inject_order(*args)
+        order = __old_inject_order__(*args)
+        @archive.odba_store
+        odba_store
+        order
+      end
+      alias :__old_favorites__ :favorites
+      def favorites
+        if(@favorites.nil?)
+          __old_favorites__
+          odba_store
+        end
+        @favorites
+      end
+    end
+  end
+end

data/lib/bbmb/persistence/odba/model/order.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+# Model::Order -- bbmb.ch -- 25.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/model/order'
+
+module BBMB
+  module Model
+class Order
+  class Position
+    include ODBA::Persistable
+		alias :__old_commit__ :commit!
+		def commit!(*args)
+			res = __old_commit__(*args)
+			odba_store
+			res
+		end  
+  end
+  include ODBA::Persistable
+  ODBA_SERIALIZABLE = ['@unavailable']
+  alias :__old_add__ :add
+  def add(quantity, product)
+    if(pos = __old_add__(quantity, product))
+      if(quantity.zero?)
+        pos.odba_delete
+      else
+        pos.odba_store
+      end
+      @positions.odba_store
+      pos
+    end
+  end
+  alias :__old_clear__ :clear
+  def clear
+    @positions.each { |pos|
+      pos.odba_delete
+    }
+    res = __old_clear__
+    @positions.odba_store
+    odba_store
+    res
+  end
+  alias :__old_commit__ :commit!
+  def commit!(*args)
+    res = __old_commit__(*args)
+    odba_store
+    res
+  end  
+end
+  end
+end

data/lib/bbmb/persistence/odba/model/product.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# Model::Product -- bbmb.ch -- 14.09.2006 -- hwyss@ywesee.com
+
+require 'bbmb/model/product'
+
+module BBMB
+  module Model
+    class ProductInfo
+      def migrate_to_subject
+        changed = super
+        @promotion && @promotion.migrate_to_subject && (changed = true)
+        @sale && @sale.migrate_to_subject && (changed = true)
+        changed
+      end
+    end
+    class Product
+      include ODBA::Persistable
+      odba_index :article_number
+      odba_index :ean13
+      odba_index :description, 'description.all'
+      odba_index :pcode
+      odba_index :catalogue1, 'catalogue1.all'
+      odba_index :catalogue2, 'catalogue2.all'
+    end
+  end
+end

data/lib/bbmb/persistence/odba/model/quota.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+# Model::Quota -- bbmb -- 11.04.2007 -- hwyss@ywesee.com
+
+require 'bbmb/model/quota'
+
+module BBMB
+  module Model
+    class Quota
+      include ODBA::Persistable
+    end
+  end
+end

data/lib/bbmb/util/invoicer.rb

@@ -0,0 +1,126 @@
+#!/usr/bin/env ruby
+# Util::Invoicer -- bbmb.ch -- 03.10.2006 -- hwyss@ywesee.com
+
+require 'iconv'
+require 'ydim/config'
+require 'ydim/client'
+require 'openssl'
+
+module BBMB
+  module Util
+module Invoicer
+  @iconv = Iconv.new('ISO-8859-1//TRANSLIT//IGNORE', 'UTF-8')
+  class << self
+    def run(range, date=Date.today)
+      orders = orders(range)
+      turnover = deduction = Util::Money.new(0)
+      baseline = Util::Money.new(BBMB.config.invoice_baseline)
+      total = orders.inject(turnover) { |memo, order| order.total + memo }
+      if(total == 0 || baseline > 0)
+        all_orders = orders(fiscal_year(range))
+        turnover = all_orders.inject(turnover) { |memo, order| 
+          order.total + memo }
+        deduction = [deduction, baseline - turnover].max
+      end
+      owed = total - deduction
+      if(owed > 0)
+        invoice = create_invoice(range, owed, orders, date)
+        send_invoice(invoice.unique_id)
+      else
+        body = sprintf(<<-EOS, baseline, turnover + total, total, deduction - total)
+Baseline:      %10.2f
+Turnover:      %10.2f
+Current Month: %10.2f
+-------------------------
+Outstanding:   %10.2f
+        EOS
+        Util::Mail.notify_debug("No invoice necessary", body)
+      end
+    end
+    def create_invoice(time_range, owed, orders, date, currency='CHF')
+      time = Time.now
+      baseline = Util::Money.new(BBMB.config.invoice_monthly_baseline)
+      baseamount = Util::Money.new(BBMB.config.invoice_monthly_baseamount)
+      ydim_connect { |client|
+        ydim_inv = client.create_invoice(BBMB.config.ydim_id)
+        ydim_inv.description = sprintf(@iconv.iconv(BBMB.config.invoice_format),
+                                       time_range.first.strftime("%d.%m.%Y"),
+                                       (time_range.last - 1).strftime("%d.%m.%Y"))
+        ydim_inv.date = date
+        ydim_inv.currency = currency
+        ydim_inv.payment_period = 30
+        items = []
+        item_format = @iconv.iconv(BBMB.config.invoice_item_format)
+        item_args = [orders.size]
+        time = Time.local(date.year, date.month, date.day)
+        if baseamount > 0
+          item_format = @iconv.iconv(BBMB.config.invoice_item_overrun_format)
+          basepart = [baseline, owed].min
+          text = sprintf(BBMB.config.invoice_item_baseline_format,
+                         basepart, owed, *item_args)
+          item_data = {
+            :price    => baseamount.to_f,
+            :quantity => 1,
+            :text     => @iconv.iconv(number_format(text)),
+            :time			=> time,
+            :unit     => @iconv.iconv(BBMB.config.invoice_item_baseamount_unit),
+          }
+          item_args.unshift owed
+          items.push item_data
+        end
+        if owed > baseline
+          owed -= baseline
+          text = sprintf(item_format, owed, *item_args)
+          item_data = {
+            :price    =>  owed.to_f * BBMB.config.invoice_percentage / 100,
+            :quantity =>  1,
+            :text     =>  @iconv.iconv(number_format(text)),
+            :time			=>	Time.local(date.year, date.month, date.day),
+            :unit     =>  "%0.1f%" % BBMB.config.invoice_percentage,
+          }
+          items.push item_data
+        end
+        client.add_items(ydim_inv.unique_id, items)
+        ydim_inv
+      }
+    end
+    def fiscal_year(range)
+      day, month, = BBMB.config.invoice_newyear.split('.', 3)
+      time = range.first
+      year = time.year
+      first = Time.local(year, month, day)
+      if(first > time)
+        first = Time.local(year - 1, month, day)
+      end
+      first...time
+    end
+    def number_format(string)
+      string.reverse.gsub(/\d{3}(?=\d)(?!\d*\.)/) do |match|
+        match << "'"
+      end.reverse
+    end
+    def orders(range)
+      BBMB.persistence.all(Model::Order).select { |order|
+        order.commit_time && range.include?(order.commit_time)
+      }
+    end
+    def send_invoice(invoice_id)
+      ydim_connect { |client| client.send_invoice(invoice_id) }
+    end
+    def ydim_connect(&block)
+      config = YDIM::Client::CONFIG
+      if(path = BBMB.config.ydim_config)
+        config.load(path)
+      end
+      server = DRbObject.new(nil, config.server_url)
+      client = YDIM::Client.new(config)
+      key = OpenSSL::PKey::DSA.new(File.read(config.private_key))
+      client.login(server, key)
+      block.call(client)
+    ensure
+      client.logout if(client)
+    end
+  end
+end
+  end
+end