xmlconv 1.0.0

data/lib/xmlconv/custom/lookandfeel.rb

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+# Custom::Lookandfeel -- xmlconv2 -- 09.06.2004 -- hwyss@ywesee.com
+
+require 'sbsm/lookandfeel'
+
+module XmlConv
+	module Custom
+		class Lookandfeel < SBSM::Lookandfeel
+			DICTIONARIES = {
+				'de'	=>	{
+					:copyright0								=>	'&copy;ywesee.com&nbsp;',
+					:copyright1								=>	'',
+					:home											=>	'Home',
+					:login										=>	'Anmelden',
+					:login_welcome						=>	'Willkommen bei XmlConv',
+					:logout										=>	'Abmelden',
+					:navigation_divider				=>	'|',
+					:page_back								=>	"&lt;&lt;",
+					:page_fwd									=>	"&gt;&gt;",
+					:page_number0							=>	"Seite&nbsp;",
+					:page_number1							=>	"&nbsp;von&nbsp;",
+					:page_number2							=>	"",
+					:pass											=>	'Passwort',
+					:status_bbmb_ok						=>	'Bestellung via BBMB erfolgreich',
+					:status_empty							=>	'Leer',
+					:status_error							=>	'Fehler',
+					:status_http_ok						=>	'&Uuml;bertragung erfolgreich',
+					:status_http_not_found		=>	'URI nicht gefunden',
+					:status_http_unauthorized	=>	'Keine Berechtigung',
+					:status_mail_ok						=>	'Mail&uuml;bertragung erfolgreich',
+					:status_open							=>	'Offen',
+					:status_pending_pickup		=>	'Bereit zum Abholen',
+					:status_picked_up					=>	'Abgeholt',
+					:th_commit_time						=>	'Zeit',
+					:th_error									=>	'Fehler',
+					:th_input									=>	'Input',
+					:th_uri_comparable				=>	'Empf�nger',
+					:th_filename							=>	'Filename',
+					:th_transaction_id				=>	'ID',
+					:th_origin								=>	'Absender',
+					:th_output								=>	'Output',
+					:th_status_comparable			=>	'Status',
+				}
+			}
+			RESOURCES = {
+				:css	=>	'xmlconv.css'
+			}
+		end
+	end
+end

data/lib/xmlconv/i2/address.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/env ruby
+# I2::Address -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module I2
+		class Address
+			attr_accessor :code, :party_id
+			attr_accessor :name1, :name2, :street1, :city, :zip_code, :street2,
+        :country
+			I2_ADDR_CODES = {
+				:buyer		=>	'BY',
+				:delivery	=>	'DP',
+				:employee	=>	'EP',
+        :customer =>  'CU',
+			}
+			def initialize
+				@code = :buyer
+			end
+			def to_s
+				output = []
+				numerals = [ 201, 202, 220, 221, 222, 223, 224, 225, 226 ]
+				[
+					I2_ADDR_CODES[@code],
+					@party_id, @name1, @name2, @street1,
+					@city, @country, @zip_code, @street2,
+				].each_with_index { |value, idx|
+					unless(value.nil?)
+						output << "#{numerals[idx]}:#{value}"
+					end
+				}
+				output.join("\n") << "\n"
+			end
+		end
+	end
+end

data/lib/xmlconv/i2/date.rb

@@ -0,0 +1,41 @@
+#!/usr/bin/env ruby
+# I2::Date -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+require 'date'
+
+module XmlConv
+	module I2
+		class Date < ::Date
+			attr_accessor :code, :level
+			class << self
+				def from_date(date, level=nil, code=nil)
+					instance = self.new(date.year, date.month, date.day)
+          instance.code = code
+          instance.level = level
+          instance
+				end
+			end
+			def to_s
+				fmtd = strftime("%Y%m%d")
+        datecd = case @code
+                 when :delivery
+                   '2'
+                 else
+                   '4'
+                 end
+        case @level
+        when :order
+					<<-EOS
+300:#{datecd}
+301:#{fmtd}
+					EOS
+        else
+					<<-EOS
+540:#{datecd}
+541:#{fmtd}
+					EOS
+				end
+			end
+		end
+	end
+end

