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

[javi_valencia44]

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]

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]

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]

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]

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]

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

[javi_valencia44]

Empezado por juabero

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

Estoy con la versión 6, solo que antes estaba con la 5 y dejé ese código puesto

[nuevo1234]

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