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

[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