data/lib/xmlconv/i2/document.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# I2::Document -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/i2/header'
+require 'xmlconv/i2/order'
+
+module XmlConv
+	module I2
+		class Document
+			attr_accessor :header
+			attr_reader :orders
+			def initialize
+        @header = Header.new
+				@orders = []
+			end
+			def add_order(order)
+				@orders.push(order)
+			end
+			def filename
+				@header.filename
+			end
+			def to_s
+				([@header] + @orders).join
+			end
+		end
+	end
+end

data/lib/xmlconv/i2/header.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+# I2::Header -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module I2
+		class Header
+			attr_accessor :recipient_id, :filename, :prefix, :transaction_id
+      attr_reader :suffix
+			def initialize(recipient_id = 'EPIN_PL')
+				@recipient_id = recipient_id
+        @prefix = @recipient_id
+        time = Time.now
+				msec = sprintf('%03i', (time.to_f * 1000).to_i % 100)
+        @transaction_id = time.strftime("%Y%m%d%H%M%S#{msec}")
+			end
+      def suffix=(suffix)
+        @suffix = "_" << suffix.to_s
+      end
+      def filename
+        @filename || sprintf("%s%s_%s.dat", @prefix, @suffix, @transaction_id)
+      end
+			def to_s
+				<<-EOS
+001:#{@recipient_id}
+002:ORDERX
+003:220
+010:#{filename}
+				EOS
+			end
+		end
+	end
+end

data/lib/xmlconv/i2/order.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+# I2::Order -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module I2
+		class Order
+			I2_DELIVERY_CODES = {
+        ## janico
+				:pickup		  =>	'070',
+				:delivery	  =>	'060',
+				:camion 	  =>	'010',
+        ## globopharm
+        :default    =>  '1',
+        :before_9   =>  '3',
+        :before_21  =>  '4',
+        :before_16  =>  '5',
+        :extracted  =>  '13',
+			}
+			attr_accessor :sender_id, :delivery_id, :terms_cond, :agent, :free_text, 
+        :interface, :transport_cost, :ade_id
+			attr_reader :addresses, :dates, :positions
+			def initialize
+				@addresses = []
+				@dates = []
+				@positions = []
+        @interface = "61"
+			end
+			def add_address(address)
+				@addresses.push(address)
+			end
+			def add_date(date)
+				@dates.push(date)
+			end
+			def add_position(position)
+				@positions.push(position)
+			end
+			def to_s
+				output = <<-EOS
+100:#{@sender_id}
+101:#{@delivery_id}
+				EOS
+				@addresses.each { |addr| output << addr.to_s }
+        numerals = [ 231, 236, 237, 238, 242 ]
+				[
+					@agent, @free_text, @interface, I2_DELIVERY_CODES[@terms_cond],
+          @transport_cost,
+				].each_with_index { |value, idx|
+					unless(value.nil?)
+						output << sprintf("%s:%s\n", numerals[idx], value)
+					end
+				}
+        if(@ade_id)
+          output << sprintf("250:ADE\n251:%s\n", @ade_id)
+        end
+				@dates.each { |date| output << date.to_s }
+				@positions.each { |pos| output << pos.to_s }
+				output
+			end
+		end
+	end
+end

data/lib/xmlconv/i2/parser.rb

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+# I2::Parser -- xmlconv2 -- 28.06.2004 -- hwyss@ywesee.com
+
+require 'rockit/rockit'
+
+module XmlConv
+	module I2
+		def cached_parser
+			grammar_path = File.expand_path('i2.grammar', CONFIG.grammar_dir)
+			parser_path = File.expand_path('i2_parser.rb', CONFIG.grammar_dir)
+			old_path = File.expand_path('i2.grammar.old', CONFIG.grammar_dir)
+			src = File.read(grammar_path)
+			unless(File.exists?(old_path) && File.read(old_path) == src)
+				File.delete(old_path) if File.exists?(old_path)
+				Parse.generate_parser_from_file_to_file(grammar_path, parser_path, "make_i2_parser", 'XmlConv')
+				File.open(old_path, 'w') { |f| f << src }
+			end
+			require parser_path
+			XmlConv.make_i2_parser
+		end
+		module_function :cached_parser
+	end
+end

data/lib/xmlconv/i2/position.rb

