Public Sub ProcessData(res As String,job As HttpJob) As ResumableSub
ProgressDialogHide
If job.JobName="sendImgJob" Then
ProgressDialogHide
Log("FOTO ENVIADA")
Log(job.GetString2("Windows-1252"))
job.Release
foto_perfil_familiar_lista = 1
kvs.Put("foto_perfil_familiar_lista","1")
btnShowAlertFOTO_Click
job.Release
Return
End If
If job.JobName="sendImgJob1" Then
ProgressDialogHide
Log("FOTO ENVIADA")
Log(job.GetString2("Windows-1252"))
job.Release
foto_perfil_familiar_lista = 1
kvs.Put("foto_perfil_familiar_lista","1")
btnShowAlertFOTO_Click
job.Release
Panel_tabla.Visible = False
Return
End If
If job.Success Then
Dim ubica As Int
Dim strVar As String
Dim sf As StringFunctions
ubica = res.IndexOf("[")
sf.Initialize
strVar = sf.Left(res,ubica)
res= res.Replace (strVar, "")
Log("Response from server: " & res)
Select job.JobName
Case GUARDARDATOS
Dim parser As JSONParser
parser.Initialize(res)
Dim DATOS As List
DATOS = parser.NextArray 'returns a list with maps
If DATOS.Size > 0 Then
Else
End If
CREA_TU_PERFIL.datos_familiar_listo_reset = 1
timer1.Initialize("Timer1", 3000)
timer1.Enabled = True
kvs.Put("datos_familiar_listo","1")
IME.HideKeyboard
btnShowAlertColoured_Click
Case DATOSUSUARIO
ProgressDialogHide
Dim parser As JSONParser
parser.Initialize(res)
Dim DATOS As List
DATOS = parser.NextArray 'returns a list with maps
ProgressDialogHide
If DATOS.Size > 0 Then
For i = 0 To DATOS.Size - 1
Dim m As Map
m = DATOS.Get(i)
B4XFloatTextField_nombre.Text = m.Get("c_nombre_familiar")
B4XFloatTextField_apellido.Text = m.Get("c_apellido_familiar")
B4XFloatTextField_email.Text = m.Get("c_correo_familiar")
B4XFloatTextField_cedula.Text = m.Get("c_cedula")
'AnotherDatePicker_fecha_nacim.Date = m.Get("d_fecha_nacimiento") * 1000
DateTime.DateFormat ="dd/MM/yyyy"
B4XFloatTextField_fecha.Text = DateTime.Date(m.Get("d_fecha_nacimiento") * 1000)
B4XFloatTextField_ciud_residencia.Text = m.Get("c_ciudad_residencia")
B4XFloatTextField_direccion.Text = m.Get("c_direccion_residencia")
B4XFloatTextField_dir_trabajo.Text = m.Get("c_direccion_trabajo")
B4XFloatTextField_empresa.Text = m.Get("c_empresa")
B4XFloatTextField_cargo.Text = m.Get("c_cargo")
B4XFloatTextField_celular.Text = m.Get("c_celular")
B4XFloatTextField_num_fijo.Text = m.Get("c_telefono_residencia")
B4XFloatTextField_parentesco.Text = m.Get("c_parentesco")
Desabilitar_Editar
Next
Else
End If
Case CIUDADES
ProgressDialogHide
Dim parser As JSONParser
parser.Initialize(res)
Dim DATOS As List
DATOS = parser.NextArray 'returns a list with maps
ProgressDialogHide
If DATOS.Size > 0 Then
Spinner_ciudad.Clear
map_ciudades.Clear
For i = 0 To DATOS.Size - 1
Dim m As Map
m = DATOS.Get(i)
Dim ciudad = m.Get("nombre_ciudad") As String
Dim id_ciudad = m.Get("id_ciudad") As String
Spinner_ciudad.Add(m.Get("nombre_ciudad"))
map_ciudades.Put(ciudad,id_ciudad)
map_posic_ciudades.Put(id_ciudad,i)
Next
Else
End If
Dim aux = Main.id_ciudad_publica As Int
Spinner_ciudad.SelectedIndex =aux -1
mostrar_datos
Case BUSCAR_ID
Dim parser As JSONParser
parser.Initialize(res)
Dim DATOS As List
DATOS = parser.NextArray 'returns a list with maps
If DATOS.Size > 0 Then
For i = 0 To DATOS.Size - 1
Dim m As Map
m = DATOS.Get(i)
INGRESO.ID_USUARIO = m.Get("id_cliente")
Next
End If
Case ID_CREDITO_SOLIC
Dim parser As JSONParser
parser.Initialize(res)
Dim DATOS As List
DATOS = parser.NextArray 'returns a list with maps
If DATOS.Size > 0 Then
For i = 0 To DATOS.Size - 1
Dim m As Map
m = DATOS.Get(i)
id_credito_aux = m.Get("id_credito_solicitado")
Next
End If
End Select
Else
ToastMessageShow("Error: " & job.ErrorMessage, True)
End If
job.Release
End Sub
