Validar Dato DBGRID en tiempo de ejecución!!

[juliannemiro]

Hola a todos!

- Tengo una DBGrid de la tabla ASISTENCIAS en la que cargo una lista de alumnos de una fecha determinada.
La grilla muertra alumno, ID de tipo de asistencia y descripción entre otras cosas.

Lo que yo necesito es que cuando la persona completa en tiempo de ejecucion me valide lo que ingresa, por ejemplo:

El usuario pone sobre un alumno X, id_asistencia: 'P' y la descripcion automaticamente tiene que decir PRESENTE. Si cambió la 'P', por una 'A', debe refrescar la descripción a AUSENTE. Esto para cada uno de los alumnos que aparece en la grilla.

Esta modificacion de datos la hago dentro de una transacción.

Trabajo con SQLserver2000, y tengo el DATASOURCE, ADOTABLE Y ADOQUERY de la tabla ASISTENCIAS

Espero se entienda, agradezco su tiempo!

[ecfisa]

Hola juliannemiro.

Si no te entendí mal, estás ingresando los datos desde el mismo DBGrid. De ser así, podés aprovechar el evento OnKeyPress del TDBGrid:

Código Delphi [-]
procedure TForm1.DBGridKeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TDBGrid do
   if SelectedField.FieldName = 'id_asistencia' then
   begin
     DataSource.DataSet.Edit;
     if Upcase(Key) = 'P' then
       SelectedField.Value:= 'PRESENTE';
     if Upcase(Key) = 'A' then
       SelectedField.Value:= 'AUSENTE';
     Key:= #0;
   end;
end;

Saludos.

[juliannemiro]

Perdon en la tardanza en contestar!

Si, eso me sirve y muchisimo. Pero tengo el siguiente problema:
El campo que tiene que cambiar la descripción no debe ser id_asistencias, sino x_descripcion que también lo muestra la grilla ya que esta dentro del mismo adoquery.

[ecfisa]

Empezado por juliannemiro

Perdon en la tardanza en contestar!

Si, eso me sirve y muchisimo. Pero tengo el siguiente problema:
El campo que tiene que cambiar la descripción no debe ser id_asistencias, sino x_descripcion que también lo muestra la grilla ya que esta dentro del mismo adoquery.

Hola Julián.

Basta con que cambies el nombre de campo 'id_asistencias' por 'x_descripción' en el código que te puse anteriormente.

Un saludo.

[juliannemiro]

Hola!

Pido disculpas, porque me expresé mal

En mi dbgird tengo campo id_asistencia_tipo y x_asistencia entre otros. Cuando el usuario pone en id_asistencia_tipo la letra 'P', el campo x_asistencia debe ponerse 'Presente'. Pero se mantiene en id_asistencia_tipo la letra 'P'. Digamos que es el Codigo y Descrpicion

Osea el registro quedaria asi:
Alumno.....id_asistencia.....tipo x_asistencia
Juan...............P................Presente

En sintesis lo que me falta es la sintaxis para agregar la linea que seleccione otro campo del mismo registro al cual le voy a asignar un valor.

Gracias!

[ecfisa]

Hola.

Creo que ahora te entendí

Código Delphi [-]
procedure TForm1.DBGridKeyPress(Sender: TObject; var Key: Char);
begin
  with Sender as TDBGrid do
  if SelectedField.FieldName = 'id_asistencia' then
  begin
    DataSource.DataSet.Edit;
    if Upcase(Key) = 'P' then
      DataSource.DataSet.FieldByName('x_descripción').AsString:= 'PRESENTE';
    if Upcase(Key) = 'A' then
      DataSource.DataSet.FieldByName('x_descripción').AsString:= 'AUSENTE';
    Key:= #0; // (Quitá esta línea si deseas conservar los caracteres tecleados )
  end;
end;

Saludos.

[juliannemiro]

Excelente ecfisa!!

Eso es exactamente lo que quería. Pero sigo teniendo un problema para poder realizarlo con exito.

Lo que pasa es lo siguiente:
Cambio un registro, actualiza perfecto el x_asistencia
Cambio el segundo registro, actualiza perfecto el x_asistencia. Pero ni bien quiero pasar a un tercer registro el programa falla y me dice 'No puede encontrar la fila para su actualizacion: algunos valores han cambiado desde la ultima vez que se leyó'

