¿Como enviar facturas al web service?

[gcqZW]

Si no me equivoco, se debería poder hacer de ambas maneras, generando tú el XML a mano o pasando por la función "RegFactuSistemaFacturacion", yo personalmente monto el XML a mano por ahora, pero como te dice neftali échale un ojo al github que te aclarará mas que cualquier respuesta.

[Jarogo08]

Gracias a ambos por las respuestas.


Es que estaba montando el objeto "RegFactuSistemaFacturacion" (como la hacía en el SII)

Dim objectoFactEmitida As RegFactuSistemaFacturacion = New WSVerifactu.RegFactuSistemaFacturacion

objectoFactEmitida.Cabecera = New CabeceraType
objectoFactEmitida.Cabecera.ObligadoEmision = New PersonaFisicaJuridicaESType
objectoFactEmitida.Cabecera.ObligadoEmision.NombreRazon = "AAAA"
objectoFactEmitida.Cabecera.ObligadoEmision.NIF = "BBBB"
objectoFactEmitida.Cabecera.Representante = New PersonaFisicaJuridicaESType
objectoFactEmitida.Cabecera.Representante.NombreRazon = "CCCC"
....

y una vez que terminé quería enviarlo al web service, pero no encuentro la manera. Sí que lo conseguí comunicar una factura enviando un xml, pero quería asegurarme si es la única manera.


Porque al convertir el objeto "RegFactuSistemaFacturacion" al xml lo monta regular: las etiquetas no comienzan por "<sum:" o "<sum1:" y me dice que el xml es incorrecto. Si lo edito a mano poniendo los "sum " me funciona, pero es un poco rollo.


También puedo olvidarme del objeto "RegFactuSistemaFacturacion" y montarlo a mano como dices, pero me parece más engorroso, quería agotar todas las vías antes


Probaré lo que me decís a ver si avanzo algo


Muchas gracias!

[Neftali [Germán.Estévez]]

Revisa los mensajes existentes.
Ya hay muchos hablando del envío, donde puedes ver código.

[rci]

Empezado por Jarogo08

Gracias a ambos por las respuestas.


Es que estaba montando el objeto "RegFactuSistemaFacturacion" (como la hacía en el SII)

Dim objectoFactEmitida As RegFactuSistemaFacturacion = New WSVerifactu.RegFactuSistemaFacturacion

objectoFactEmitida.Cabecera = New CabeceraType
objectoFactEmitida.Cabecera.ObligadoEmision = New PersonaFisicaJuridicaESType
objectoFactEmitida.Cabecera.ObligadoEmision.NombreRazon = "AAAA"
objectoFactEmitida.Cabecera.ObligadoEmision.NIF = "BBBB"
objectoFactEmitida.Cabecera.Representante = New PersonaFisicaJuridicaESType
objectoFactEmitida.Cabecera.Representante.NombreRazon = "CCCC"
....

y una vez que terminé quería enviarlo al web service, pero no encuentro la manera. Sí que lo conseguí comunicar una factura enviando un xml, pero quería asegurarme si es la única manera.


Porque al convertir el objeto "RegFactuSistemaFacturacion" al xml lo monta regular: las etiquetas no comienzan por "<sum:" o "<sum1:" y me dice que el xml es incorrecto. Si lo edito a mano poniendo los "sum " me funciona, pero es un poco rollo.


También puedo olvidarme del objeto "RegFactuSistemaFacturacion" y montarlo a mano como dices, pero me parece más engorroso, quería agotar todas las vías antes


Probaré lo que me decís a ver si avanzo algo


Muchas gracias!

Si que puedes enviar el objeto directamente usando las clases que se generan al importar el wsdl

Este código c# lo encontré en este foro, de algún compañero:

var basicbinding = new BasicHttpsBinding();
basicbinding.Name = "sfVerifactu";
basicbinding.Security.Mode = BasicHttpsSecurityMode.Transport;
basicbinding.Security.Transport.ClientCredentialType = HttpClientCredentialType.Certificate;
basicbinding.MaxReceivedMessageSize = 100 * 1024 * 1024;
var service = new sfPortTypeVerifactuClient(basicbinding, new EndpointAddress(new Uri(url)));
service.ClientCredentials.ClientCertificate.Certificate = new X509Certificate2(certificate);
RespuestaRegFactuSistemaFacturacionType wsResponse = wsResponse = service.RegFactuSistemaFacturacion(objectoFactEmitida);

