TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[rauljgp]

Empezado por Sistel

Hola rauljgp,

Según la normativa, en Gipuzkoa y Álava, el XML firmado del TicketBAI debe enviarse a Hacienda Foral en el mismo momento de emitirse la factura.
Por eso advierten que todos los sistemas de facturación (incluídas balanzas electrónicas de fruterías, carnicerías y pescaderías) deben tener conexión a Internet para poder realizar dicho envío de forma inmediata.

Saludos

Sí era lo que me temía, eso me pareció leer en su momento, será que como antes colaban todas porque no había volcado de errores no asumí esta circunstancia.

Muchas gracias.

[Ramon88]

Estoy con vizcaya, me encuentro con Modelo y Ejercicio.


Modelo= 140/240

Ejercicio = ¿?¿?¿?¿?¿??


No encuentro que es el ejercicio en ningun sitio.

[sEngine]

Empezado por Ramon88

Estoy con vizcaya, me encuentro con Modelo y Ejercicio.


Modelo= 140/240

Ejercicio = ¿?¿?¿?¿?¿??


No encuentro que es el ejercicio en ningun sitio.

Es el año en el que se presentan las facturas

[Ramon88]

Me esta devolviendo ERROR 400.
Lo he revisdo todo y creo que esta bien.
Subo el codigo a ver si veis algo, aun que está en .Net

    Public Sub EnvioDatos(pathXML As FileInfo, pathGZIP As FileInfo, Ejercicio As String) ' Ejercicio= Año
        Try
            ':::::::SandBox:::::::
            Dim URL_RECEPCION As String = "https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena"

            Dim func As New Funciones
            Dim certificate As X509Certificate2 = func.GetCertificateByThumbprint(func.CargaP12)

            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

            'Creamos el JSON
            Dim mydatos As New ClasesJson With {
                .Con = "LROE",'Concepto de lo que se quiere registrar.
                .Apa = "1.1",'Determina el apartado relacionado al concepto
                .Inte = New List(Of Datosinte) From'Datos de la persona interesada. Tanto fisica vcomo juridica
                {
                     New Datosinte With {.Nif = "B46648192",
                                        .Nrs = "OPVIN S.L.",
                                        .Ap1 = "",
                                        .Ap2 = ""}
                },
                .Drs = New List(Of DatosDrs) From
                {
                     New DatosDrs With {.Mode = "240",
                                        .Ejer = Ejercicio}
                }
                }

            'Creamos el JSON
            Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(mydatos)

            Dim req As HttpWebRequest = WebRequest.Create(URL_RECEPCION)
            req.ContentType = "application/octet-stream; charset=utf-8"   'Si da error 454 ponemos esto en ContentType: application/xml;charset=UTF-8
            req.Headers("Accept-Encoding") = "gzip" ', deflate"
            req.Headers("Content-Encoding") = "gzip"
            req.Headers("eus-bizkaia-n3-version") = "1.0"
            req.Headers("Encoding") = "gzip"
            req.Headers("eus-bizkaia-n3-content-type") = "application/xml"
            req.AutomaticDecompression = DecompressionMethods.GZip 'Probar con deflate
            req.Headers("eus-bizkaia-n3-data") = json

            req.Method = WebRequestMethods.Http.Post
            req.ClientCertificates.Add(certificate)

            Dim requestStream As Stream = Nothing

            'Dim FileGzip As FileStream = New FileStream("pathfile", FileMode.Open, FileAccess.Read)
            'FileGzip.Seek(0, SeekOrigin.Begin)

            'Comprimimos el fichero a GZIP
            func.ComprimirFichero(pathXML, pathGZIP)

            Try

                'req.ContentLength = FileGzip.Length   'Esto igual se puede suprimir
                'Convertimos el fichero en un array de bytes
                Dim bytes As Byte() = File.ReadAllBytes(pathGZIP.FullName)
                req.ContentLength = bytes.Length

                requestStream = req.GetRequestStream()
                requestStream.Write(bytes, 0, bytes.Length)
                requestStream.Close()
                'requestStream.Flush()

            Finally

                '    If requestStream IsNot Nothing Then
                '        requestStream.Close()
                '    End If

            End Try

            Dim response As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
            Dim reader As New StreamReader(response.GetResponseStream())

            MsgBox("Código:" & response.StatusCode)

            MsgBox(response.Headers.Get("eus-bizkaia-n3-mensaje-respuesta"))
        
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

[edari]

Empezado por Ramon88

