FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#11
|
|||
|
|||
Ayuda por Favos
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco | keys | Internet | 4192 | Hace 1 Día 16:28:07 |
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 |
|