2013-04-12 17:32:50 +00:00
|
|
|
# AGPLv3 sysmocom s.f.m.c. GmbH
|
|
|
|
|
|
|
|
module Spree
|
|
|
|
class Calculator::SysmocomValueCalculator < Calculator
|
|
|
|
|
|
|
|
def self.description
|
|
|
|
I18n.t(:sysmocom_value_based)
|
|
|
|
end
|
|
|
|
|
|
|
|
ZONE1 = {
|
|
|
|
"BE" => 1,
|
|
|
|
"BG" => 1,
|
|
|
|
"DK" => 1,
|
|
|
|
"EE" => 1,
|
|
|
|
"FI" => 1,
|
|
|
|
"FR" => 1,
|
|
|
|
"GR" => 1,
|
|
|
|
"GB" => 1,
|
|
|
|
"IE" => 1,
|
|
|
|
"IT" => 1,
|
|
|
|
"LV" => 1,
|
|
|
|
"LU" => 1,
|
|
|
|
"MT" => 1,
|
|
|
|
"MC" => 1,
|
|
|
|
"NL" => 1,
|
|
|
|
"AT" => 1,
|
|
|
|
"PL" => 1,
|
|
|
|
"PT" => 1,
|
|
|
|
"RO" => 1,
|
|
|
|
"SE" => 1,
|
|
|
|
"SK" => 1,
|
|
|
|
"SI" => 1,
|
|
|
|
"ES" => 1,
|
|
|
|
"CZ" => 1,
|
|
|
|
"HU" => 1,
|
|
|
|
"CY" => 1
|
|
|
|
}.freeze()
|
|
|
|
|
|
|
|
ZONE2 = {
|
|
|
|
#"Älandinseln (Finnland)"
|
|
|
|
"AD" => 1,
|
|
|
|
"AL" => 1,
|
|
|
|
"BY" => 1,
|
|
|
|
#Berg Athos
|
|
|
|
"BA" => 1,
|
|
|
|
#Campione d'Italia Italien
|
|
|
|
#Ceuta..Spanien
|
|
|
|
"FO" => 1,
|
|
|
|
"GE" => 1,
|
|
|
|
"GI" => 1,
|
|
|
|
"IS" => 1,
|
|
|
|
#Kanalinseln (Großbritannien)
|
|
|
|
#Kanarische Inseln (Spanien)
|
|
|
|
#Kosovo
|
|
|
|
"HR" => 1,
|
|
|
|
"LI" => 1,
|
|
|
|
#Livigno
|
|
|
|
"MK" => 1,
|
|
|
|
"MD" => 1,
|
|
|
|
#Melila (Spanien)
|
|
|
|
#Montenegro
|
|
|
|
"NO" => 1,
|
|
|
|
"CH" => 1,
|
|
|
|
"RU" => 1,
|
|
|
|
"SM" => 1,
|
|
|
|
"RS" => 1,
|
|
|
|
"TR" => 1,
|
|
|
|
"UA" => 1,
|
|
|
|
"VA" => 1,
|
|
|
|
}.freeze
|
|
|
|
|
|
|
|
ZONE3 = {
|
|
|
|
"EG" => 1,
|
|
|
|
"DZ" => 1,
|
|
|
|
"AM" => 1,
|
|
|
|
"AZ" => 1,
|
|
|
|
"IL" => 1,
|
|
|
|
"JO" => 1,
|
|
|
|
"CA" => 1,
|
|
|
|
"KZ" => 1,
|
|
|
|
"LB" => 1,
|
|
|
|
"LY" => 1,
|
|
|
|
"MA" => 1,
|
|
|
|
#Palästinensische Gebiete
|
|
|
|
"PM" => 1,
|
|
|
|
"SY" => 1,
|
|
|
|
"TN" => 1,
|
|
|
|
"US" => 1,
|
|
|
|
}.freeze
|
|
|
|
|
|
|
|
def packages_price(value, limit, price_each)
|
|
|
|
price = 0
|
|
|
|
rest = value
|
|
|
|
|
|
|
|
# It is intended that a package reaching the limit is counted twice
|
|
|
|
# Also a zero value should still be one package.
|
|
|
|
while rest >= 0 do
|
|
|
|
price += price_each
|
|
|
|
rest -= limit
|
|
|
|
end
|
|
|
|
|
|
|
|
price
|
|
|
|
end
|
|
|
|
|
|
|
|
def price_germany(value)
|
|
|
|
# 6 Euro and up to 500 Euro in Value for a 2kg package
|
|
|
|
# http://www.dhl.de/dhl-paket
|
|
|
|
return packages_price(value, 500, 6.0)
|
|
|
|
end
|
|
|
|
|
|
|
|
def price_package_zone1(value)
|
|
|
|
# 17 Euro and up to 500 Euro in value for a 5kg package or
|
|
|
|
# 2kg registered parcel with 35 Euro of value...
|
|
|
|
# http://www.dhl.de/de/paket/pakete-versenden/weltweit-versenden/paket.html
|
|
|
|
if value < 35
|
|
|
|
return packages_price(value, 35, 12)
|
|
|
|
else
|
|
|
|
return packages_price(value, 500, 17.0)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def price_package_zone2(value)
|
|
|
|
# 5kg package
|
|
|
|
# TODO: for the last item we could check for 74.11 again
|
|
|
|
if value < 74.11
|
|
|
|
return packages_price(value, 74.11, 32)
|
|
|
|
else
|
|
|
|
return packages_price(value, 500, 38)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def price_package_zone3(value)
|
|
|
|
# 5kg package
|
|
|
|
# TODO see zone2
|
|
|
|
if value < 74.11
|
|
|
|
return packages_price(value, 74.11, 38)
|
|
|
|
else
|
|
|
|
return packages_price(value, 500, 54)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
def price_package_zone4(value)
|
|
|
|
if value < 74.11
|
|
|
|
return packages_price(value, 74.11, 44)
|
|
|
|
else
|
|
|
|
return packages_price(value, 500, 66)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
def total_value_no_tax(o)
|
2013-04-17 08:36:48 +00:00
|
|
|
item_total = o.line_items.map(&:amount).sum
|
|
|
|
item_total
|
2013-04-12 17:32:50 +00:00
|
|
|
end
|
|
|
|
|
2013-04-17 11:56:51 +00:00
|
|
|
def extract_iso_code(o)
|
|
|
|
if o.kind_of?(Spree::Shipment)
|
|
|
|
return o.address.country.iso
|
|
|
|
end
|
|
|
|
return o.ship_address.country.iso
|
|
|
|
end
|
|
|
|
|
|
|
|
def compute(object)
|
2013-04-12 17:32:50 +00:00
|
|
|
# This could be more than an order but not right now
|
2013-04-17 11:56:51 +00:00
|
|
|
shipping_value = total_value_no_tax(object)
|
|
|
|
iso_code = extract_iso_code(object)
|
2013-04-12 17:32:50 +00:00
|
|
|
|
|
|
|
# Go through the zones by name...
|
2013-04-17 11:56:51 +00:00
|
|
|
if iso_code == 'DE'
|
2013-04-12 17:32:50 +00:00
|
|
|
return price_germany(shipping_value)
|
2013-04-17 11:56:51 +00:00
|
|
|
elsif ZONE1.has_key?(iso_code)
|
2013-04-12 17:32:50 +00:00
|
|
|
return price_package_zone1(shipping_value)
|
2013-04-17 11:56:51 +00:00
|
|
|
elsif ZONE2.has_key?(iso_code)
|
2013-04-12 17:32:50 +00:00
|
|
|
return price_package_zone2(shipping_value)
|
2013-04-17 11:56:51 +00:00
|
|
|
elsif ZONE3.has_key?(iso_code)
|
2013-04-12 17:32:50 +00:00
|
|
|
return price_package_zone3(shipping_value)
|
|
|
|
else
|
|
|
|
return price_package_zone4(shipping_value)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|