Me esta devolviendo ERROR 400.
Lo he revisdo todo y creo que esta bien.
Subo el codigo a ver si veis algo, aun que está en .Net

    Public Sub EnvioDatos(pathXML As FileInfo, pathGZIP As FileInfo, Ejercicio As String) ' Ejercicio= Año
        Try
            ':::::::SandBox:::::::
            Dim URL_RECEPCION As String = "https://sarrerak.bizkaia.eus/N3B4000M/aurkezpena"

            Dim func As New Funciones
            Dim certificate As X509Certificate2 = func.GetCertificateByThumbprint(func.CargaP12)

            ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12

            'Creamos el JSON
            Dim mydatos As New ClasesJson With {
                .Con = "LROE",'Concepto de lo que se quiere registrar.
                .Apa = "1.1",'Determina el apartado relacionado al concepto
                .Inte = New List(Of Datosinte) From'Datos de la persona interesada. Tanto fisica vcomo juridica
                {
                     New Datosinte With {.Nif = "B46648192",
                                        .Nrs = "OPVIN S.L.",
                                        .Ap1 = "",
                                        .Ap2 = ""}
                },
                .Drs = New List(Of DatosDrs) From
                {
                     New DatosDrs With {.Mode = "240",
                                        .Ejer = Ejercicio}
                }
                }

            'Creamos el JSON
            Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(mydatos)

            Dim req As HttpWebRequest = WebRequest.Create(URL_RECEPCION)
            req.ContentType = "application/octet-stream; charset=utf-8"   'Si da error 454 ponemos esto en ContentType: application/xml;charset=UTF-8
            req.Headers("Accept-Encoding") = "gzip" ', deflate"
            req.Headers("Content-Encoding") = "gzip"
            req.Headers("eus-bizkaia-n3-version") = "1.0"
            req.Headers("Encoding") = "gzip"
            req.Headers("eus-bizkaia-n3-content-type") = "application/xml"
            req.AutomaticDecompression = DecompressionMethods.GZip 'Probar con deflate
            req.Headers("eus-bizkaia-n3-data") = json

            req.Method = WebRequestMethods.Http.Post
            req.ClientCertificates.Add(certificate)

            Dim requestStream As Stream = Nothing

            'Dim FileGzip As FileStream = New FileStream("pathfile", FileMode.Open, FileAccess.Read)
            'FileGzip.Seek(0, SeekOrigin.Begin)

            'Comprimimos el fichero a GZIP
            func.ComprimirFichero(pathXML, pathGZIP)

            Try

                'req.ContentLength = FileGzip.Length   'Esto igual se puede suprimir
                'Convertimos el fichero en un array de bytes
                Dim bytes As Byte() = File.ReadAllBytes(pathGZIP.FullName)
                req.ContentLength = bytes.Length

                requestStream = req.GetRequestStream()
                requestStream.Write(bytes, 0, bytes.Length)
                requestStream.Close()
                'requestStream.Flush()

            Finally

                '    If requestStream IsNot Nothing Then
                '        requestStream.Close()
                '    End If

            End Try

            Dim response As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
            Dim reader As New StreamReader(response.GetResponseStream())

            MsgBox("Código:" & response.StatusCode)

            MsgBox(response.Headers.Get("eus-bizkaia-n3-mensaje-respuesta"))
        
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub

Yo soy muy novato en esto también y hoy intentaré hacer mi primera prueba pero

Les has solicitado la inscripción en el entorno de prueba y te la han devuelto?

Y por otro lado has puesto los datos de

3.1URL
La URL del servicio de entradas en el entorno de pruebaspara el alta, modificación y anulación
es la siguiente:
▪https://pruesarrerak.bizkaia.eus/N3B4000M/aurkezpena
La URL del servicio de entradas en el entorno de pruebaspara las consultases la siguiente:
▪https://pruesarrerak.bizkaia.eus/N3B4001M/kontsulta

...

Licencia
En este entorno de pruebas los datos del software de facturación a utilizar son los siguientes:
▪LicenciaTBAI:TBAIBI00000000PRUEBA
▪NIF entidaddesarrolladora:A99800005
▪Nombre:SOFTWARE GARANTE TICKETBAI PRUEBA
▪Versión:1.0

https://www.batuz.eus/fitxategiak/ba...6e0baf43bbe086

[Ramon88]

Empezado por edari

Yo soy muy novato en esto también y hoy intentaré hacer mi primera prueba pero

Les has solicitado la inscripción en el entorno de prueba y te la han devuelto?

Y por otro lado has puesto los datos de



https://www.batuz.eus/fitxategiak/ba...6e0baf43bbe086

Pues tienes toda la razón! Estoy poniendo mal el enlace.
No se si solo soy yo que soy muy tonto, pero con tanto PDF y todo cada cosa en una web distinta me hago la picha un lio...

Cuando quiero consultar algo después de un timpo sin tocarlo, me toca ir mirando los pdf a ver en cual esta.

[edari]

Empezado por Ramon88

Pues tienes toda la razón! Estoy poniendo mal el enlace.
No se si solo soy yo que soy muy tonto, pero con tanto PDF y todo cada cosa en una web distinta me hago la picha un lio...

Cuando quiero consultar algo después de un timpo sin tocarlo, me toca ir mirando los pdf a ver en cual esta.

Yo estoy parecido, no te creas