Sub Globals
Dim envio_registro As HttpJob
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("registro")
envio_registro.Initialize("carga",Me)
End Sub
Sub bvalidar_Click
miniruta=""&acciones.ruta_s&"validar_usuario.php"
envio_registro.PostString(miniruta, "")
End Sub
'JOBDONE
Sub JobDone(Job As HttpJob)
Dim m As Map
Dim respuesta,query As String
m.Initialize()
Log("entramos....."&Job.Success)
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
Dim parser As JSONParser
parser.Initialize(res)
Log("NOMBRE....."&Job.JobName)
Select Job.JobName
Case "carga"
Dim tipo_i As List
tipo_i= parser.NextArray 'returns a list with maps
For i = 0 To tipo_i.Size - 1
Dim m As Map
m = tipo_i.Get(i)
respuesta= m.Get("respuesta")
nombre= m.Get("nombre")
Log("TOTAL"& respuesta)
If (respuesta="validado") Then
'accion
end if
If (respuesta="noregistrado") Then
'accion
End If
m.Clear
Next
ProgressDialogHide
End Select
End If
Job.Release
End Sub