afipws 0.0.1

data/.gitignore

@@ -0,0 +1,5 @@
+pkg/*
+*.gem
+.bundle
+spec/manual/*.key
+spec/manual/*.crt

data/.rspec

@@ -0,0 +1 @@
+--colour

data/.rvmrc

@@ -0,0 +1 @@
+rvm 1.9.2

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in afipws.gemspec
+gemspec

data/Gemfile.lock

@@ -0,0 +1,69 @@
+PATH
+  remote: .
+  specs:
+    afipws (0.0.1)
+      activesupport
+      builder
+      nokogiri
+      savon
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    activesupport (3.0.3)
+    archive-tar-minitar (0.5.2)
+    builder (2.1.2)
+    columnize (0.3.2)
+    crack (0.1.8)
+    diff-lcs (1.1.2)
+    gyoku (0.2.0)
+      builder (>= 2.1.2)
+    httpi (0.7.8)
+      rack
+    linecache19 (0.5.11)
+      ruby_core_source (>= 0.1.4)
+    mocha (0.9.10)
+      rake
+    nokogiri (1.4.4)
+    rack (1.2.1)
+    rake (0.8.7)
+    rspec (2.4.0)
+      rspec-core (~> 2.4.0)
+      rspec-expectations (~> 2.4.0)
+      rspec-mocks (~> 2.4.0)
+    rspec-core (2.4.0)
+    rspec-expectations (2.4.0)
+      diff-lcs (~> 1.1.2)
+    rspec-mocks (2.4.0)
+    ruby-debug-base19 (0.11.24)
+      columnize (>= 0.3.1)
+      linecache19 (>= 0.5.11)
+      ruby_core_source (>= 0.1.4)
+    ruby-debug19 (0.11.6)
+      columnize (>= 0.3.1)
+      linecache19 (>= 0.5.11)
+      ruby-debug-base19 (>= 0.11.19)
+    ruby_core_source (0.1.4)
+      archive-tar-minitar (>= 0.5.2)
+    savon (0.8.2)
+      builder (>= 2.1.2)
+      crack (~> 0.1.8)
+      gyoku (>= 0.1.1)
+      httpi (>= 0.7.5)
+    savon_spec (0.1.2)
+      mocha (>= 0.9.8)
+      rspec (>= 2.0.0)
+      savon (~> 0.8.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  activesupport
+  afipws!
+  builder
+  nokogiri
+  rspec
+  ruby-debug19
+  savon
+  savon_spec

data/README.rdoc

@@ -0,0 +1,32 @@
+= Afipws
+
+== Uso 
+
+Primero hay que crear la clave privada y obtener el certificado correspondiente según los pasos indicados {aquí}[http://www.sistemasagiles.com.ar/trac/wiki/ManualPyAfipWs#Certificados].
+Luego usamos el Web Service de la siguiente forma:
+
+  gem install 'afipws'
+  
+  require 'afipws'
+  ws = Afipws::WSFE.new :env => :dev, :cuit => '...', :key => File.read('test.key') , :cert => File.read('test.crt')
+  puts ws.cotizacion 'DOL'
+
+De momento sólo están soportados los servicios WSAA y WSFEv1. 
+Ver specs para más ejemplos.
+
+== Testing
+
+  git clone git://github.com/eeng/afipws.git
+  cd afipws
+  bundle
+  rake
+
+== Note on Patches/Pull Requests
+ 
+* Fork the project.
+* Make your feature addition or bug fix.
+* Add tests for it. This is important so I don't break it in a
+  future version unintentionally.
+* Commit, do not mess with rakefile, version, or history.
+  (if you want to have your own version, that is fine but bump version in a commit by itself I can ignore when I pull)
+* Send me a pull request. Bonus points for topic branches.

data/Rakefile

@@ -0,0 +1,7 @@
+require 'bundler'
+Bundler.setup
+Bundler::GemHelper.install_tasks
+
+require "rspec/core/rake_task"
+RSpec::Core::RakeTask.new :spec
+task :default => :spec

data/afipws.gemspec

@@ -0,0 +1,29 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "afipws/version"
+
+Gem::Specification.new do |s|
+  s.name        = "afipws"
+  s.version     = Afipws::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ["Emmanuel Nicolau"]
+  s.email       = ["emmanicolau@gmail.com"]
+  s.homepage    = ""
+  s.summary     = %q{Ruby wrapper para los servicios web de la AFIP}
+  s.description = ""
+
+  s.rubyforge_project = "afipws"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+  
+  s.add_development_dependency "rspec"
+  s.add_development_dependency "ruby-debug19"
+  s.add_development_dependency "savon_spec"
+  s.add_dependency "builder"
+  s.add_dependency "savon"
+  s.add_dependency "nokogiri"
+  s.add_dependency "activesupport"
+end

data/autotest/discover.rb

@@ -0,0 +1 @@
+Autotest.add_discovery { "rspec2" }

data/lib/afipws.rb

@@ -0,0 +1,23 @@
+module Afipws
+  Root = File.expand_path File.dirname(__FILE__) + '/..'
+end
+
+require 'forwardable'
+require 'builder'
+require 'base64'
+require 'savon'
+require 'nokogiri'
+require 'active_support/core_ext/array/wrap'
+# TODO reemplazar wrap x un local
+require 'core_ext/string'
+require 'core_ext/hash'
+require 'afipws/excepciones'
+require 'afipws/type_conversions'
+require 'afipws/client'
+require 'afipws/wsaa'
+require 'afipws/wsfe'
+
+Savon.configure do |config|
+  config.soap_version = 2
+  config.log = false
+end

data/lib/afipws/client.rb

@@ -0,0 +1,48 @@
+module Afipws
+  class Client
+    def initialize wsdl_url
+      @client = Savon::Client.new { wsdl.document = wsdl_url }
+    end
+    
+    def request action, body = nil
+      response = raw_request(action, body).to_hash[:"#{action}_response"][:"#{action}_result"]
+      if response[:errors]
+        raise WSError, Array.wrap(response[:errors][:err])
+      else
+        response
+      end
+    end
+    
+    def raw_request action, body = nil
+      @client.request(namespace, action) { soap.body = add_ns_to_keys(body) }
+    end
+    
+    def soap_actions
+      @client.wsdl.soap_actions
+    end
+    
+    def method_missing method_sym, *args
+      request method_sym, *args
+    end
+    
+    private
+    def add_ns_to_keys body
+      case body
+      when Hash
+        Hash[body.map { |k, v| ["#{namespace}:#{camelize(k)}", add_ns_to_keys(v)] }]
+      when Array
+        body.map { |x| add_ns_to_keys x }
+      else 
+        body
+      end
+    end
+    
+    def namespace
+      :wsdl
+    end
+    
+    def camelize k
+      k.is_a?(String) ? k : k.to_s.camelize
+    end
+  end
+end

data/lib/afipws/excepciones.rb

@@ -0,0 +1,13 @@
+module Afipws
+  class WSError < StandardError
+    attr_reader :errors
+    def initialize errors
+      if errors.is_a? Array
+        super errors.map { |e| "#{e[:code]}: #{e[:msg]}" }.join '; '
+        @errors = errors
+      else
+        super
+      end
+    end
+  end  
+end

data/lib/afipws/type_conversions.rb

@@ -0,0 +1,38 @@
+module Afipws
+  module TypeConversions
+    def r2x x, types
+      convert x, types, marshall_fn
+    end
+
+    def x2r x, types
+      convert x, types, parsing_fn
+    end
+    
+    private
+    # Hace una conversión recursiva de tipo de todos los values según los tipos de las keys indicados en types
+    def convert object, types, convert_fn
+      case object
+      when Array then 
+        object.map { |e| convert e, types, convert_fn }
+      when Hash then 
+        Hash[object.map { |k, v| [k, v.is_a?(Hash) || v.is_a?(Array) ? convert(v, types, convert_fn) : convert_fn[types[k]].call(v)] }]
+      else 
+        object
+      end
+    end
+    
+    def parsing_fn
+      @parsing ||= Hash.new(Proc.new { |other| other }).tap { |p|
+        p[:date] = Proc.new { |date| ::Date.parse(date) rescue nil }
+        p[:integer] = Proc.new { |integer| integer.to_i }
+        p[:float] = Proc.new { |float| float.to_f }
+      }
+    end
+
+    def marshall_fn
+      @marshall ||= Hash.new(Proc.new { |other| other }).tap { |p|
+        p[:date] = Proc.new { |date| date.strftime('%Y%m%d') }
+      }
+    end    
+  end
+end

data/lib/afipws/version.rb

@@ -0,0 +1,3 @@
+module Afipws
+  VERSION = "0.0.1"
+end

data/lib/afipws/wsaa.rb

@@ -0,0 +1,77 @@
+module Afipws
+  class WSAA
+    attr_reader :key, :cert, :service, :ta, :cuit
+
+    WSDL = {
+      :dev => "https://wsaahomo.afip.gov.ar/ws/services/LoginCms?wsdl",
+      :test => Root + '/spec/fixtures/wsaa.wsdl'
+    }
+    
+    def initialize options = {}
+      @key = options[:key]
+      @cert = options[:cert]
+      @service = options[:service] || 'wsfe'
+      @ttl = options[:ttl] || 2400
+      @cuit = options[:cuit]
+      @client = Client.new WSDL[options[:env] || :test]
+    end
+    
+    def generar_tra service, ttl
+      xml = Builder::XmlMarkup.new indent: 2
+      xml.instruct!
+      xml.loginTicketRequest version: 1 do
+        xml.header do
+          xml.uniqueId Time.now.to_i
+          xml.generationTime xsd_datetime Time.now - ttl
+          # TODO me parece que no le da mucha bola el WS al expirationTime
+          xml.expirationTime xsd_datetime Time.now + ttl
+        end
+        xml.service service
+      end
+    end
+    
+    def firmar_tra tra, key, crt
+      key = OpenSSL::PKey::RSA.new key
+      crt = OpenSSL::X509::Certificate.new crt
+      OpenSSL::PKCS7::sign crt, key, tra
+    end
+    
+    def codificar_tra pkcs7
+      pkcs7.to_pem.lines.to_a[1..-2].join
+    end
+    
+    def tra key, cert, service, ttl
+      codificar_tra firmar_tra(generar_tra(service, ttl), key, cert)
+    end
+    
+    def login
+      response = @client.raw_request :login_cms, 'in0' => tra(@key, @cert, @service, @ttl)
+      ta = Nokogiri::XML(Nokogiri::XML(response.to_xml).text)
+      { :token => ta.css('token').text, :sign => ta.css('sign').text, 
+        :generation_time => from_xsd_datetime(ta.css('generationTime').text),
+        :expiration_time => from_xsd_datetime(ta.css('expirationTime').text) }
+    rescue Savon::SOAP::Fault => f
+      raise WSError, f.message
+    end
+    
+    # Obtiene un TA, lo cachea hasta que expire, y devuelve el hash Auth listo para pasarle al Client
+    # en los otros WS.
+    def auth
+      @ta = login if ta_expirado?
+      { :auth => { :token => @ta[:token], :sign => ta[:sign], :cuit => @cuit } }
+    end
+    
+    private
+    def ta_expirado?
+      @ta.nil? or @ta[:expiration_time] <= Time.now
+    end
+    
+    def xsd_datetime time
+      time.strftime('%Y-%m-%dT%H:%M:%S%z').sub /(\d{2})(\d{2})$/, '\1:\2'
+    end
+    
+    def from_xsd_datetime str
+      Time.parse(str) rescue nil
+    end
+  end
+end

data/lib/afipws/wsfe.rb

@@ -0,0 +1,88 @@
+module Afipws
+  class WSFE
+    extend Forwardable
+    include TypeConversions
+    attr_reader :wsaa, :client
+    def_delegators :wsaa, :ta, :auth, :cuit
+
+    WSDL = {
+      :dev => "http://wswhomo.afip.gov.ar/wsfev1/service.asmx?WSDL",
+      :test => Root + '/spec/fixtures/wsfe.wsdl'
+    }
+    
+    def initialize options = {}
+      @wsaa = options[:wsaa] || WSAA.new(options.merge(:service => 'wsfe'))
+      @client = Client.new WSDL[options[:env] || :test]
+    end
+    
+    def dummy
+      @client.fe_dummy
+    end
+    
+    def tipos_comprobantes
+      r = @client.fe_param_get_tipos_cbte auth
+      x2r get_array(r, :cbte_tipo), :id => :integer, :fch_desde => :date, :fch_hasta => :date
+    end
+    
+    def tipos_documentos
+      r = @client.fe_param_get_tipos_doc auth
+      x2r get_array(r, :doc_tipo), :id => :integer, :fch_desde => :date, :fch_hasta => :date
+    end
+    
+    def tipos_monedas
+      r = @client.fe_param_get_tipos_monedas auth
+      x2r get_array(r, :moneda), :fch_desde => :date, :fch_hasta => :date
+    end
+    
+    def tipos_iva
+      r = @client.fe_param_get_tipos_iva auth
+      x2r get_array(r, :iva_tipo), :id => :integer, :fch_desde => :date, :fch_hasta => :date
+    end
+    
+    def tipos_tributos
+      r = @client.fe_param_get_tipos_tributos auth
+      x2r get_array(r, :tributo_tipo), :id => :integer, :fch_desde => :date, :fch_hasta => :date      
+    end
+
+    def cotizacion moneda_id
+      @client.fe_param_get_cotizacion(auth.merge(:mon_id => moneda_id))[:result_get][:mon_cotiz].to_f
+    end
+    
+    def autorizar_comprobantes opciones
+      comprobantes = opciones[:comprobantes]
+      request = { 'FeCAEReq' => {
+        'FeCabReq' => opciones.select_keys(:cbte_tipo, :pto_vta).merge(:cant_reg => comprobantes.size),
+        'FeDetReq' => { 
+          'FECAEDetRequest' => comprobantes.map do |comprobante|
+            comprobante.merge(:cbte_desde => comprobante[:cbte_nro], :cbte_hasta => comprobante[:cbte_nro]).
+              select_keys(:concepto, :doc_tipo, :doc_nro, :cbte_desde, 
+              :cbte_hasta, :cbte_fch, :imp_total, :imp_tot_conc, :imp_neto, :imp_op_ex, :imp_trib, 
+              :mon_id, :mon_cotiz, :iva).merge({ 'ImpIVA' => comprobante[:imp_iva] })
+          end
+      }}}
+      r = @client.fecae_solicitar auth.merge r2x(request, :cbte_fch => :date)
+      r = Array.wrap(r[:fe_det_resp][:fecae_det_response]).map do |h| 
+        obs = h[:observaciones] ? h[:observaciones][:obs] : nil
+        h.select_keys(:cae, :cae_fch_vto).merge(:cbte_nro => h[:cbte_desde]).tap { |h| h.merge!(:observaciones => obs) if obs }
+      end
+      x2r r, :cae_fch_vto => :date, :cbte_nro => :integer, :code => :integer
+    end
+    
+    def ultimo_comprobante_autorizado opciones
+      @client.fe_comp_ultimo_autorizado(auth.merge(opciones))[:cbte_nro].to_i
+    end
+
+    def consultar_comprobante opciones
+      @client.fe_comp_consultar(auth.merge(opciones))[:result_get]
+    end
+    
+    def cant_max_registros_x_request
+      @client.fe_comp_tot_x_request[:reg_x_req].to_i
+    end
+    
+    private
+    def get_array response, array_element
+      Array.wrap response[:result_get][array_element]
+    end
+  end
+end