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

juabero · #1 07-04-2017

Este es el codigo que utilizo

Dim certificado As New X509Certificate2("d:\certificado.cer", "password")

Dim servicio As New SuministroLRFacturasEmitidas
servicio.Cabecera = New CabeceraSii
servicio.Cabecera.IDVersionSii = VersionSiiType.Item06
servicio.Cabecera.TipoComunicacion = ClaveTipoComunicacionType.A0
servicio.Cabecera.Titular = New PersonaFisicaJuridicaESType
servicio.Cabecera.Titular.NIF = "xxxxx"

servicio.Cabecera.Titular.NIFRepresentante = "yyyyy"
servicio.Cabecera.Titular.NombreRazon = "Mi Empresa"
Try
Dim fac As New LRfacturasEmitidasType
fac.PeriodoImpositivo = New RegistroSiiPeriodoImpositivo
fac.PeriodoImpositivo.Ejercicio = 2017
fac.PeriodoImpositivo.Periodo = TipoPeriodoType.Item03

Dim fact As New IDFacturaExpedidaType
Dim EmisorFactura = New IDFacturaExpedidaTypeIDEmisorFactura
EmisorFactura.NIF = "xxxxx"
fact.IDEmisorFactura = EmisorFactura
fact.NumSerieFacturaEmisor = "SN0001"
fact.FechaExpedicionFacturaEmisor = "14-03-2017"
fac.IDFactura = fact

fac.FacturaExpedida = New FacturaExpedidaType
fac.FacturaExpedida.TipoFactura = ClaveTipoFacturaType.F1

fac.FacturaExpedida.ClaveRegimenEspecialOTrascendencia = IdOperacionesTrascendenciaTributariaType.Item01
fac.FacturaExpedida.DescripcionOperacion = "VENTAS GENERALES"
fac.FacturaExpedida.ImporteTotal = "121.0"
fac.FacturaExpedida.BaseImponibleACoste = "100"
fac.FacturaExpedida.DescripcionOperacion = "Ventas"

fac.FacturaExpedida.Contraparte = New PersonaFisicaJuridicaType
fac.FacturaExpedida.Contraparte.NombreRazon = "Mi Cliente"
fac.FacturaExpedida.Contraparte.NIFRepresentante = "xxxxx"
Dim a As New IDOtroType
a.CodigoPais = CountryType2.ES
a.CodigoPaisSpecified = True
a.IDType = PersonaFisicaJuridicaIDTypeType.Item02
a.ID = "xxxxxx"
fac.FacturaExpedida.Contraparte.Item = a

fac.FacturaExpedida.TipoDesglose = New FacturaExpedidaTypeTipoDesglose

Dim tipo As New TipoSinDesgloseType
tipo.Sujeta = New SujetaType
tipo.Sujeta.NoExenta = New SujetaTypeNoExenta
Dim tipoivas(0) As DetalleIVAEmitidaType
Dim tipoiva As New DetalleIVAEmitidaType
tipoiva.BaseImponible = "100.00"
tipoiva.TipoImpositivo = "21.00"
tipoiva.CuotaRepercutida = "21.00"
tipoivas(0) = tipoiva
tipo.Sujeta.NoExenta.DesgloseIVA = tipoivas
fac.FacturaExpedida.TipoDesglose.Item = tipo

Dim facturas(0) As LRfacturasEmitidasType
facturas(0) = fac
servicio.RegistroLRFacturasEmitidas = facturas
Dim enviar As New ServiceEmitidas.siiSOAPClient
Dim respuesta As New RespuestaLRFEmitidasType
Try

enviar.ClientCredentials.ClientCertificate.Certificate = certificado
respuesta = enviar.SuministroLRFacturasEmitidas(servicio)
Catch ex As Exception
Throw New System.ServiceModel.ProtocolException(ex.Message)
End Try
Catch ex As System.ServiceModel.ProtocolException
Dim visor As New visor
visor.WebBrowser1.DocumentText = ex.Message
visor.ShowDialog()
Dim pepe As String = ""
End Try

javi_valencia44 · #2 07-04-2017

Cita:

Empezado por juabero

Este es el codigo que utilizo

Dim certificado As New X509Certificate2("d:\certificado.cer", "password")

Dim servicio As New SuministroLRFacturasEmitidas
servicio.Cabecera = New CabeceraSii
servicio.Cabecera.IDVersionSii = VersionSiiType.Item06
servicio.Cabecera.TipoComunicacion = ClaveTipoComunicacionType.A0
servicio.Cabecera.Titular = New PersonaFisicaJuridicaESType
servicio.Cabecera.Titular.NIF = "xxxxx"

