SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

[bartag]

Te pongo el código que utilizo. Básicamente lo que hace es tomar un archivo xml y lo envía. Debes por favor cumplimentar previamente los campos de dicho archivo pues en caso contrario te dará errores de validación.

        ' ----------------------------------------------------------------------------------------
        Dim store As Security.Cryptography.X509Certificates.X509Store = New Security.Cryptography.X509Certificates.X509Store("My")
        store.Open(Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)

        Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2
        
        For Each x In store.Certificates
            ListCert = ListCert & vbNewLine
        Next
        'RichTextBox1.Text = ListCert

        CertificadoCorrecto = store.Certificates(CInt(TextBoxNumeroOrdenCertificado.Text)) '(5)

        ' Objeto que almacenara la respuesta de la funcion del Web Service
        Dim resp As New ServiceReference1.RespuestaLRFEmitidasType

        ' Ws
        Dim Ws As New ServiceReference1.siiSOAPClient

        Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
        Ws.ClientCredentials.UseIdentityConfiguration = True

        ' Asignamos el certificado:
        Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
        ' ----------------------------------------------------------------------------------------


        ' ----------------------------------------------------------------------------------------
        Dim _SuministroLRFacturasEmitidas As New SuministroLRFacturasEmitidas
        '--------------------------------------------------------------------------
        
        Try

            Dim x As New XmlSerializer(_SuministroLRFacturasEmitidas.GetType, "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd") 

            ' A FileStream is needed to read the XML document.
            Dim filename As String = "facturaEmitidaMODEL.XML"


            Using reader As New FileStream(filename, FileMode.Open)
                _SuministroLRFacturasEmitidas = CType(x.Deserialize(reader), SuministroLRFacturasEmitidas)
            End Using

            ' SI QUEREMOS SOBREESCRIBIR EL XML ANTES DE ENVIAR:
            ' SOBREESCRIBIMOS DATS FORM ANTES SEND:
            _SuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon = Trim(TextBoxRazonSocialEmisor.Text)
            _SuministroLRFacturasEmitidas.Cabecera.Titular.NIF = Trim(TextBoxNIFEmisor.Text)

           '(...)

           '// se hace la llamada a la funcion suministrada por el WS
            resp = Ws.SuministroLRFacturasEmitidas(_SuministroLRFacturasEmitidas)

            Catch ex As Exception
            MsgBox(ex.Message)
            Respuesta2RichTextBox = ex.Message
        Finally
            'Me.Cursor = Cursors.Default
            'Threading.Thread.Sleep(5000)
            'ProgressBar1.Style = ProgressBarStyle.Continuous
            ''ProgressBar1.Value = ProgressBar1.Maximum
        End Try

Te adjunto también el archivo xml que debes cumplimentar donde indica '[A CUMPLIMENTAR]'.

Con esto, se toma la factura del archivo (fíjate que solamente tiene el nodo '<SuministroLRFacturasEmitidas>' y nada del encabezado SOAP para que no dé error al aplicar el Deserialize) y nos la convierte en un objeto serializado donde podemos acceder a los campos de la clase antes de enviar si lo deseamos; en caso contrario se envía y la propia llamada se encarga de insertar las cabeceras, los namespaces, etc.

[jlegido]

Empezado por bartag