@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+# I2::Position -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/i2/date'
+
+module XmlConv
+	module I2
+		class Position
+			attr_accessor :number, :article_ean, :qty, :customer_id, :price, :unit, 
+        :pharmacode, :free_text
+			attr_reader :delivery_date
+			def delivery_date=(date)
+				date.code = :delivery
+				@delivery_date = date
+			end
+			def to_s
+				output = <<-EOS
+500:#{@number}
+501:#{@article_ean}
+        EOS
+        [@customer_id, @pharmacode].compact.each { |id|
+          output << sprintf("502:%s\n", id)
+        }
+        output << sprintf("520:%s\n", @qty)
+        if(@unit)
+          output << sprintf("521:%s\n", @unit)
+        end
+				if(@delivery_date.is_a?(I2::Date))
+					output << @delivery_date.to_s
+				end
+        if(@price)
+          output << sprintf("604:%s\n", @price)
+        end
+        if(@free_text)
+          output << "605:RS\n"
+          txt = @free_text[0,280] ## upper limit: 40 lines of 70 chars
+          while(!txt.empty?)
+            output << sprintf("606:%s\n", txt.slice!(0,70))
+          end
+        end
+				output
+			end
+		end
+	end
+end

data/lib/xmlconv/i2/record.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# I2::Record -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module I2
+		class Record
+			def push(num, str)
+			end
+		end
+	end
+end

data/lib/xmlconv/model/address.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# AddressLine -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class Address
+			attr_accessor :city, :zip_code, :country
+			attr_reader :lines
+			def initialize
+				@lines = []
+			end
+			def add_line(line)
+				lines.push(line)
+			end
+			def size
+				@lines.size
+			end
+		end
+	end
+end

data/lib/xmlconv/model/agreement.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# Model::Agreement -- xmlconv2 -- 22.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class Agreement
+			attr_accessor :terms_cond
+		end
+	end
+end

data/lib/xmlconv/model/bdd.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Bdd -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'odba'
+
+module XmlConv
+	module Model
+		class Bdd
+      include ODBA::Persistable
+      ODBA_SERIALIZABLE = ['@deliveries', '@invoices', '@processing_logs']
+			attr_accessor :bsr
+			attr_reader :deliveries, :invoices, :processing_logs
+			def initialize
+				@deliveries = []
+				@invoices = []
+				@processing_logs = []
+			end
+			def add_delivery(delivery)
+				@deliveries.push(delivery)
+			end
+			def add_invoice(invoice)
+				@invoices.push(invoice)
+			end
+			def add_processing_log(log)
+				@processing_logs.push(log)
+			end
+      def empty?
+        @deliveries.empty? && @invoices.empty? && @processing_logs.empty?
+      end
+      def invoiced_amount
+        @invoices.inject(0) { |memo, invoice|
+          memo + invoice.get_price('SummePositionen').amount.to_f
+        }
+      end
+		end
+	end
+end

data/lib/xmlconv/model/bsr.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Bsr -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/party_container'
+
+module XmlConv
+	module Model
+		class Bsr 
+			include PartyContainer
+			attr_accessor :timestamp, :noun, :verb, :interface
+			def bsr_id
+				@customer.party_id unless(@customer.nil?)
+			end
+		end
+	end
+end

data/lib/xmlconv/model/delivery.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Delivery -- xmlconv -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/transaction'
+
+module XmlConv
+	module Model
+		class Delivery < Transaction
+			attr_accessor :bsr, :delivery_date
+			def bsr_id
+				@bsr.bsr_id unless(@bsr.nil?)
+			end
+		end
+	end
+end

data/lib/xmlconv/model/delivery_item.rb

@@ -0,0 +1,24 @@
+#!/usr/bin/env ruby
+# DeliveryItem -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/item'
+
+module XmlConv
+  module Model
+    class DeliveryItem < Item
+      attr_accessor :delivery_date
+      def customer_id
+        self.id_table['lieferantenartikel']
+      end
+      def ean13_id
+        self.id_table['ean13']
+      end
+      def et_nummer_id
+        self.id_table['et-nummer']
+      end
+      def pharmacode_id
+        self.id_table['pharmacode']
+      end
+    end
+  end
+end

