verifactu-rails 0.1.0.pre

data/lib/verifactu_rails/schemas/SuministroLR.xsd

@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!-- editado con XMLSpy v2019 sp1 (x64) (http://www.altova.com) por Puesto de Trabajo (Agencia Estatal de Administracion Tributaria ((AEAT))) -->
+<!-- edited with XMLSpy v2009 sp1 (http://www.altova.com) by PC Corporativo (AGENCIA TRIBUTARIA) -->
+<schema xmlns="http://www.w3.org/2001/XMLSchema" xmlns:sfLR="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" xmlns:sf="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" targetNamespace="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroLR.xsd" elementFormDefault="qualified">
+	<import namespace="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/SuministroInformacion.xsd" schemaLocation="SuministroInformacion.xsd"/>
+	<element name="RegFactuSistemaFacturacion">
+		<complexType>
+			<sequence>
+				<element name="Cabecera" type="sf:CabeceraType"/>
+				<element name="RegistroFactura" type="sfLR:RegistroFacturaType" maxOccurs="1000"/>
+			</sequence>
+		</complexType>
+	</element>
+	<complexType name="RegistroFacturaType">
+		<annotation>
+			<documentation xml:lang="es">Datos correspondientes a los registros de facturacion</documentation>
+		</annotation>
+		<sequence>
+			<choice>
+				<element ref="sf:RegistroAlta"/>
+				<element ref="sf:RegistroAnulacion"/>
+			</choice>
+		</sequence>
+	</complexType>
+</schema>

data/lib/verifactu_rails/schemas/catalog.xml

@@ -0,0 +1,5 @@
+<?xml version="1.0"?>
+<catalog xmlns="urn:oasis:names:tc:entity:xmlns:xml:catalog">
+  <uri name="http://www.w3.org/TR/xmldsig-core/xmldsig-core-schema.xsd" uri="xmldsig-core-schema.xsd"/>
+  <system systemId="http://www.w3.org/TR/xmldsig-core/xmldsig-core-schema.xsd" uri="xmldsig-core-schema.xsd"/>
+</catalog>

data/lib/verifactu_rails/schemas/xmldsig-core-schema.xsd

@@ -0,0 +1,318 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE schema
+  PUBLIC "-//W3C//DTD XMLSchema 200102//EN" "http://www.w3.org/2001/XMLSchema.dtd"
+ [
+   <!ATTLIST schema 
+     xmlns:ds CDATA #FIXED "http://www.w3.org/2000/09/xmldsig#">
+   <!ENTITY dsig 'http://www.w3.org/2000/09/xmldsig#'>
+   <!ENTITY % p ''>
+   <!ENTITY % s ''>
+  ]>
+
+<!-- Schema for XML Signatures
+    http://www.w3.org/2000/09/xmldsig#
+    $Revision: 1.2 $ on $Date: 2013/04/16 12:48:49 $ by $Author: denis $
+
+    Copyright 2001 The Internet Society and W3C (Massachusetts Institute
+    of Technology, Institut National de Recherche en Informatique et en
+    Automatique, Keio University). All Rights Reserved.
+    http://www.w3.org/Consortium/Legal/
+
+    This document is governed by the W3C Software License [1] as described
+    in the FAQ [2].
+
+    [1] http://www.w3.org/Consortium/Legal/copyright-software-19980720
+    [2] http://www.w3.org/Consortium/Legal/IPR-FAQ-20000620.html#DTD
+-->
+
+
+<schema xmlns="http://www.w3.org/2001/XMLSchema"
+        xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
+        targetNamespace="http://www.w3.org/2000/09/xmldsig#"
+        version="0.1" elementFormDefault="qualified"> 
+
+<!-- Basic Types Defined for Signatures -->
+
+<simpleType name="CryptoBinary">
+  <restriction base="base64Binary">
+  </restriction>
+</simpleType>
+
+<!-- Start Signature -->
+
+<element name="Signature" type="ds:SignatureType"/>
+<complexType name="SignatureType">
+  <sequence> 
+    <element ref="ds:SignedInfo"/> 
+    <element ref="ds:SignatureValue"/> 
+    <element ref="ds:KeyInfo" minOccurs="0"/> 
+    <element ref="ds:Object" minOccurs="0" maxOccurs="unbounded"/> 
+  </sequence>  
+  <attribute name="Id" type="ID" use="optional"/>
+</complexType>
+
+  <element name="SignatureValue" type="ds:SignatureValueType"/> 
+  <complexType name="SignatureValueType">
+    <simpleContent>
+      <extension base="base64Binary">
+        <attribute name="Id" type="ID" use="optional"/>
+      </extension>
+    </simpleContent>
+  </complexType>
+
+<!-- Start SignedInfo -->
+
+<element name="SignedInfo" type="ds:SignedInfoType"/>
+<complexType name="SignedInfoType">
+  <sequence> 
+    <element ref="ds:CanonicalizationMethod"/> 
+    <element ref="ds:SignatureMethod"/> 
+    <element ref="ds:Reference" maxOccurs="unbounded"/> 
+  </sequence>  
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+  <element name="CanonicalizationMethod" type="ds:CanonicalizationMethodType"/> 
+  <complexType name="CanonicalizationMethodType" mixed="true">
+    <sequence>
+      <any namespace="##any" minOccurs="0" maxOccurs="unbounded"/>
+      <!-- (0,unbounded) elements from (1,1) namespace -->
+    </sequence>
+    <attribute name="Algorithm" type="anyURI" use="required"/> 
+  </complexType>
+
+  <element name="SignatureMethod" type="ds:SignatureMethodType"/>
+  <complexType name="SignatureMethodType" mixed="true">
+    <sequence>
+      <element name="HMACOutputLength" minOccurs="0" type="ds:HMACOutputLengthType"/>
+      <any namespace="##other" minOccurs="0" maxOccurs="unbounded"/>
+      <!-- (0,unbounded) elements from (1,1) external namespace -->
+    </sequence>
+    <attribute name="Algorithm" type="anyURI" use="required"/> 
+  </complexType>
+
+<!-- Start Reference -->
+
+<element name="Reference" type="ds:ReferenceType"/>
+<complexType name="ReferenceType">
+  <sequence> 
+    <element ref="ds:Transforms" minOccurs="0"/> 
+    <element ref="ds:DigestMethod"/> 
+    <element ref="ds:DigestValue"/> 
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+  <attribute name="URI" type="anyURI" use="optional"/> 
+  <attribute name="Type" type="anyURI" use="optional"/> 
+</complexType>
+
+  <element name="Transforms" type="ds:TransformsType"/>
+  <complexType name="TransformsType">
+    <sequence>
+      <element ref="ds:Transform" maxOccurs="unbounded"/>  
+    </sequence>
+  </complexType>
+
+  <element name="Transform" type="ds:TransformType"/>
+  <complexType name="TransformType" mixed="true">
+    <choice minOccurs="0" maxOccurs="unbounded"> 
+      <any namespace="##other" processContents="lax"/>
+      <!-- (1,1) elements from (0,unbounded) namespaces -->
+      <element name="XPath" type="string"/> 
+    </choice>
+    <attribute name="Algorithm" type="anyURI" use="required"/> 
+  </complexType>
+
+<!-- End Reference -->
+
+<element name="DigestMethod" type="ds:DigestMethodType"/>
+<complexType name="DigestMethodType" mixed="true"> 
+  <sequence>
+    <any namespace="##other" processContents="lax" minOccurs="0" maxOccurs="unbounded"/>
+  </sequence>    
+  <attribute name="Algorithm" type="anyURI" use="required"/> 
+</complexType>
+
+<element name="DigestValue" type="ds:DigestValueType"/>
+<simpleType name="DigestValueType">
+  <restriction base="base64Binary"/>
+</simpleType>
+
+<!-- End SignedInfo -->
+
+<!-- Start KeyInfo -->
+
+<element name="KeyInfo" type="ds:KeyInfoType"/> 
+<complexType name="KeyInfoType" mixed="true">
+  <choice maxOccurs="unbounded">     
+    <element ref="ds:KeyName"/> 
+    <element ref="ds:KeyValue"/> 
+    <element ref="ds:RetrievalMethod"/> 
+    <element ref="ds:X509Data"/> 
+    <element ref="ds:PGPData"/> 
+    <element ref="ds:SPKIData"/>
+    <element ref="ds:MgmtData"/>
+    <any processContents="lax" namespace="##other"/>
+    <!-- (1,1) elements from (0,unbounded) namespaces -->
+  </choice>
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+  <element name="KeyName" type="string"/>
+  <element name="MgmtData" type="string"/>
+
+  <element name="KeyValue" type="ds:KeyValueType"/> 
+  <complexType name="KeyValueType" mixed="true">
+   <choice>
+     <element ref="ds:DSAKeyValue"/>
+     <element ref="ds:RSAKeyValue"/>
+     <any namespace="##other" processContents="lax"/>
+   </choice>
+  </complexType>
+
+  <element name="RetrievalMethod" type="ds:RetrievalMethodType"/> 
+  <complexType name="RetrievalMethodType">
+    <sequence>
+      <element ref="ds:Transforms" minOccurs="0"/> 
+    </sequence>  
+    <attribute name="URI" type="anyURI"/>
+    <attribute name="Type" type="anyURI" use="optional"/>
+  </complexType>
+
+<!-- Start X509Data -->
+
+<element name="X509Data" type="ds:X509DataType"/> 
+<complexType name="X509DataType">
+  <sequence maxOccurs="unbounded">
+    <choice>
+      <element name="X509IssuerSerial" type="ds:X509IssuerSerialType"/>
+      <element name="X509SKI" type="base64Binary"/>
+      <element name="X509SubjectName" type="string"/>
+      <element name="X509Certificate" type="base64Binary"/>
+      <element name="X509CRL" type="base64Binary"/>
+      <any namespace="##other" processContents="lax"/>
+    </choice>
+  </sequence>
+</complexType>
+
+<complexType name="X509IssuerSerialType"> 
+  <sequence> 
+    <element name="X509IssuerName" type="string"/> 
+    <element name="X509SerialNumber" type="integer"/> 
+  </sequence>
+</complexType>
+
+<!-- End X509Data -->
+
+<!-- Begin PGPData -->
+
+<element name="PGPData" type="ds:PGPDataType"/> 
+<complexType name="PGPDataType"> 
+  <choice>
+    <sequence>
+      <element name="PGPKeyID" type="base64Binary"/> 
+      <element name="PGPKeyPacket" type="base64Binary" minOccurs="0"/> 
+      <any namespace="##other" processContents="lax" minOccurs="0"
+       maxOccurs="unbounded"/>
+    </sequence>
+    <sequence>
+      <element name="PGPKeyPacket" type="base64Binary"/> 
+      <any namespace="##other" processContents="lax" minOccurs="0"
+       maxOccurs="unbounded"/>
+    </sequence>
+  </choice>
+</complexType>
+
+<!-- End PGPData -->
+
+<!-- Begin SPKIData -->
+
+<element name="SPKIData" type="ds:SPKIDataType"/> 
+<complexType name="SPKIDataType">
+  <sequence maxOccurs="unbounded">
+    <element name="SPKISexp" type="base64Binary"/>
+    <any namespace="##other" processContents="lax" minOccurs="0"/>
+  </sequence>
+</complexType> 
+
+<!-- End SPKIData -->
+
+<!-- End KeyInfo -->
+
+<!-- Start Object (Manifest, SignatureProperty) -->
+
+<element name="Object" type="ds:ObjectType"/> 
+<complexType name="ObjectType" mixed="true">
+  <sequence minOccurs="0" maxOccurs="unbounded">
+    <any namespace="##any" processContents="lax"/>
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+  <attribute name="MimeType" type="string" use="optional"/> <!-- add a grep facet -->
+  <attribute name="Encoding" type="anyURI" use="optional"/> 
+</complexType>
+
+<element name="Manifest" type="ds:ManifestType"/> 
+<complexType name="ManifestType">
+  <sequence>
+    <element ref="ds:Reference" maxOccurs="unbounded"/> 
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+<element name="SignatureProperties" type="ds:SignaturePropertiesType"/> 
+<complexType name="SignaturePropertiesType">
+  <sequence>
+    <element ref="ds:SignatureProperty" maxOccurs="unbounded"/> 
+  </sequence>
+  <attribute name="Id" type="ID" use="optional"/> 
+</complexType>
+
+   <element name="SignatureProperty" type="ds:SignaturePropertyType"/> 
+   <complexType name="SignaturePropertyType" mixed="true">
+     <choice maxOccurs="unbounded">
+       <any namespace="##other" processContents="lax"/>
+       <!-- (1,1) elements from (1,unbounded) namespaces -->
+     </choice>
+     <attribute name="Target" type="anyURI" use="required"/> 
+     <attribute name="Id" type="ID" use="optional"/> 
+   </complexType>
+
+<!-- End Object (Manifest, SignatureProperty) -->
+
+<!-- Start Algorithm Parameters -->
+
+<simpleType name="HMACOutputLengthType">
+  <restriction base="integer"/>
+</simpleType>
+
+<!-- Start KeyValue Element-types -->
+
+<element name="DSAKeyValue" type="ds:DSAKeyValueType"/>
+<complexType name="DSAKeyValueType">
+  <sequence>
+    <sequence minOccurs="0">
+      <element name="P" type="ds:CryptoBinary"/>
+      <element name="Q" type="ds:CryptoBinary"/>
+    </sequence>
+    <element name="G" type="ds:CryptoBinary" minOccurs="0"/>
+    <element name="Y" type="ds:CryptoBinary"/>
+    <element name="J" type="ds:CryptoBinary" minOccurs="0"/>
+    <sequence minOccurs="0">
+      <element name="Seed" type="ds:CryptoBinary"/>
+      <element name="PgenCounter" type="ds:CryptoBinary"/>
+    </sequence>
+  </sequence>
+</complexType>
+
+<element name="RSAKeyValue" type="ds:RSAKeyValueType"/>
+<complexType name="RSAKeyValueType">
+  <sequence>
+    <element name="Modulus" type="ds:CryptoBinary"/> 
+    <element name="Exponent" type="ds:CryptoBinary"/> 
+  </sequence>
+</complexType> 
+
+<!-- End KeyValue Element-types -->
+
+<!-- End Signature -->
+
+</schema>

data/lib/verifactu_rails/sistema_informatico.rb

@@ -0,0 +1,88 @@
+# frozen_string_literal: true
+
+require_relative 'formato'
+require_relative 'error'
+
+module VerifactuRails
+  # Identificación del sistema informático de facturación, obligatoria en CADA
+  # registro remitido (sf:SistemaInformaticoType).
+  #
+  # Ojo a lo que es esto realmente: la declaración de quién produce el SIF, en
+  # cada envío. Los valores describen al SIF DESPLEGADO, no a esta gema, y los
+  # aporta quien lo despliega. Esta librería es un componente del SIF, no el SIF.
+  class SistemaInformatico
+    # TipoUsoPosibleSoloVerifactu va fijo a 'S' y no se puede configurar.
+    #
+    # No es un capricho: declarar 'N' significa que el SIF puede operar en modo
+    # NO VERI*FACTU, y eso obliga a llevar registro de eventos (RD 1007/2023;
+    # FAQs Desarrolladores v1.3, ap. 15, nota 1). Esta gema no implementa
+    # eventos, así que permitir 'N' sería dejar construir un sistema incompleto
+    # sin avisar. Si necesitas 'N', esta no es la librería.
+    SOLO_VERIFACTU = 'S'
+
+    attr_reader :nombre_razon, :nif, :nombre_sistema, :id_sistema, :version,
+                :numero_instalacion, :multi_ot, :multiples_ot
+
+    # @param multi_ot [Boolean] TipoUsoPosibleMultiOT: si el SIF puede usarse
+    #   para varios obligados tributarios.
+    # @param multiples_ot [Boolean] IndicadorMultiplesOT: si de hecho se está
+    #   usando para varios en este momento.
+    def initialize(nombre_razon:, nif:, nombre_sistema:, id_sistema:, version:,
+                   numero_instalacion:, multi_ot: false, multiples_ot: false)
+      @nombre_razon = Formato.limitar(nombre_razon, 'NombreRazon', 120)
+      @nif = Formato.nif(nif, 'NIF del productor')
+      @nombre_sistema = Formato.limitar(nombre_sistema, 'NombreSistemaInformatico', 30)
+      @id_sistema = validar_id_sistema(id_sistema)
+      @version = Formato.limitar(version, 'Version', 50)
+      @numero_instalacion = Formato.limitar(numero_instalacion, 'NumeroInstalacion', 100)
+      # Por Formato.si_no y no por valor de verdad: 'N' es truthy en Ruby y se
+      # emitía como 'S', invirtiendo lo que el usuario había declarado.
+      @multi_ot = Formato.si_no(multi_ot, 'TipoUsoPosibleMultiOT') == 'S'
+      @multiples_ot = Formato.si_no(multiples_ot, 'IndicadorMultiplesOT') == 'S'
+
+      if @multiples_ot && !@multi_ot
+        raise ValidacionError,
+              'IndicadorMultiplesOT no puede ser cierto si TipoUsoPosibleMultiOT ' \
+              'es falso: no puedes estar usándolo para varios obligados si el ' \
+              'sistema declara que no lo admite'
+      end
+    end
+
+    # Ap. 3.1.5: "deberá tener rellenas siempre las dos posiciones, cada una de
+    # las cuales deberá ser una letra mayúscula, excepto la Ñ, o un dígito
+    # numérico". El XSD solo limita la longitud a 2, así que sin esto pasaban
+    # valores de una posición o en minúscula.
+    PATRON_ID_SISTEMA = /\A[A-Z0-9]{2}\z/
+
+    def solo_verifactu = SOLO_VERIFACTU
+    def multi_ot? = @multi_ot
+    def multiples_ot? = @multiples_ot
+
+    # Orden EXACTO de sf:SistemaInformaticoType. Es una <sequence>: alterarlo
+    # invalida el documento.
+    def a_pares
+      {
+        'NombreRazon' => nombre_razon,
+        'NIF' => nif,
+        'NombreSistemaInformatico' => nombre_sistema,
+        'IdSistemaInformatico' => id_sistema,
+        'Version' => version,
+        'NumeroInstalacion' => numero_instalacion,
+        'TipoUsoPosibleSoloVerifactu' => SOLO_VERIFACTU,
+        'TipoUsoPosibleMultiOT' => multi_ot ? 'S' : 'N',
+        'IndicadorMultiplesOT' => multiples_ot ? 'S' : 'N'
+      }
+    end
+
+    private
+
+    def validar_id_sistema(valor)
+      cadena = Formato.limitar(valor, 'IdSistemaInformatico', 2)
+      return cadena if cadena.match?(PATRON_ID_SISTEMA)
+
+      raise ValidacionError,
+            'IdSistemaInformatico debe tener exactamente dos posiciones, cada una ' \
+            "una letra mayúscula (salvo la Ñ) o un dígito: #{cadena.inspect}"
+    end
+  end
+end

data/lib/verifactu_rails/transporte.rb

@@ -0,0 +1,127 @@
+# frozen_string_literal: true
+
+require 'net/http'
+require 'uri'
+require_relative 'certificado'
+require_relative 'error'
+require_relative 'formato'
+
+module VerifactuRails
+  class TransporteError < StandardError
+    include Error
+  end
+
+  # Cliente HTTP con autenticación mutua TLS contra el servicio VERI*FACTU.
+  #
+  # Sin Savon: el servicio es un único endpoint con un sobre SOAP fijo, así que
+  # Net::HTTP de la stdlib sobra. Nos ahorra httpi, wasabi, gyoku, akami y nori.
+  class Transporte
+    # Preproducción y producción se corresponden uno a uno: prewww1 <-> www1,
+    # prewww2 <-> www2, prewww10 <-> www10 (este último, el de certificado de
+    # sello). Fuente: portal de pruebas externas de la AEAT.
+    #
+    # Aviso operativo del propio portal: preproducción es para pruebas puntuales,
+    # NO para pruebas masivas ni para validaciones integradas en procesos de
+    # producción. Un uso que consideren abusivo puede acabar en bloqueo.
+    ENDPOINTS = {
+      [:pruebas, false]    => 'https://prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP',
+      [:pruebas, true]     => 'https://prewww10.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP',
+      [:produccion, false] => 'https://www1.agenciatributaria.gob.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP',
+      [:produccion, true]  => 'https://www10.agenciatributaria.gob.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP'
+    }.freeze
+
+    SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/'
+
+    attr_reader :certificado, :entorno, :url
+
+    # @param sello [Boolean, nil] fuerza el endpoint de sello de entidad.
+    #   Si es nil se deduce del propio certificado.
+    def initialize(certificado:, entorno: :pruebas, sello: nil, url: nil,
+                   ca_file: nil, timeout: 30)
+      unless %i[pruebas produccion].include?(entorno)
+        raise ValidacionError, "Entorno inválido: #{entorno.inspect} (usa :pruebas o :produccion)"
+      end
+
+      @certificado = Formato.objeto(certificado, 'certificado', Certificado)
+      @entorno = entorno
+      # Sin normalizar, un sello: 'S' llegaba a ENDPOINTS.fetch([entorno, 'S']) y
+      # daba un KeyError, justo al lado de la comprobación de entorno que sí da
+      # un error del dominio.
+      @sello = sello.nil? ? @certificado.sello? : Formato.si_no(sello, 'sello') == 'S'
+      @url = url || ENDPOINTS.fetch([entorno, @sello])
+      @ca_file = ca_file
+      @timeout = timeout
+    end
+
+    def sello? = @sello
+
+    # Envía el XML del registro ya construido. Devuelve la respuesta cruda:
+    # el parseo es responsabilidad de la capa superior.
+    def enviar(xml_registro)
+      peticion = Net::HTTP::Post.new(uri)
+      peticion['Content-Type'] = 'text/xml; charset=utf-8'
+      peticion['SOAPAction'] = '""'
+      peticion.body = envolver(xml_registro)
+
+      respuesta = cliente.request(peticion)
+      { codigo: respuesta.code.to_i, cuerpo: respuesta.body }
+    rescue OpenSSL::SSL::SSLError => e
+      raise TransporteError, mensaje_ssl(e)
+    rescue Net::OpenTimeout, Net::ReadTimeout => e
+      raise TransporteError, "Timeout contra #{uri.host}: #{e.class}"
+    end
+
+    # Una declaración <?xml?> solo puede ir al principio del documento, y
+    # Envio#to_xml emite la suya. Incrustarla tal cual dentro del Body producía
+    # un sobre MAL FORMADO con dos declaraciones, que la AEAT contestó con
+    # "Codigo[102].Error interno en el servidor": el fallo era de parseo, no de
+    # validación, así que el mensaje no orientaba en absoluto.
+    DECLARACION_XML = /\A\s*<\?xml[^>]*\?>\s*/
+
+    def envolver(xml_registro)
+      cuerpo = xml_registro.to_s.sub(DECLARACION_XML, '')
+      # document/literal según el WSDL: el Body lleva directamente el elemento,
+      # sin envoltorio de operación.
+      <<~XML
+        <?xml version="1.0" encoding="UTF-8"?>
+        <soapenv:Envelope xmlns:soapenv="#{SOAP_NS}">
+          <soapenv:Header/>
+          <soapenv:Body>#{cuerpo}</soapenv:Body>
+        </soapenv:Envelope>
+      XML
+    end
+
+    def cliente
+      http = Net::HTTP.new(uri.host, uri.port)
+      http.use_ssl = true
+      http.cert = certificado.certificado
+      http.key = certificado.clave
+      http.extra_chain_cert = certificado.cadena if certificado.cadena.any?
+      # NUNCA VERIFY_NONE. Si falla la verificación, el arreglo es aportar la
+      # cadena de la CA correcta en ca_file, no desactivar la comprobación.
+      http.verify_mode = OpenSSL::SSL::VERIFY_PEER
+      http.ca_file = @ca_file if @ca_file
+      http.open_timeout = @timeout
+      http.read_timeout = @timeout
+      http
+    end
+
+    private
+
+    def uri = @uri ||= URI.parse(@url)
+
+    def mensaje_ssl(error)
+      if error.message.include?('certificate verify failed')
+        "Fallo al verificar el certificado de servidor de #{uri.host}. " \
+          'Desde la renovación de noviembre de 2025 la AEAT usa CA públicas ' \
+          '(Entrust/Sectigo bajo USERTrust RSA), así que la causa habitual NO es ' \
+          'que falte la cadena: mira si el almacén de confianza del sistema está ' \
+          'anticuado o si un proxy corporativo intercepta el TLS. Si aun así ' \
+          'necesitas anclar la cadena, pásala en ca_file. No uses VERIFY_NONE: ' \
+          "(#{error.message})"
+      else
+        "Error TLS contra #{uri.host}: #{error.message}"
+      end
+    end
+  end
+end

data/lib/verifactu_rails/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module VerifactuRails
+  VERSION = '0.1.0.pre'
+end