sandozxmlconv 1.0.0

data/lib/conversion/propharma_bdd.rb

@@ -0,0 +1,100 @@
+#!/usr/bin/env ruby
+# Conversion::ProPharmaBdd -- xmlconv2 -- 14.09.2007 -- hwyss@ywesee.com
+
+require 'rockit/rockit'
+require 'xmlconv/model/bdd'
+require 'xmlconv/model/bsr'
+require 'xmlconv/model/delivery'
+require 'xmlconv/model/delivery_item'
+require 'xmlconv/model/name'
+require 'xmlconv/model/party'
+
+module XmlConv
+  module Conversion
+    class ProPharmaBdd
+@parser = Parse.generate_parser <<-EOG
+Grammar ProPharma
+  Tokens
+    DATA = /[^\n]+/
+    NL = /\n/
+  Productions
+    Bdd         -> Customer Order
+    Customer    -> '[KUNDE]' NL CId CName Location
+    CId         -> 'idt=' DATA NL
+    CName       -> 'nam=' DATA NL
+    Location    -> 'ort=' DATA NL
+    Order       -> '[BSTELL]' NL Reference Date Time Item+
+                   [: _, _, reference, date, time, items ]
+    Reference   -> 'ref=' DATA NL
+    Date        -> 'dat=' DATA NL
+    Time        -> 'tim=' DATA NL
+    Item        -> '[ARTIK]' NL Type PCode Description Quantity
+    Type        -> 'typ=' DATA NL
+    PCode       -> 'phc=' DATA NL
+    Description -> 'art=' DATA NL
+    Quantity    -> 'mge=' DATA NL
+EOG
+class << self
+  def convert(ast)
+    bdd = Model::Bdd.new
+    delivery = _bdd_add_delivery(bdd, ast.order)
+    _delivery_add_customer(delivery, ast.customer)
+    bdd
+  end
+  def parse(src)
+    @parser.parse(src) 
+  end
+  def _bdd_add_delivery(bdd, ast)
+    delivery = Model::Delivery.new
+    bsr = Model::Bsr.new
+    delivery.add_id('Customer', _named_data(:reference, ast))
+    _delivery_add_seller(delivery)
+    delivery.bsr = bsr
+    ast.items.each { |item|
+      _delivery_add_item(delivery, item)
+    }
+    bdd.add_delivery(delivery)
+    delivery
+  end
+  def _bsr_add_customer_id(bsr, id)
+    customer = Model::Party.new
+    customer.role = 'Customer'
+    ## Propharma sends the Supplier-side Customer-ID, not the public EAN13 as it 
+    #  is the case in Propharma -> Globopharm
+    customer.add_id('supplier', id)
+    bsr.add_party(customer)
+  end
+  def _delivery_add_customer(delivery, ast)
+    _bsr_add_customer_id(delivery.bsr, _named_data(:cid, ast))
+    customer = Model::Party.new
+    customer.role = "Customer"
+    ## Propharma sends the Supplier-side Customer-ID, not the public EAN13 as it 
+    #  is the case in Propharma -> Globopharm
+    customer.add_id('customer', _named_data(:cid, ast))
+    name = Model::Name.new
+    name.text = _named_data(:cname, ast)
+    customer.name = name
+    delivery.add_party(customer)
+    customer
+  end
+  def _delivery_add_item(delivery, ast)
+    item = Model::DeliveryItem.new
+    item.line_no = delivery.items.size.next.to_s
+    item.add_id('Pharmacode', _named_data(:pcode, ast))
+    item.qty = _named_data(:quantity, ast)
+    item.unit = 'PCE'
+    delivery.add_item(item)
+  end
+  def _delivery_add_seller(delivery)
+    party = Model::Party.new
+    party.role = 'Seller'
+    party.add_id("ACC", "7601001000681")
+    delivery.add_party(party)
+  end
+  def _named_data(key, ast)
+    ast.send(key).data.value
+  end
+end
+    end
+  end
+end

