Else
S
Panel_Err_c.Color=Colors.red
ToastMessageShow("Espere por favor ...", False )
Case "cargar_amigos_listado"
ExecuteRemoteQuery_cargar_amigos_listado("cargar_amigos_listado")
'Case "cargar_lista_gpx"
'ExecuteRemoteQuery_cargar_lista_gpx("cargar_lista_gpx")
'Case "cargar_amigos_grupo"
'ExecuteRemoteQuery_cargar_amigos_listado_grupo("cargar_amigos_grupo",id_gru)
'Case "cargar_grupos_amigos"
'ExecuteRemoteQuery_cargar_grupos_amigos("cargar_grupos_amigos")
Case "aceptar_rechazar_amigo"
ExecuteRemoteQuery_rechazar_amigo("aceptar_rechazar_amigo")
Case "cargar_amigos_no_listado"
ExecuteRemoteQuery_cargar_amigos_no_listado("cargar_amigos_no_listado")
Case "cargar_mensaje"
ExecuteRemoteQuery_cargar_mensaje("cargar_mensaje")
Case "existe_amigo"
ExecuteRemoteQuery_existe_Amigo("existe_amigo")
Case "comprobar_ya_amigos"
ExecuteRemoteQuery_comprobar_ya_amigo("comprobar_ya_amigos")
Case "modificar_ver_amigo"
ExecuteRemoteQuery_modificar_ver_amigo("modificar_ver_amigo")
Case "insertar_registro"
ExecuteRemoteQuery_insert_registro("insertar_registro")
Case "Identificacion"
ExecuteRemoteQuery( "Identificacion")
End If
Job.Release