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

[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