data/lib/conversion/sunstore_bdd.rb

@@ -0,0 +1,222 @@
+#!/usr/bin/env ruby
+# Conversion::SunStoreBdd -- xmlconv2 -- 12.12.2008 -- hwyss@ywesee.com
+
+require 'rexml/document'
+require 'xmlconv/model/bdd'
+
+require 'xmlconv/model/address'
+require 'xmlconv/model/bsr'
+require 'xmlconv/model/delivery'
+require 'xmlconv/model/delivery_item'
+require 'xmlconv/model/name'
+require 'xmlconv/model/party'
+
+
+module XmlConv
+  module Conversion
+    class SunStoreBdd
+class << self
+  def convert(xml_document)
+    bdd = Model::Bdd.new
+    bsr = Model::Bsr.new
+    _bsr_add_customer_id(bsr, 'YWESEESS')
+    bdd.bsr = bsr
+    REXML::XPath.each(xml_document, '//customerOrder') do |xml_delivery|
+      _bdd_add_xml_delivery(bdd, xml_delivery)
+    end
+    bdd
+  end
+  def parse(xml_src)
+    REXML::Document.new(xml_src)
+  end
+  def respond(transaction, responses)
+    doc = REXML::Document.new <<-EOS
+<?xml version="1.0" encoding="UTF-8"?>
+<customerOrderResponse xmlns="http://www.e-galexis.com/schemas/"
+  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+  xsi:schemaLocation="http://www.e-galexis.com/schemas/ http://www.e-galexis.com/schemas/POS/customerOrder/customerOrderResponse.xsd"
+  version="1.0" roundUpForCondition="false" backLogDesired="false"
+  language="de" productDescriptionDesired="false">
+</customerOrderResponse>
+    EOS
+    root = doc.root
+    transaction.model.deliveries.each_with_index do |delivery, idx|
+      if data = responses[idx]
+        number = if(order_id = data[:order_id])
+                   _utf8 order_id
+                 else
+                   "error-#{transaction.transaction_id}-#{idx}"
+                 end
+        root.add_element('clientResponse').add_attribute('number', number)
+        if data[:products].compact.size == delivery.items.size
+          header = root.add_element 'orderHeaderResponse'
+          header.add_attribute 'referenceNumber', _utf8(delivery.customer_id)
+          if ship_to = delivery.customer.ship_to
+            attrs = { 'line1' => _utf8(ship_to.name.text) }
+            attrs2 = {}
+            if addr = ship_to.address
+              addr.lines.each_with_index do |line, idx|
+                line = _utf8 line
+                case idx
+                when 0
+                  attrs2.store 'line2', line
+                when 1
+                  attrs2.store 'line3', line
+                when 2
+                  attrs.store 'line4', line
+                end
+              end
+              attrs.store 'line5PostalCode', _utf8(addr.zip_code)
+              attrs.store 'line5City', _utf8(addr.city)
+            end
+            address = header.add_element 'deliveryAddress'
+            address.add_attributes attrs
+            unless attrs2.empty?
+              line2 = address.add_element 'addressLine2And3Text'
+              line2.add_attributes attrs2
+            end
+          end
+          lines = root.add_element 'orderLinesResponse'
+          delivery.items.each_with_index do |item, idx|
+            presp = data[:products][idx]
+            available = presp[:quantity] == presp[:deliverable]
+            attrs = {
+              'lineAccepted' => _boolean(available),
+              'backLogLine'  => _boolean(presp[:backorder]),
+              'roundUpForConditionDone' => 'false',
+              'productReplaced' => 'false',
+            }
+            prod = lines.add_element 'productOrderLineResponse'
+            prod.add_attributes attrs
+            pol = prod.add_element 'productOrderLine'
+            pol.add_attribute 'orderQuantity', item.qty
+            if pcode = item.pharmacode_id
+              pol.add_element('pharmaCode').add_attribute('id', pcode)
+            end
+            if ean = item.et_nummer_id
+              pol.add_element('EAN').add_attribute('id', ean)
+            end
+            attrs = {
+              'wholesalerProductCode' => presp[:article_number],
+              'description' => presp[:description],
+            }
+            presp = prod.add_element 'productResponse'
+            presp.add_attributes attrs
+            prod.add_element 'availability',
+                             'status' => available ? 'yes' : 'no'
+          end
+        else
+          root.add_element 'orderHeaderErrorResponse'
+        end
+      else
+        root.add_element 'clientErrorResponse'
+      end
+    end
+    doc
+  end
+  def _bdd_add_xml_delivery(bdd, xml_delivery)
+    delivery = Model::Delivery.new
+    bsr = Model::Bsr.new
+    xml_client = REXML::XPath.first(xml_delivery, 'client')
+    _bsr_add_customer_id(bsr, xml_client.attributes['number'])
+    delivery.bsr = bsr
+    _delivery_add_xml_header(delivery, xml_delivery)
+    if(xml_lines = REXML::XPath.first(xml_delivery, 'orderLines'))
+      REXML::XPath.each(xml_lines,
+                        'productOrderLine|productLabelOrderLine') do |xml_item|
+        _delivery_add_xml_item(delivery, xml_item)
+      end
+    end
+    bdd.add_delivery(delivery)
+    delivery
+  end
+  def _boolean(item)
+    item ? 'true' : 'false'
+  end
+  def _bsr_add_customer_id(bsr, id)
+    customer = Model::Party.new
+    customer.role = 'Customer'
+    customer.add_id('ACC', id)
+    bsr.add_party(customer)
+  end
+  def _customer_add_party(customer, id, role)
+    party = Model::Party.new
+    party.role = role
+    party.add_id('ACC', id)
+    customer.add_party(party)
+    party
+  end
+  def _delivery_add_xml_customer(delivery, xml_delivery)
+    customer = Model::Party.new
+    customer.role = 'Customer'
+    _customer_add_party(customer, '1075', 'BillTo')
+    xml_client = REXML::XPath.first(xml_delivery, 'client')
+    id = _latin1(xml_client.attributes['number'])
+    customer.add_id('ACC', id)
+    ship_to = _customer_add_party(customer, id, 'ShipTo')
+    if(xml_header = REXML::XPath.first(xml_delivery, 'orderHeader'))
+      name = Model::Name.new
+      # The SunStore formant does not specify which part of the Delivery-Address
+      # contains the customer's name. We're just guessing it might be in the first
+      # line.
+      if(xml_name = REXML::XPath.first(xml_header, 'deliveryAddress'))
+        name.text = _latin1(xml_name.attributes['line1'])
+      end
+      customer.name = name
+      ship_to.name = name
+      _party_add_xml_address(ship_to, xml_header)
+    end
+    if(xml_email = REXML::XPath.first(xml_delivery, '//groupe/online/email'))
+      customer.add_id('email', _latin1(xml_email.text))
+    end
+    delivery.add_party(customer)
+  end
+  def _delivery_add_xml_header(delivery, xml_delivery)
+    xml_order = REXML::XPath.first(xml_delivery, 'orderHeader')
+    delivery.add_id('Customer', _latin1(xml_order.attributes['referenceNumber']))
+    _delivery_add_xml_customer(delivery, xml_delivery)
+  end
+  def _delivery_add_xml_item(delivery, xml_item)
+    item = Model::DeliveryItem.new
+    item.line_no = _latin1(delivery.items.size.next.to_s)
+    if(xml_pcode = REXML::XPath.first(xml_item, 'EAN'))
+      item.add_id('ET-Nummer', _latin1(xml_pcode.attributes['id']))
+    end
+    if(xml_pcode = REXML::XPath.first(xml_item, 'pharmaCode'))
+      item.add_id('Pharmacode', _latin1(xml_pcode.attributes['id']))
+    end
+    xml_qty = xml_item.attributes['orderQuantity'] \
+      || xml_item.attributes['defaultOrderQuantity']
+    item.qty = _latin1(xml_qty)
+    item.unit = 'PCE'
+    delivery.add_item(item)
+  end
+  def _party_add_xml_address(party, xml_header)
+    if(xml_address = REXML::XPath.first(xml_header, 'deliveryAddress'))
+      address = Model::Address.new
+      address.zip_code = _latin1(xml_address.attributes['line5PostalCode'])
+      address.city = _latin1(xml_address.attributes['line5City'])
+      if(xml_lines = REXML::XPath.first(xml_address, 'addressLine2And3Text'))
+        address.add_line(_latin1(xml_lines.attributes['line2']))
+        address.add_line(_latin1(xml_lines.attributes['line3']))
+      end
+      if(line = xml_address.attributes['line4'])
+        address.add_line(_latin1(line))
+      end
+      party.address = address
+    end
+  end
+  def _latin1(str)
+    Iconv.iconv('ISO-8859-1//TRANSLIT//IGNORE', 'UTF8', str).first.strip
+  rescue
+    str
+  end
+  def _utf8(str)
+    Iconv.iconv('UTF-8//TRANSLIT//IGNORE', 'ISO-8859-1', str).first.strip
+  rescue
+    str
+  end
+end
+    end
+  end
+end

