23-11-2021
|
Miembro
|
|
Registrado: jun 2021
Posts: 178
Reputación: 3
|
|
Cita:
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
Código:
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
Cita:
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
Última edición por edari fecha: 23-11-2021 a las 08:56:00.
|