Espero que te sirva, seguro que puedes adaptarlo a tu lenguaje fácilmente

[Jarogo08]

Empezado por rci

Si que puedes enviar el objeto directamente usando las clases que se generan al importar el wsdl

Este código c# lo encontré en este foro, de algún compañero:

var basicbinding = new BasicHttpsBinding();
basicbinding.Name = "sfVerifactu";
basicbinding.Security.Mode = BasicHttpsSecurityMode.Transport;
basicbinding.Security.Transport.ClientCredentialType = HttpClientCredentialType.Certificate;
basicbinding.MaxReceivedMessageSize = 100 * 1024 * 1024;
var service = new sfPortTypeVerifactuClient(basicbinding, new EndpointAddress(new Uri(url)));
service.ClientCredentials.ClientCertificate.Certificate = new X509Certificate2(certificate);
RespuestaRegFactuSistemaFacturacionType wsResponse = wsResponse = service.RegFactuSistemaFacturacion(objectoFactEmitida);

Espero que te sirva, seguro que puedes adaptarlo a tu lenguaje fácilmente

Muchas gracias por el código, lo voy a probar. ¿podrías indicarme de que hilo lo sacaste? porque por más que he buscado no lo encontré

[gcqZW]

Porque al convertir el objeto "RegFactuSistemaFacturacion" al xml lo monta regular: las etiquetas no comienzan por "<sum:" o "<sum1:" y me dice que el xml es incorrecto. Si lo edito a mano poniendo los "sum " me funciona, pero es un poco rollo.

Me pasaba lo mismo, yo lo que hacía era un replace de las etiquetas para que quedaran con sum y sum1, pero vamos que al final me monte una función que me componía el xml a partir de un array por que me daba problemas la otra manera.

[Jarogo08]

Empezado por gcqZW

Me pasaba lo mismo, yo lo que hacía era un replace de las etiquetas para que quedaran con sum y sum1, pero vamos que al final me monte una función que me componía el xml a partir de un array por que me daba problemas la otra manera.

Si no lo consigo de otra manera tendré que tirar por ahí, pero me parece mucho más cómo crear y mandar el objeto RegFactuSistemaFacturacion.


Seguiré investigando y si lo consigo lo pongo aquí


Muchas gracias igualmente!

[rci]

Empezado por Jarogo08

Muchas gracias por el código, lo voy a probar. ¿podrías indicarme de que hilo lo sacaste? porque por más que he buscado no lo encontré

Hola Jarogo08 ahora no encuentro donde lo vi pero he encontrado este otro post que creo que te puede ayudar:
https://www.clubdelphi.com/foros/sho...postcount=3119

También te podría ser útil revisar los ejemplos publicados en el post #2:
https://www.clubdelphi.com/foros/showthread.php?t=95235

Saludos

[Jarogo08]

Buenas a todos


al final lo conseguí, pongo aquí el código por si puede ayudarle a alguien más:

        ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

        Dim ws As sfVerifactu = New WSVerifactu.sfVerifactu
        ws.ClientCertificates.Add(certificate)
        ws.Url = "https : // prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP"   'quitar los espacios

        Dim RespuestaEnvioFactura As WSVerifactu.RespuestaRegFactuSistemaFacturacionType = ws.RegFactuSistemaFacturacion(objectoFactEmitida)

        MsgBox(RespuestaEnvioFactura.EstadoEnvio & "/" & RespuestaEnvioFactura.RespuestaLinea.Length)

        For x As Integer = 0 To RespuestaEnvioFactura.RespuestaLinea.Length - 1
            MsgBox(RespuestaEnvioFactura.RespuestaLinea(x).IDFactura.NumSerieFactura.ToString & ": " & RespuestaEnvioFactura.RespuestaLinea(x).CodigoErrorRegistro & " - " & RespuestaEnvioFactura.RespuestaLinea(x).DescripcionErrorRegistro)
        Next

Tenía mal la URL en el app.config y por eso no me funcionaba


Gracias a todos por la ayuda