servicio.Cabecera.Titular.NIFRepresentante = "yyyyy"
servicio.Cabecera.Titular.NombreRazon = "Mi Empresa"
Try
Dim fac As New LRfacturasEmitidasType
fac.PeriodoImpositivo = New RegistroSiiPeriodoImpositivo
fac.PeriodoImpositivo.Ejercicio = 2017
fac.PeriodoImpositivo.Periodo = TipoPeriodoType.Item03

Dim fact As New IDFacturaExpedidaType
Dim EmisorFactura = New IDFacturaExpedidaTypeIDEmisorFactura
EmisorFactura.NIF = "xxxxx"
fact.IDEmisorFactura = EmisorFactura
fact.NumSerieFacturaEmisor = "SN0001"
fact.FechaExpedicionFacturaEmisor = "14-03-2017"
fac.IDFactura = fact

fac.FacturaExpedida = New FacturaExpedidaType
fac.FacturaExpedida.TipoFactura = ClaveTipoFacturaType.F1

fac.FacturaExpedida.ClaveRegimenEspecialOTrascendencia = IdOperacionesTrascendenciaTributariaType.Item01
fac.FacturaExpedida.DescripcionOperacion = "VENTAS GENERALES"
fac.FacturaExpedida.ImporteTotal = "121.0"
fac.FacturaExpedida.BaseImponibleACoste = "100"
fac.FacturaExpedida.DescripcionOperacion = "Ventas"

fac.FacturaExpedida.Contraparte = New PersonaFisicaJuridicaType
fac.FacturaExpedida.Contraparte.NombreRazon = "Mi Cliente"
fac.FacturaExpedida.Contraparte.NIFRepresentante = "xxxxx"
Dim a As New IDOtroType
a.CodigoPais = CountryType2.ES
a.CodigoPaisSpecified = True
a.IDType = PersonaFisicaJuridicaIDTypeType.Item02
a.ID = "xxxxxx"
fac.FacturaExpedida.Contraparte.Item = a

fac.FacturaExpedida.TipoDesglose = New FacturaExpedidaTypeTipoDesglose

Dim tipo As New TipoSinDesgloseType
tipo.Sujeta = New SujetaType
tipo.Sujeta.NoExenta = New SujetaTypeNoExenta
Dim tipoivas(0) As DetalleIVAEmitidaType
Dim tipoiva As New DetalleIVAEmitidaType
tipoiva.BaseImponible = "100.00"
tipoiva.TipoImpositivo = "21.00"
tipoiva.CuotaRepercutida = "21.00"
tipoivas(0) = tipoiva
tipo.Sujeta.NoExenta.DesgloseIVA = tipoivas
fac.FacturaExpedida.TipoDesglose.Item = tipo

Dim facturas(0) As LRfacturasEmitidasType
facturas(0) = fac
servicio.RegistroLRFacturasEmitidas = facturas
Dim enviar As New ServiceEmitidas.siiSOAPClient
Dim respuesta As New RespuestaLRFEmitidasType
Try

enviar.ClientCredentials.ClientCertificate.Certificate = certificado
respuesta = enviar.SuministroLRFacturasEmitidas(servicio)
Catch ex As Exception
Throw New System.ServiceModel.ProtocolException(ex.Message)
End Try
Catch ex As System.ServiceModel.ProtocolException
Dim visor As New visor
visor.WebBrowser1.DocumentText = ex.Message
visor.ShowDialog()
Dim pepe As String = ""
End Try

Tienes puesto en el fichero App.config esto así?

<binding name="siiBinding">
<security mode="Transport">
<transport clientCredentialType="Certificate" />
</security>
</binding>

juabero · #3 07-04-2017

Este es mi app.config

<system.serviceModel>
<bindings>
<basicHttpBinding>
<binding name="siiBinding">
<security mode="Transport" >
<transport clientCredentialType="Certificate" />
</security>
</binding>
<binding name="siiBinding2" />
</basicHttpBinding>
<customBinding>
<binding name="siiBinding">
<textMessageEncoding messageVersion="Soap11" />
<httpsTransport />
</binding>
</customBinding>
</bindings>
<client>
<endpoint address="https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP"
binding="basicHttpBinding" bindingConfiguration="siiBinding"
contract="ServiceEmitidas.siiSOAP" name="SuministroFactEmitidasPruebas" />
</client>
</system.serviceModel>

javi_valencia44 · #4 07-04-2017

Cita:

Empezado por juabero

Este es mi app.config