[ecfisa]

Hola Julián.

Revisá estos enlaces donde se trata ese error:

• No se pudo encontrar la fila para su actualización
• Extraño fallo SQL Server Delphi 7
• Guardar una imagen a una base de datos en mySQL
• Problema al Actualizar Valor Double
• Error al actualizar
• No se pudo encontrar la fila para su actualización

Un saludo.

[juliannemiro]

Hola.
Estuve leyendo y creo que el problema es con la consulta del adoquery. Porque si yo solo trabajo en la dbgrid con los campos de la tabla asistencias, funciona todo correctamente.
Ahora si a la consulta de la dbgrid le agrego los joins con las otras tablas, me falla con el mensaje antes detallado.

Voy a probar de solucionarlo, lo que se me viene a la cabeza es que trata de editar campos de las tablas que trae con el JOIN y solamente deberian usarlo para mostrarlos. Será ese el problema?

No se si corresponde seguir tratandolo acá o crear un nuevo thread.

[ecfisa]

Empezado por juliannemiro

No se si corresponde seguir tratandolo acá o crear un nuevo thread.

Hola Julián.

Si creás un nuevo hilo exponiendo caso y el error, con seguridad incrementás las posibilidades de recibir una respuesta más concreta.

Un saludo.

[juliannemiro]

Hola. Estoy de nuevo!

Te cuento que he solucionado el problema creando una VISTA en el SQLServer:

Código SQL [-]
SELECT     b.id_asistencias, c.apellido AS Apellido, c.nombre AS Nombre, b.id_asistencias_tipo, 
    b.computa, b.valor, b.obs AS Observación, f.id_estado, f.id_alumno, d .id_curso, b.fecha,
            CASE b.id_asistencias_tipo
              WHEN 1 THEN 'Presente'
              WHEN 2 THEN 'Ausente'
              WHEN 3 THEN 'Tarde'
            ELSE 'retiro' END AS x_asistencia                   
FROM         asistencias b LEFT JOIN
                      alumnos_cursos a ON a.id_alumno = b.id_alumno INNER JOIN
                      personas c ON c.id_persona = a.id_alumno LEFT JOIN
                      cursos d ON a.id_curso = d .id_curso AND b.n_anioLectivo = d .n_anio LEFT JOIN
                      asistencias_tipos e ON b.id_asistencias_tipo = e.id_asistencias_tipo LEFT JOIN
                      alumnos f ON c.id_persona = f.id_alumno

Asique ese error ya no esta mas. El problema es el siguiente.

Cuando cambio el valor del ID_ASISTENCIA_TIPO en la DBGRID, me cambia la X_ASISTENCIA correctamente. Pero cuando salgo del campo(me cambio de registro), el ID_ASISTENCIA_TIPO se mantiene con el cambio, pero la X_ASISTENCIA vuelve a tomar el valor que tenía antes.

El código que estoy usando es el siguiente

Código Delphi [-]
procedure TFormAsistencia.DBGridMateriasCursoKeyPress(Sender: TObject;
  var Key: Char);
begin

  with Sender as TDBGrid do
   if SelectedField.FieldName = 'id_asistencias_tipo' then
   begin
     DataSourceAsistenciasGrid.DataSet.Edit;
     DBGridMateriasCurso.Columns[4].ReadOnly := false;
     Key := UpCase(Key);
     if Upcase(Key) = '1' then
     DataSourceAsistenciasGrid.DataSet.FieldByName('x_asistencia').AsString:= 'Presente';
     if Upcase(Key) = '2' then
     DataSourceAsistenciasGrid.DataSet.FieldByName('x_asistencia').AsString:= 'Ausente';
     if Upcase(Key) = '3' then
     DataSourceAsistenciasGrid.DataSet.FieldByName('x_asistencia').AsString:= 'Tarde';
     if Upcase(Key) = '4' then
     DataSourceAsistenciasGrid.DataSet.FieldByName('x_asistencia').AsString:= 'Retiro Anticipado';
     DBGridMateriasCurso.Columns[4].ReadOnly := true;
   end;

Cual puede ser el problema?

Gracias como siempre por la buena predisposición!