data/lib/xmlconv/model/document.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# Model::Document -- xmlconv -- 03.12.2007 -- hwyss@ywesee.com
+
+module XmlConv
+  module Model
+    class Document < String
+			attr_accessor :recipient_id, :filename, :prefix, :transaction_id
+      def initialize(*args)
+        super
+				@recipient_id = recipient_id
+        @prefix = @recipient_id
+        time = Time.now
+				msec = sprintf('%03i', (time.to_f * 1000).to_i % 100)
+        @transaction_id = time.strftime("%Y%m%d%H%M%S#{msec}")
+      end
+      def filename
+        @filename || sprintf(XmlConv::CONFIG.default_filename, 
+                             @prefix, @suffix, @transaction_id)
+      end
+      def to_s
+        "" << self
+      end
+    end
+	end
+end

data/lib/xmlconv/model/freetext_container.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# FreeTextContainer -- xmlconv2 -- 22.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class FreeText < String
+			attr_accessor :type
+			def <<(other)
+				if(empty? || other.empty?)
+					super
+				else
+					super("\n" << other)
+				end
+			end
+		end
+		module FreeTextContainer
+			attr_accessor :free_text
+			def add_free_text(type, text)
+				@free_text ||= FreeText.new
+				@free_text.type = type
+				@free_text << text.to_s
+				@free_text
+			end
+		end
+	end
+end

data/lib/xmlconv/model/id_container.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# IdContainer -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module IdContainer
+			def acc_id
+				self.id_table['acc']
+			end
+			def add_id(domain, value)
+				self.id_table.store(domain.to_s.downcase, value)
+				self.ids.store(domain, value)
+			end
+			def ids
+				@ids ||= {}
+			end
+      def id_table
+        @id_table ||= {}
+      end
+		end
+	end
+end

data/lib/xmlconv/model/invoice.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Model::Invoice -- xmlconv2 -- 22.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/transaction'
+
+module XmlConv
+	module Model
+		class Invoice < Transaction
+			attr_reader :delivery_id, :invoice_id
+			def add_delivery_id(domain, idstr)
+				@delivery_id = [domain, idstr]
+			end
+			def add_invoice_id(domain, idstr)
+				@invoice_id = [domain, idstr]
+			end
+		end
+	end
+end

data/lib/xmlconv/model/invoice_item.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# Model::InvoiceItem -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/item'
+
+module XmlConv
+	module Model
+		class InvoiceItem < Item
+		end
+	end
+end

data/lib/xmlconv/model/item.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Model::Item -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/id_container'
+require 'xmlconv/model/freetext_container'
+require 'xmlconv/model/part_info_container'
+require 'xmlconv/model/price_container'
+
+module XmlConv
+	module Model
+		class Item
+			attr_accessor :line_no, :qty, :unit
+			include IdContainer
+			include FreeTextContainer
+			include PartInfoContainer
+			include PriceContainer
+		end
+	end
+end

data/lib/xmlconv/model/item_container.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Model::ItemContainer -- xmlconv2 -- 22.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module ItemContainer
+			def add_item(item)
+				self.items.push(item)
+			end
+			def items
+				@items ||= []
+			end
+		end
+	end
+end

data/lib/xmlconv/model/name.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Name -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class Name
+			attr_reader :first, :last, :text
+			def first=(arg)
+				set_attr('@first', arg && arg.strip)
+			end
+			def last=(arg)
+				set_attr('@last', arg && arg.strip)
+			end
+			def text=(arg)
+				set_attr('@text', arg && arg.strip)
+			end
+			def to_s
+				[@first, @text, @last].compact.join(' ')
+			end
+			private
+			def set_attr(attr, arg)
+				str = arg.to_s
+				instance_variable_set(attr, str.empty? ? nil : str)
+			end
+		end
+	end
+end

data/lib/xmlconv/model/part_info.rb

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# Model::PartInfo -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class PartInfo
+			attr_accessor :dimension, :value
+		end
+	end
+end

data/lib/xmlconv/model/part_info_container.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Model::PartInfoContainer -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module PartInfoContainer
+			def add_part_info(info)
+				self.part_infos.push(info)
+			end
+			def part_infos
+				@part_infos ||= []
+			end
+		end
+	end
+end

data/lib/xmlconv/model/party.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# Party -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'xmlconv/model/party_container'
+require 'xmlconv/model/id_container'
+
+module XmlConv
+	module Model
+		class Party
+			attr_accessor :role, :address, :name
+			include PartyContainer
+			include IdContainer
+			def party_id
+				sorted = self.ids.sort
+				domain, value = sorted.first
+				value
+			end
+		end
+	end
+end