Private Sub traerPedidoDetalle
pedidosDetalle.Initialize
Dim direccion_google As String
If nro_pedido.Text <> "" Then
' pedidosDetalleTarjeta.Clear
pedidosDetalle.Clear
'pedidosCL.Clear
Private ServerUrl As String
Private J As HttpJob
ServerUrl = "api/traerPedidoDetalle"
j.Initialize("", Me)
j.PostString(ServerUrl,"idpedido="&Main.idpedido)
Wait For (j) JobDone(Job As HttpJob)
If Job.Success Then
Dim parser As JSONParser
Dim response As String = Job.GetString
'Msgbox(response,"")
parser.Initialize(response)
Dim rows As List
'Log(parser)
rows = parser.NextArray
If rows.Size = 0 Then
'sacar un mensaje que avise que hay entregas pendientes
MsgboxAsync("No se encontraron detalles ", "Pedido Detalle")
else if rows.Size > 0 Then
conPedido.Visible = True
sinPedido.Visible = False
For i = 0 To rows.Size-1
Dim m As Map
Dim recorrido As String = ""
m = rows.Get(i)
fecha = m.Get("fecalta")
nroEntrega = m.Get("item")
fechaPedidoDet = sf.Mid(fecha,7,13)
DateTime.DateFormat = "dd/MM/yyyy HH:mm"
recorrido = m.Get("distancia_recorrida")
direccionPedidoDet = m.Get("direccion")
observacion = m.Get("observacion")
distest = m.Get("distancia_estimada")
estadoPedidoDet = m.Get("estado")
zonaDet = m.Get("zona")
'In this call is the error
pedidosDetalleTarjeta.Add(CreateItemPedidoDet(pedidosDetalleTarjeta.AsView.Width,Main.idpedido,nroEntrega,distest,direccionPedidoDet,zonaDet,estadoPedidoDet,recorrido,observacion),"")
Next
End If
'aceptar_pedido.Visible = True
' Rechazar_pedido.Visible = True
refrescar.Visible = True
finalizar.Visible = False
Else
Log(Job.ErrorMessage)
End If
End If
End Sub