anchor.diff:      let matriculas = List.map fst data
       let personalInfo =
           matriculas |> List.map (fun matricula ->
  -            query {for A in Sql.GetDataContext().Intranet.Alumnos do
  +            query {for A in ctx.Intranet.Alumnos do
                      where (A.Matricula = matricula)
                      select A})
                      |> Seq.concat
  
positive.code:        | _ -> None
  
  let obtener_prediccion_profesor periodo parcial nombre apellidos =
      Sql.GetDataContext().Procedures.GruposProfesor.Invoke(periodo, parcial, nombre, apellidos).ResultSet
          |> Seq.toList
          |> List.map (fun r -> (*r.ColumnValues |> Seq.map fst
                                               |> Seq.iter (printfn "%A")*)
  
negative.code: let ctx = Sql.GetDataContext()
  
  let obtener_datos periodoInicial periodoFinal codigo =
      ctx.Procedures.DatosEntrenamiento.Invoke(periodoInicial, periodoFinal, codigo).ResultSet
          |> Seq.map (fun r -> r.MapTo<Kardex>())
          |> Seq.distinctBy (fun k -> (k.Matricula, k.Materia))
          |> Seq.toList
  
  let obtener_datos_prediccion periodoInicial periodoFinal periodoPrediccion codigo =
      ctx.Procedures.DatosPrediccion.Invoke(periodoInicial, periodoFinal, periodoPrediccion, codigo).ResultSet
          |> Seq.map (fun r -> r.MapTo<Kardex>())
          |> Seq.distinctBy (fun k -> (k.Matricula, k.Materia))
          |> Seq.toList
  
  let obtener_clave_profesor (grupo : string) =
      match query {for A in ctx.Intranet.Grupos do
                   where (A.Grupo = grupo)
                   select A.Profesor}
                  |> Seq.toList with
  