data/lib/conversion/wbmb_bdd.rb

@@ -0,0 +1,200 @@
+#!/usr/bin/env ruby
+# Conversion::WbmbBdd -- xmlconv2 -- 23.08.2006 -- hwyss@ywesee.com
+
+require 'soap/marshal'
+require 'xmlconv/model/address'
+require 'xmlconv/model/agreement'
+require 'xmlconv/model/bdd'
+require 'xmlconv/model/bsr'
+require 'xmlconv/model/delivery'
+require 'xmlconv/model/delivery_item'
+require 'xmlconv/model/name'
+require 'xmlconv/model/party'
+require 'xmlconv/model/price'
+
+module XmlConv
+  module Conversion
+    class WbmbBdd
+class << self
+  def convert(soap_mapping)
+    bdd = Model::Bdd.new
+    texted, normal = soap_mapping.artikelliste.partition { |article|
+      article.respond_to?(:positionstext)
+    }
+    unless(normal.empty?)
+      _bdd_add_xml_delivery(bdd, soap_mapping, normal)
+    end
+    unless(texted.empty?)
+      _bdd_add_xml_delivery(bdd, soap_mapping, texted)
+    end
+    bdd
+  end
+  def parse(src)
+    SOAP::Marshal.unmarshal(src)
+  end
+  def _bdd_add_xml_delivery(bdd, soap_mapping, positions)
+    delivery = Model::Delivery.new
+    if(soap_mapping.respond_to?(:absender))
+      _delivery_add_sender_ids(delivery, soap_mapping.absender)
+    end
+    if(soap_mapping.respond_to?(:empfaenger))
+      _delivery_add_recipient_ids(delivery, soap_mapping.empfaenger)
+    end
+    if(soap_mapping.respond_to?(:auftrag_info))
+      _delivery_add_soap_info(delivery, soap_mapping.auftrag_info)
+    end
+    _delivery_add_soap_positions(delivery, positions)
+    bdd.add_delivery(delivery)
+  end
+  def _delivery_add_sender_ids(delivery, ids)
+    bsr = Model::Bsr.new
+    customer = Model::Party.new
+    customer.role = 'Customer'
+    party = Model::Party.new
+    party.role = 'Customer'
+    ids.each { |id|
+      value = _latin1(id.idvalue)
+      case _latin1(id.idtype)
+      when 'auftragsnummer'
+        delivery.add_id('Customer', value)
+      when 'ean13'
+        party.add_id('ET-Nummer', value)
+      when 'email'
+        customer.add_id('email', value)
+      when 'kundennummer'
+        party.add_id('ACC', value)
+        customer.add_id('ACC', value)
+      when 'name'
+        name = Model::Name.new
+        name.text = value
+        customer.name = name
+      end
+    }
+    bill_to = Model::Party.new
+    bill_to.role = 'BillTo'
+    bill_to.add_id('ACC', '1075')
+    customer.add_party(bill_to)
+    delivery.add_party(customer)
+    bsr.add_party(party)
+    delivery.bsr = bsr
+  end
+  def _delivery_add_recipient_ids(delivery, ids)
+    party = Model::Party.new
+    party.role = 'Seller'
+    ids.each { |id|
+      key = case _latin1(id.idtype)
+      when 'ean13'
+        party.add_id('ACC', _latin1(id.idvalue))
+      when 'auftragsnummer'
+        delivery.add_id('ACC', _latin1(id.idvalue))
+      end
+    }
+    if(party.acc_id.to_s.empty?)
+      party.add_id("ACC", "7601001000681")
+    end
+    delivery.add_party(party) 
+    party
+  end
+  def _delivery_add_soap_info(delivery, infos)
+    infos.each { |info|
+      case _latin1(info.infotype)
+      when 'schnittstelle'
+        delivery.bsr.interface = _latin1(info.infovalue)
+      when 'lieferadresse'
+        _party_add_delivery_address(delivery.customer, info)
+      when 'lieferung_bis'
+        delivery.delivery_date = begin
+                                   DateTime.parse(_latin1(info.infovalue))
+                                 rescue 
+                                   DateTime.now
+                                 end
+      when 'text'
+        text = Model::FreeText.new
+        text << _latin1(info.infovalue)
+        delivery.add_free_text('text', text)
+      when 'versandkosten'
+        delivery.transport_cost = _latin1(info.infovalue)
+      end
+    }
+  end
+  def _delivery_add_soap_positions(delivery, positions)
+    positions.each_with_index { |pos, idx|
+      item = Model::DeliveryItem.new
+      item.line_no = idx.next.to_s
+      _item_add_soap_ids(item, [pos.identifier].flatten)
+      item.qty = _latin1(pos.bestellmenge)
+      item.unit = 'PCE'
+      if(amount = _named_value(pos, :artikelpreis))
+        price = Model::Price.new
+        price.purpose = 'NettoPreis'
+        price.amount = amount
+        item.add_price(price)
+      end
+      if(value = _named_value(pos, :positionstext))
+        txt = Model::FreeText.new
+        txt << _latin1(value)
+        item.add_free_text('text', txt)
+      end
+      delivery.add_item(item)
+    }
+  end
+  def _item_add_soap_ids(item, ids)
+    ids.each { |id|
+      key = _latin1(id.idtype)
+      value = _latin1(id.idvalue)
+      case key
+      when 'ean13'
+        item.add_id('ET-Nummer', value)
+      when 'pcode'
+        item.add_id('Pharmacode', value)
+      when 'gag-code'
+        item.add_id('LieferantenArtikel', value)
+      else
+        item.add_id(key, value)
+      end
+    }
+  end
+  def _named_value(parent, name)
+    if(parent.respond_to?(name))
+      _latin1(parent.send(name))
+    end
+  end
+  def _party_add_delivery_address(party, info)
+    shipto = Model::Party.new
+    shipto.role = 'ShipTo'
+    address = Model::Address.new
+    names = []
+    lines = []
+    info.address.each { |part|
+      value = _latin1(part.infovalue)
+      case _latin1(part.infotype)
+      when 'name'
+        names.push(value)
+      when 'strasse'
+        lines.push(value)
+      when 'plz'
+        address.zip_code = value
+      when 'ort'
+        address.city = value
+      when 'land'
+        address.country = value
+      end
+    }
+    name = Model::Name.new
+    name.text = names.shift
+    shipto.name = name
+    names.concat(lines).each { |line| address.add_line(line) }
+    shipto.address = address
+    party.add_party(shipto)
+  end
+  def _latin1(txt)
+    if(txt.is_a?(String))
+      Iconv.iconv('latin1', 'utf8', txt).first
+    end
+  rescue
+    txt
+  end
+end
+    end
+  end
+end