Hola compañeros, buenos días.
Estoy desarrollando un web service en VB.NET implementando la DI AP y necesito poder convertir un BoRecordset en algún tipo de objeto que se serialice para devolver un JSON.
Muchas gracias por vuestra ayuda!
Este es mi método, que a día de hoy me devuelve un JSON (vacío):
<WebMethod(CacheDuration:=0)>
<Script.Services.ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=True, XmlSerializeString:=False)>
Public Sub GetJSON()
Dim oObj As SAPbobsCOM.SBObob
Dim rs As SAPbobsCOM.Recordset
Dim sSQL As String
If Not ConnSAP() Then
Context.Response.Write("No es posible conectarse a la base de datos")
End If
oObj = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
rs = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
sSQL = "SELECT top 10 * FROM OCRD"
rs.DoQuery(sSQL)
Context.Response.Cache.SetExpires(DateTime.Now.AddHours(-1))
Context.Response.ContentType = "application/json"
Context.Response.Write(Newtonsoft.Json.JsonConvert.SerializeObject(
rs,
Newtonsoft.Json.Formatting.None))
oCompany.Disconnect()
Context.Response.Flush()
Context.Response.End()
End Sub