xmlconv2 2.0.0

data/src/i2/date.rb

@@ -0,0 +1,37 @@
+#!/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
+			class << self
+				def from_date(date)
+					self.new(date.year, date.month, date.day)
+				end
+			end
+			def to_s
+				# NOTE
+				# DTSTTCPW here and now is to allow only two possibilities for 
+				# I2::Date:
+				# Order-Date on the Order-Level (300:4\n301:strftime) and 
+				# Delivery-Date on the Position-Level (540:2\n540:strftime)
+				# This code is likely to change.
+				fmtd = strftime("%Y%m%d")
+				if(@code == :delivery)
+					<<-EOS
+540:2
+541:#{fmtd}
+					EOS
+				else
+					<<-EOS
+300:4
+301:#{fmtd}
+					EOS
+				end
+			end
+		end
+	end
+end

data/src/i2/document.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# I2::Document -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+require 'i2/header'
+require 'i2/order'
+
+module XmlConv
+	module I2
+		class Document
+			attr_accessor :header
+			attr_reader :orders
+			def initialize
+				@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/src/i2/header.rb

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

data/src/i2/order.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env ruby
+# I2::Order -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module I2
+		class Order
+			I2_DELIVERY_CODES = {
+				:pickup		=>	'070',
+				:delivery	=>	'060',
+				:camion 	=>	'010',
+			}
+			attr_accessor :sender_id, :delivery_id, :terms_cond
+			attr_reader :addresses, :dates, :positions
+			def initialize
+				@addresses = []
+				@dates = []
+				@positions = []
+			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 }
+				output << "237:61\n"
+        if(terms = I2_DELIVERY_CODES[@terms_cond])
+          output << sprintf("238:%s\n", terms)
+        end
+				@dates.each { |date| output << date.to_s }
+				@positions.each { |pos| output << pos.to_s }
+				output
+			end
+		end
+	end
+end

data/src/i2/parser.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# I2::Parser -- xmlconv2 -- 28.06.2004 -- hwyss@ywesee.com
+
+require 'rockit/rockit'
+
+module XmlConv
+	module I2
+		GRAMMAR_DIR = File.expand_path('../../data/grammar', 
+			File.dirname(__FILE__))
+		def cached_parser
+			grammar_path = File.expand_path('i2.grammar', GRAMMAR_DIR)
+			parser_path = File.expand_path('i2_parser.rb', GRAMMAR_DIR)
+			old_path = File.expand_path('i2.grammar.old', 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/src/i2/position.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# I2::Position -- xmlconv2 -- 02.06.2004 -- hwyss@ywesee.com
+
+require 'i2/date'
+
+module XmlConv
+	module I2
+		class Position
+			attr_accessor :number, :article_ean, :qty, :customer_id, :price, :unit
+			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
+        if(@customer_id)
+          output << sprintf("502:%s\n", @customer_id)
+        end
+        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
+				output
+			end
+		end
+	end
+end

data/src/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/src/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/src/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/src/model/bdd.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# Bdd -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		class Bdd
+			attr_accessor :bsr
+			attr_reader :deliveries, :invoices
+			def initialize
+				@deliveries = []
+				@invoices = []
+			end
+			def add_delivery(delivery)
+				@deliveries.push(delivery)
+			end
+			def add_invoice(invoice)
+				@invoices.push(invoice)
+			end
+      def invoiced_amount
+        @invoices.inject(0) { |memo, invoice|
+          memo + invoice.get_price('SummePositionen').amount.to_f
+        }
+      end
+		end
+	end
+end

data/src/model/bsr.rb

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

data/src/model/delivery.rb

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

data/src/model/delivery_item.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# DeliveryItem -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+require 'model/item'
+
+module XmlConv
+	module Model
+		class DeliveryItem < Item
+			attr_accessor :delivery_date
+			def et_nummer_id
+				self.ids['ET-NUMMER']
+			end
+			def customer_id
+				self.ids['LIEFERANTENARTIKEL']
+			end
+		end
+	end
+end

data/src/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_reader :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/src/model/id_container.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# IdContainer -- xmlconv2 -- 01.06.2004 -- hwyss@ywesee.com
+
+module XmlConv
+	module Model
+		module IdContainer
+			def add_id(domain, value)
+				self.ids.store(domain, value)
+			end
+			def ids
+				@ids ||= {}
+			end
+		end
+	end
+end

data/src/model/invoice.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Model::Invoice -- xmlconv2 -- 22.06.2004 -- hwyss@ywesee.com
+
+require '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/src/model/invoice_item.rb

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

data/src/model/item.rb

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# Model::Item -- xmlconv2 -- 23.06.2004 -- hwyss@ywesee.com
+
+require 'model/id_container'
+require 'model/freetext_container'
+require 'model/part_info_container'
+require '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/src/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