Te pongo el código que utilizo. Básicamente lo que hace es tomar un archivo xml y lo envía. Debes por favor cumplimentar previamente los campos de dicho archivo pues en caso contrario te dará errores de validación.

        ' ----------------------------------------------------------------------------------------
        Dim store As Security.Cryptography.X509Certificates.X509Store = New Security.Cryptography.X509Certificates.X509Store("My")
        store.Open(Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)

        Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2
        
        For Each x In store.Certificates
            ListCert = ListCert & vbNewLine
        Next
        'RichTextBox1.Text = ListCert

        CertificadoCorrecto = store.Certificates(CInt(TextBoxNumeroOrdenCertificado.Text)) '(5)

        ' Objeto que almacenara la respuesta de la funcion del Web Service
        Dim resp As New ServiceReference1.RespuestaLRFEmitidasType

        ' Ws
        Dim Ws As New ServiceReference1.siiSOAPClient

        Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
        Ws.ClientCredentials.UseIdentityConfiguration = True

        ' Asignamos el certificado:
        Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
        ' ----------------------------------------------------------------------------------------


        ' ----------------------------------------------------------------------------------------
        Dim _SuministroLRFacturasEmitidas As New SuministroLRFacturasEmitidas
        '--------------------------------------------------------------------------
        
        Try

            Dim x As New XmlSerializer(_SuministroLRFacturasEmitidas.GetType, "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd") 

            ' A FileStream is needed to read the XML document.
            Dim filename As String = "facturaEmitidaMODEL.XML"


            Using reader As New FileStream(filename, FileMode.Open)
                _SuministroLRFacturasEmitidas = CType(x.Deserialize(reader), SuministroLRFacturasEmitidas)
            End Using

            ' SI QUEREMOS SOBREESCRIBIR EL XML ANTES DE ENVIAR:
            ' SOBREESCRIBIMOS DATS FORM ANTES SEND:
            _SuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon = Trim(TextBoxRazonSocialEmisor.Text)
            _SuministroLRFacturasEmitidas.Cabecera.Titular.NIF = Trim(TextBoxNIFEmisor.Text)

           '(...)

           '// se hace la llamada a la funcion suministrada por el WS
            resp = Ws.SuministroLRFacturasEmitidas(_SuministroLRFacturasEmitidas)

            Catch ex As Exception
            MsgBox(ex.Message)
            Respuesta2RichTextBox = ex.Message
        Finally
            'Me.Cursor = Cursors.Default
            'Threading.Thread.Sleep(5000)
            'ProgressBar1.Style = ProgressBarStyle.Continuous
            ''ProgressBar1.Value = ProgressBar1.Maximum
        End Try

Te adjunto también el archivo xml que debes cumplimentar donde indica '[A CUMPLIMENTAR]'.

Con esto, se toma la factura del archivo (fíjate que solamente tiene el nodo '<SuministroLRFacturasEmitidas>' y nada del encabezado SOAP para que no dé error al aplicar el Deserialize) y nos la convierte en un objeto serializado donde podemos acceder a los campos de la clase antes de enviar si lo deseamos; en caso contrario se envía y la propia llamada se encarga de insertar las cabeceras, los namespaces, etc.

Hola bartag.

Muchas gracias por tu rapida respuesta y tu aparte de codigo. Me habia encallado en ese tema y se supone que mañana debo hacer pruebas reales.

Me ha clarificado bastante tu codigo despues de analizarlo con detenimiento, y sobre todo tu frase “y la propia llamada se encarga de insertar las cabeceras, los namespaces, etc.”.

Finalmente he conseguido enviar y recibir respuesta de AEAT, aunque en la respuesta no recibo el esperado XML sino el siguiente texto:-pongo solo la parte inicial-

El tipo de contenido text/html del mensaje de respuesta no coincide con el tipo de contenido del enlace (text/xml; charset=utf-8). Si usa un codificador personalizado, asegúrese de que el método IsContentTypeSupported se implemente correctamente. Los primeros 1024 bytes de la respuesta fueron: '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"

Y aunque he estado trabajando en App.config par modificar los bindings no he conseguido pasar de ahí de momento
No se si tu tambien has pasado por ese punto.

Salu2

[bartag]

Empezado por jlegido

Hola bartag.

Muchas gracias por tu rapida respuesta y tu aparte de codigo. Me habia encallado en ese tema y se supone que mañana debo hacer pruebas reales.

Me ha clarificado bastante tu codigo despues de analizarlo con detenimiento, y sobre todo tu frase “y la propia llamada se encarga de insertar las cabeceras, los namespaces, etc.”.

Finalmente he conseguido enviar y recibir respuesta de AEAT, aunque en la respuesta no recibo el esperado XML sino el siguiente texto:-pongo solo la parte inicial-

El tipo de contenido text/html del mensaje de respuesta no coincide con el tipo de contenido del enlace (text/xml; charset=utf-8). Si usa un codificador personalizado, asegúrese de que el método IsContentTypeSupported se implemente correctamente. Los primeros 1024 bytes de la respuesta fueron: '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"

Y aunque he estado trabajando en App.config par modificar los bindings no he conseguido pasar de ahí de momento
No se si tu tambien has pasado por ese punto.

Salu2

Has modificado el App.config indicando que use certificados y la versión SOAP 1.1?
Ahora no estoy en casa. Esta noche te paso el archivo por si pudiera venir de ahí el error.

[bartag]

Subo el archivo App.config.

Saludos

[jlegido]