<system.serviceModel>
<bindings>
<basicHttpBinding>
<binding name="siiBinding">
<security mode="Transport" >
<transport clientCredentialType="Certificate" />
</security>
</binding>
<binding name="siiBinding2" />
</basicHttpBinding>
<customBinding>
<binding name="siiBinding">
<textMessageEncoding messageVersion="Soap11" />
<httpsTransport />
</binding>
</customBinding>
</bindings>
<client>
<endpoint address="https://www7.aeat.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP"
binding="basicHttpBinding" bindingConfiguration="siiBinding"
contract="ServiceEmitidas.siiSOAP" name="SuministroFactEmitidasPruebas" />
</client>
</system.serviceModel>

Yo esta parte no la tengo puesta:

<customBinding>
<binding name="siiBinding">
<textMessageEncoding messageVersion="Soap11" />
<httpsTransport />
</binding>
</customBinding>

juabero · #5 07-04-2017

Cita:

Empezado por javi_valencia44

Yo esta parte no la tengo puesta:

<customBinding>
<binding name="siiBinding">
<textMessageEncoding messageVersion="Soap11" />
<httpsTransport />
</binding>
</customBinding>

Lo he intentado de todas formas.
A ti te funciona, si es asi pasame un ejemplo por favor

javi_valencia44 · #6 07-04-2017

Cita:

Empezado por juabero

Lo he intentado de todas formas.
A ti te funciona, si es asi pasame un ejemplo por favor

Yo lo hago deserializando el XML en un objeto

Por ejemplo para hacer el suministro de una factura emitida:

Ws = New SII.siiSOAPClient
Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
Ws.ClientCredentials.UseIdentityConfiguration = True
facturas = New SuministroLRFacturasEmitidas
ser = New System.Xml.Serialization.XmlSerializer(facturas.GetType())
facturas = CType(ser.Deserialize(reader), SuministroLRFacturasEmitidas)
resul = New SII.RespuestaLRFEmitidasType
resul = Ws.SuministroLRFacturasEmitidas(facturas)

Dim serializer As New XmlSerializer(resul.GetType())
Dim writer As New StreamWriter(rutaXMLdestino)

serializer.Serialize(writer, resul)
writer.Close()

Has probado que tu certificado es correcto?

juabero · #7 07-04-2017

Cita:

Empezado por javi_valencia44

Yo lo hago deserializando el XML en un objeto

Por ejemplo para hacer el suministro de una factura emitida:

Ws = New SII.siiSOAPClient
Ws.ClientCredentials.ClientCertificate.Certificate = CertificadoCorrecto
Ws.ClientCredentials.UseIdentityConfiguration = True
facturas = New SuministroLRFacturasEmitidas
ser = New System.Xml.Serialization.XmlSerializer(facturas.GetType())
facturas = CType(ser.Deserialize(reader), SuministroLRFacturasEmitidas)
resul = New SII.RespuestaLRFEmitidasType
resul = Ws.SuministroLRFacturasEmitidas(facturas)

Dim serializer As New XmlSerializer(resul.GetType())
Dim writer As New StreamWriter(rutaXMLdestino)

serializer.Serialize(writer, resul)
writer.Close()

Has probado que tu certificado es correcto?

Parece ser que tu lo estas haciendo con la version 5 y yo con la version 6
la version 6 no tiene "Ws.ClientCredentials.UseIdentityConfiguration = True"

Además he generado el xml y le he puesto a mano en el envelop y lo he mandado por web y funciona

Dime con que visual studio estas desarrollando y la versin de FrameWork

nuevo1234 · #8 09-04-2017

Parece que Hacienda ya ha colgado los formularios para dar de alta facturas.

dgalindosaeta · #9 17-05-2017

Cita:

Empezado por juabero

Este es el codigo que utilizo

Dim certificado As New X509Certificate2("d:\certificado.cer", "password")

Dim servicio As New SuministroLRFacturasEmitidas
servicio.Cabecera = New CabeceraSii
servicio.Cabecera.IDVersionSii = VersionSiiType.Item06
servicio.Cabecera.TipoComunicacion = ClaveTipoComunicacionType.A0
servicio.Cabecera.Titular = New PersonaFisicaJuridicaESType
servicio.Cabecera.Titular.NIF = "xxxxx"

servicio.Cabecera.Titular.NIFRepresentante = "yyyyy"
servicio.Cabecera.Titular.NombreRazon = "Mi Empresa"
Try
Dim fac As New LRfacturasEmitidasType
fac.PeriodoImpositivo = New RegistroSiiPeriodoImpositivo
fac.PeriodoImpositivo.Ejercicio = 2017
fac.PeriodoImpositivo.Periodo = TipoPeriodoType.Item03

