Case EDITARXREGISTRO
Dim ListEdicion As List
ListEdicion.Initialize
ListEdicion = parser.NextArray
For i = 0 To ListEdicion.Size - 1
Dim MapaListEdit As Map
MapaListEdit = ListEdicion.Get(i)
Log(MapaListEdit)
Next
For Each colroot As Map In ListEdicion
Dim clave As String = colroot.Get("ID")
Dim nombre As String = colroot.Get("NOMBRE")
Dim estado As String = colroot.Get("ESTADO")
Log(clave)
Log(nombre)
Log(estado)
txtNombre.Text = nombre
spEstado.GetItem(estado)