Como siempre “Muchas gracias” bartag por tu aporte y rápida respuesta.
Voy a mirarela en detalle y entenderla, pues veo que tut tienes tres <binding> diferentes.
Ya veo que uno de ellos, el siiBinding2, en realidad es un elemento sin contenido, que se ha quedado ahí, y probablemente tambien el siiBinding que es el que se crea inicialmente.
Ya habia buscado posibles soluciones y lo que tu pones coincide con alguna de las soluciones que halle, , que es crear el
<customBinding>
<binding name="siiBinding">
<textMessageEncoding messageVersion="Soap11" />
<httpsTransport />
</binding>
</customBinding>
Para definirle el protocolo Soap11.
Hos se supone que ya iba a tener el certificado y hacer pruebas reales, pero no lo tendre hasta el miercoles.
Ya te diré como va
Salu2

[Carlos Garcia C]

Me presento soy Carlos y soy contable, siguiendo las 13 paginas de este foro he incluido los ejemplos y no tengo una respuesta válida por parte de AEAT. por último he copiado intergramente el ejemplo abajo indicado y recibo la Respuesta del servidor tambien fallida, ver abajo incluida.
¿podéis ayudarme a facilitarme un ejemplo que os haya funcionado, para ver posteriormente las consultas a los libros.

8.1.1.1.Ejemplo mensaje XML de alta, en la pagina 132 de 180 del

SII – Suministro Inmediato de Información

Autor : AEAT Fecha: 27/01/2017 Versión: 0.5



Gracias anticipadas por vuestra comprensión y colaboración.

[CMB]

Empezado por Carlos Garcia C

Me presento soy Carlos y soy contable, siguiendo las 13 paginas de este foro he incluido los ejemplos y no tengo una respuesta válida por parte de AEAT. por último he copiado intergramente el ejemplo abajo indicado y recibo la Respuesta del servidor tambien fallida, ver abajo incluida.
¿podéis ayudarme a facilitarme un ejemplo que os haya funcionado, para ver posteriormente las consultas a los libros.

8.1.1.1.Ejemplo mensaje XML de alta, en la pagina 132 de 180 del

SII – Suministro Inmediato de Información

Autor : AEAT Fecha: 27/01/2017 Versión: 0.5
Gracias anticipadas por vuestra comprensión y colaboración.

El ejemplo a que te refieres funciona bien con dos condiciones. (1) Que tengas en tu ordenador un certificado digital que coincida con el nombre y NIF del emisor (y si no es así, cambia los datos del emisor), y (2) Que los datos de las facturas incluidas contengan nombre y NIF registrados por Hacienda. No valen datos ficticios como los que incluye el ejemplo por razones obvias.

Pruébalo y publica la respuesta que recibes.

Saludos,

[jonortsal]

Por favor, podrías mandar un zip el proyecto? Es que soy más de PHP que de VB.NET y no sé que clases importar y demás para el certificado. Gracias.

[inyu]

Empezado por bartag

Te pongo el código que utilizo. Básicamente lo que hace es tomar un archivo xml y lo envía. Debes por favor cumplimentar previamente los campos de dicho archivo pues en caso contrario te dará errores de validación.

        ' ----------------------------------------------------------------------------------------
        Dim store As Security.Cryptography.X509Certificates.X509Store = New Security.Cryptography.X509Certificates.X509Store("My")
        store.Open(Security.Cryptography.X509Certificates.OpenFlags.ReadOnly)

        Dim CertificadoCorrecto As New System.Security.Cryptography.X509Certificates.X509Certificate2
        
        For Each x In store.Certificates
            ListCert = ListCert & vbNewLine
        Next
        'RichTextBox1.Text = ListCert

        CertificadoCorrecto = store.Certificates(CInt(TextBoxNumeroOrdenCertificado.Text)) '(5)

        ' Objeto que almacenara la respuesta de la funcion del Web Service
        Dim resp As New ServiceReference1.RespuestaLRFEmitidasType

        ' Ws
        Dim Ws As New ServiceReference1.siiSOAPClient

        Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
        Ws.ClientCredentials.UseIdentityConfiguration = True

        ' Asignamos el certificado:
        Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
        ' ----------------------------------------------------------------------------------------


        ' ----------------------------------------------------------------------------------------
        Dim _SuministroLRFacturasEmitidas As New SuministroLRFacturasEmitidas
        '--------------------------------------------------------------------------
        
        Try

            Dim x As New XmlSerializer(_SuministroLRFacturasEmitidas.GetType, "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd") 

            ' A FileStream is needed to read the XML document.
            Dim filename As String = "facturaEmitidaMODEL.XML"


            Using reader As New FileStream(filename, FileMode.Open)
                _SuministroLRFacturasEmitidas = CType(x.Deserialize(reader), SuministroLRFacturasEmitidas)
            End Using

            ' SI QUEREMOS SOBREESCRIBIR EL XML ANTES DE ENVIAR:
            ' SOBREESCRIBIMOS DATS FORM ANTES SEND:
            _SuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon = Trim(TextBoxRazonSocialEmisor.Text)
            _SuministroLRFacturasEmitidas.Cabecera.Titular.NIF = Trim(TextBoxNIFEmisor.Text)

           '(...)

           '// se hace la llamada a la funcion suministrada por el WS
            resp = Ws.SuministroLRFacturasEmitidas(_SuministroLRFacturasEmitidas)

            Catch ex As Exception
            MsgBox(ex.Message)
            Respuesta2RichTextBox = ex.Message
        Finally
            'Me.Cursor = Cursors.Default
            'Threading.Thread.Sleep(5000)
            'ProgressBar1.Style = ProgressBarStyle.Continuous
            ''ProgressBar1.Value = ProgressBar1.Maximum
        End Try