Dim fact As New IDFacturaExpedidaType
Dim EmisorFactura = New IDFacturaExpedidaTypeIDEmisorFactura
EmisorFactura.NIF = "xxxxx"
fact.IDEmisorFactura = EmisorFactura
fact.NumSerieFacturaEmisor = "SN0001"
fact.FechaExpedicionFacturaEmisor = "14-03-2017"
fac.IDFactura = fact

fac.FacturaExpedida = New FacturaExpedidaType
fac.FacturaExpedida.TipoFactura = ClaveTipoFacturaType.F1

fac.FacturaExpedida.ClaveRegimenEspecialOTrascendencia = IdOperacionesTrascendenciaTributariaType.Item01
fac.FacturaExpedida.DescripcionOperacion = "VENTAS GENERALES"
fac.FacturaExpedida.ImporteTotal = "121.0"
fac.FacturaExpedida.BaseImponibleACoste = "100"
fac.FacturaExpedida.DescripcionOperacion = "Ventas"

fac.FacturaExpedida.Contraparte = New PersonaFisicaJuridicaType
fac.FacturaExpedida.Contraparte.NombreRazon = "Mi Cliente"
fac.FacturaExpedida.Contraparte.NIFRepresentante = "xxxxx"
Dim a As New IDOtroType
a.CodigoPais = CountryType2.ES
a.CodigoPaisSpecified = True
a.IDType = PersonaFisicaJuridicaIDTypeType.Item02
a.ID = "xxxxxx"
fac.FacturaExpedida.Contraparte.Item = a

fac.FacturaExpedida.TipoDesglose = New FacturaExpedidaTypeTipoDesglose

Dim tipo As New TipoSinDesgloseType
tipo.Sujeta = New SujetaType
tipo.Sujeta.NoExenta = New SujetaTypeNoExenta
Dim tipoivas(0) As DetalleIVAEmitidaType
Dim tipoiva As New DetalleIVAEmitidaType
tipoiva.BaseImponible = "100.00"
tipoiva.TipoImpositivo = "21.00"
tipoiva.CuotaRepercutida = "21.00"
tipoivas(0) = tipoiva
tipo.Sujeta.NoExenta.DesgloseIVA = tipoivas
fac.FacturaExpedida.TipoDesglose.Item = tipo

Dim facturas(0) As LRfacturasEmitidasType
facturas(0) = fac
servicio.RegistroLRFacturasEmitidas = facturas
Dim enviar As New ServiceEmitidas.siiSOAPClient
Dim respuesta As New RespuestaLRFEmitidasType
Try

enviar.ClientCredentials.ClientCertificate.Certificate = certificado
respuesta = enviar.SuministroLRFacturasEmitidas(servicio)
Catch ex As Exception
Throw New System.ServiceModel.ProtocolException(ex.Message)
End Try
Catch ex As System.ServiceModel.ProtocolException
Dim visor As New visor
visor.WebBrowser1.DocumentText = ex.Message
visor.ShowDialog()
Dim pepe As String = ""
End Try

busca mi post y mira el código, he solucionado tu problema, aunque me produce otro de comunicacion SSL/TLS.

En cuanto al tema con el que recuperas el certificado, mejor hazlo así:

Código:

       [SecurityPermission(SecurityAction.LinkDemand,Unrestricted =true)]
        internal static X509Certificate2 EncontrarCertificado(string NombreCertificado)
        {
            X509Certificate2 resultado = null;
            X509Store almacen = null;            

            try
            {
                almacen = new X509Store(StoreLocation.LocalMachine);
                almacen.Open(OpenFlags.ReadOnly | OpenFlags.OpenExistingOnly);

                foreach(X509Certificate2 certificado in almacen.Certificates)
                {
                    string Nombre = certificado.SubjectName.Name;
                    if(Nombre==NombreCertificado)
                    {
                        resultado = certificado;
                        break;
                    }
                }
            }
            catch
            {

            }


            return resultado;
        }

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco	keys	Internet	4170	Hace 2 Semanas 17:29:05
AEAT envio de datos vía Webservice problemas con WSDL	CelsoO	Internet	11	09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@	apicito	Internet	3	31-01-2017 11:25:28
Error en Webservice funcion envio de sms	webmasterplc	Delphi para la web	5	25-07-2013 20:10:29
Problemas con envío de XML a un WebService	davidvamo	Internet	1	13-02-2007 15:49:20