El problema que tengo es el siguiente tengo un response de un json que es el siguiente:
{
"response": {
"trace": {
"serviceId": "api-prueba-val",
"consumerId": "apiew",
"channelCode": "api",
"traceId": "1552555555521552585874515452855512"
},
"payload": {
"ideCotizacion": "748415414241558545232",
"listRptaCalculoPrima": [
{
"indValidacion": 0,
"ideProd": 4750,
"descProd": "PRUEBA DAC",
"idpMoneda": "SOL",
"codBroker": 47,
"codAgencia": "1",
"fecIniVig": "2020-03-18",
"fecFinVig": "2020-03-31",
"idpFormaPago": "A",
"periodo": 2,
"porcComision": 0,
"porcDerechoEmision": "0.01",
"primaMinima": 200,
"primaEndoso": 40,
"indFormaLq": "P",
"indFormaCta": "P",
"indLq": "S",
"cliente": {
"codCliente": 152501,
"tipoDocumento": "1",
"numeroDocumento": "45850214589",
"nombre": "PRUEBA DAC S.A.C",
"apeMaterno": "PRUEBA DAC S.A.C",
"apePaterno": "PRUEBA DAC S.A.C",
"codDepartamento": "018",
"codDistrito": "020",
"codPais": "520",
"codProvincia": "018",
"codUbigeo": "5201",
"correo": "prueba@hotmail.com",
"departamento": "Lima",
"direccion": "AV.PRUEBA",
"distrito": "PRUEBA",
"estCivil": "S",
"codCiiu": "B142536",
"fecNacimiento": "1989-10-06",
"provincia": "PRUEBA",
"sexo": "M",
"telefono": "1458963",
"indCorreo": "S"
},
"sucursales": [
{
"nroSucursal": 1,
"dscSucursal": "PRUEBA",
"nroTrabajadores": 5,
"montoPlanilla": 15000,
"ideActividadRiesgo": 7,
"dscActividadRiesgo": "descActi",
"idpNivelRiesgo": "6",
"dscNivelRiesgo": "descNivel",
"indValidacion": 0,
"tasa": 6,
"PrimaFinalxSede": "50.00"
}
],
"igvFinal": "10.20",
"deremision": "4.00",
"montoPrimaFinal": 257.54,
"mensajeInformativo": []
}
]
},
"status": {
"success": true
}
}
}
Este mi código en vb.net:
La lectura se realiza de forma correcta hasta el código que no esta comentado la variable osubitem2 As Object (el ultimo es un JObject) cuando ese JObject lo cambio por JProperty y al osubitem3 lo cambio por JObject no me deja entrar a la matriz "sucursales" que es donde necesito ingresar para leer lo datos que hay dentro.
Dim ob As JObject = JObject.Parse(vStrResultado)
Dim results As List(Of JToken) = ob.Children().ToList
For Each item As JProperty In results
item.CreateReader()
Select Case item.Name
Case "response"
For Each subitem As JProperty In item.Values
subitem.CreateReader()
Select Case subitem.Name
Case "payload"
For Each osubitem1 As JProperty In subitem.Values
osubitem1.CreateReader()
Select Case osubitem1.Name
Case "listRptaCalculoPrima"
For Each osubitem2 As JObject In osubitem1.Values
osubitem2.CreateReader()
Session("montoPrimaFinal") = osubitem2("montoPrimaFinal")
Session("igvFinal") = osubitem2("igvFinal")
'Select Case osubitem2.Name
' Case "sucursales"
' For Each osubitem3 As JObject In osubitem2.Values
' osubitem3.CreateReader()
' 'OBTENER DATOS DE LA LISTA DE SUCURSALES
' Next
'End Select
Next
End Select
Next
Exit For
End Select
Next
Exit For
End Select
Next
psdt: Comparen el response con la estructura del código de la estructura de vb.net