Te adjunto también el archivo xml que debes cumplimentar donde indica '[A CUMPLIMENTAR]'.

Con esto, se toma la factura del archivo (fíjate que solamente tiene el nodo '<SuministroLRFacturasEmitidas>' y nada del encabezado SOAP para que no dé error al aplicar el Deserialize) y nos la convierte en un objeto serializado donde podemos acceder a los campos de la clase antes de enviar si lo deseamos; en caso contrario se envía y la propia llamada se encarga de insertar las cabeceras, los namespaces, etc.

Hola bartag. Gracias por tus aportaciones, me han aclarado bastante el tema.
Estoy intentando usar tu código pero tengo un problema cuando hago el Deserialize sobre el XML modelo que has adjuntado. Me da un error "There is an error in XML document (2, 2)", ¿sabes a qué puede ser debido?

Gracias.

[Virman]

Tras actualizar a la nueva versión de WebService, me ha empezado a devolver este error al tratar de enviar cualquier tipo de factura:

{"El cliente encontró el tipo de contenido de respuesta 'text/html', pero se esperaba 'text/xml'.\r\nError de la solicitud con el mensaje de error:Proceso de conexión con la Sede Electrónica de la Agencia Tributaria en curso.<!-- Menu de UTILIDADES PREVIEW -->\r\n\t</div>\r\n</body>\r\n<!-- Eliminado por BUG en OPENTEXT render:trackDependencies/-->\r\n</html>\r\n\r\n--."}

A alguien le ha pasado eso también? Esta mañana me dejaba enviar sin problemas.

[Nasca]

Ahora la Agencia está muy lenta y no responde peticiones al WebService.
A ver si es por eso.
En lugar de procesar petición devuelve una respuesta diciendo que anda lenta.
Suele ser normal los días 20 por temas de presentación de 340.
No quiero ni imaginarme cuando entre en producción el SII.

Lo gracioso es que en lugar de devolver un código de error por saturación y punto devuelve una bonita web animada de 56 KB.
Es una buena oportunidad para añadir tolerancia a errores extraños al programa que gestiona el SII.

[CMB]

Empezado por Nasca

Ahora la Agencia está muy lenta y no responde peticiones al WebService.
A ver si es por eso.
En lugar de procesar petición devuelve una respuesta diciendo que anda lenta.
Suele ser normal los días 20 por temas de presentación de 340.
No quiero ni imaginarme cuando entre en producción el SII.

A las 16:53 envié una prueba y recibí la respuesta. Cinco minutos después dejó de funcionar, incluso en el portal de pruebas y consultas externas. Y en este momento sigue igual.

Si eso pasa cuando esté en producción, el lío que se montaría sería responsabilidad de ellos, no nuestro. Nuestro software puede tener bugs, eso seguro, pero si falla el webservice nosotros tranquilos.

[Nasca]

Empezado por CMB

A las 16:53 envié una prueba y recibí la respuesta. Cinco minutos después dejó de funcionar, incluso en el portal de pruebas y consultas externas. Y en este momento sigue igual.

Si eso pasa cuando esté en producción, el lío que se montaría sería responsabilidad de ellos, no nuestro. Nuestro software puede tener bugs, eso seguro, pero si falla el webservice nosotros tranquilos.

Me temo que no es tan sencillo. Por mi experiencia, no sería la primera vez que se les rompe una web y se lavan las manos.


Por si alguien tiene curiosidad por ver la respuesta en el navegador. Queda muy resultón con la barra animada, pero bastante inútil como respuesta para una petición SOAP.

[Nasca]

Tienes razón la web de consultas está igual. Devuelven el mismo mensaje.

Puede ser que haya tenido ataque o sobrecarga y hayan optado simplemente por desactivar los servicios no fundamentales.
Y de ahí que aún sea algo menos específico para un WebService.

[jonortsal]

Empezado por inyu

Hola bartag. Gracias por tus aportaciones, me han aclarado bastante el tema.
Estoy intentando usar tu código pero tengo un problema cuando hago el Deserialize sobre el XML modelo que has adjuntado. Me da un error "There is an error in XML document (2, 2)", ¿sabes a qué puede ser debido?

Gracias.

Con este código, ¿qué modificación podemos hacer para que guarde el XML que enviamos (SOAP REQUEST) y el que recibimos (SOAP RESPONSE)
Gracias.

[javi_valencia44]

A mi la nueva versión me da error en esta sección del código:

Public Shared Widening Operator CType(v As SuministroLRFacturasEmitidas) As SuministroLRFacturasEmitidas
Throw New NotImplementedException()
End Operator



Tras comentar este código y probar me da el mismo error que dice el compañero:

Empezado por Virman

Tras actualizar a la nueva versión de WebService, me ha empezado a devolver este error al tratar de enviar cualquier tipo de factura:

{"El cliente encontró el tipo de contenido de respuesta 'text/html', pero se esperaba 'text/xml'.\r\nError de la solicitud con el mensaje de error:Proceso de conexión con la Sede Electrónica de la Agencia Tributaria en curso.<!-- Menu de UTILIDADES PREVIEW -->\r\n\t</div>\r\n</body>\r\n<!-- Eliminado por BUG en OPENTEXT render:trackDependencies/-->\r\n</html>\r\n\r\n--."}

A alguien le ha pasado eso también? Esta mañana me dejaba enviar sin problemas.

[pprieto]

Hola a todos:

¿Hay alguna manera de eliminar todas las facturas enviadas al portal de pruebas? De tanto enviar hay un jaleo importante y me gustaría "empezar desde cero".

Gracias!

[CMB]

Empezado por pprieto

Hola a todos:
¿Hay alguna manera de eliminar todas las facturas enviadas al portal de pruebas? De tanto enviar hay un jaleo importante y me gustaría "empezar desde cero".
Gracias!

Yo no veo ninguna opción para hacerlo. Quizás la única manera sea enviar peticiones de baja, una para cada factura enviada, que eso sí que está previsto.

De todos modos, sería de gran utilidad hacer borrón y cuenta nueva. Si alguien lo sabe que tenga la amabilidad de publicarlo.

Saludos,

[Nasca]

Empezado por CMB

Yo no veo ninguna opción para hacerlo. Quizás la única manera sea enviar peticiones de baja, una para cada factura enviada, que eso sí que está previsto.
De todos modos, sería de gran utilidad hacer borrón y cuenta nueva. Si alguien lo sabe que tenga la amabilidad de publicarlo.

La verdad es que si se hecha de menos esa opción.
La baja es una opción. Al enviar las anulaciones están disponibles un tiempo y luego desaparecen.
Entiendo que en producción no será así, por lo que parece que es la forma que han previsto de ir limpiando cosas en pruebas.

[bartag]

Empezado por inyu

Hola bartag. Gracias por tus aportaciones, me han aclarado bastante el tema.
Estoy intentando usar tu código pero tengo un problema cuando hago el Deserialize sobre el XML modelo que has adjuntado. Me da un error "There is an error in XML document (2, 2)", ¿sabes a qué puede ser debido?

Gracias.

Perdón por no responder antes (estoy bastante atareado). Ten en cuenta que lo que indicaba funcionaba con la versión 0.5. El pasado día 15 incorporaron la versión 0.6 y es posible que hayan realizado modificaciones.

No obstante, comprueba por favor que el "App.config" está debidamente cumplimentado como comentaba y que el certificado carga correctamente. También que el archivo xml que intentas subir es el que puse, ya que si por ejemplo le estás intentando meter uno con namespaces, te va a dar el error que indicas.