[antrahxg]

Hola a todos

Bueno son dos preguntas pero la principal es la siguiente:

Despues de mucho buscar he encontrado mil formas de ordenar los datos en un DbGrid para arriba y para abajo pero lo que yo necesito es que los nuevos registros insertados directamente en un DbGrid No se ordenen es decir que tal como se introduzcan se queden, Probe quitando la llave primaria para posteriomente buscarla una por una que al fin no son muchos registros (a lo mas 150 por la naturaleza de la aplicacion) pero de esa forma al momento de ingresar nuevos registro me manda un error diciendo que la tabla no esta indexada.

Estoy usando Delphi7 y Paradox con DBE conectadas de la siguiente forma
DbGrid > Datasource > Table

...... Trabajo Mental ......
Bueno, se me acaba de ocurrir una idea que implemente y me funciono, que consiste en poner un campo autonumerico como la llave primaria que no se mostrara al usuario, claro que aun tengo que buscar de forma manual la que deberia ser la llave primaria para evitar duplicidades.

Alguna otra idea para dejar la que deberia ser la llave primaria y sin que los registros se ordenen en el DBGrid. Aunque se me esta ocurriendo que los registros realmente se ordenan dentro de la tabla, bueno de todas formas, como evitar que los nuevos registros se ordenen en la Tabla y finalmente en el DbGrid.

2. Pasando a otras cosas
En relacion a lo anterior me paso algo rarisimo con las validaciones de registros en el mismo DbGrid, dado que los datos se introducen directamente ahi yo me tuve que encargar de manejar los errores de duplicidad y evitar que el campo llave (en este momento, el que deberia ser llave) queden vacio.

Estuve un buen rato (dias) tratando de hacer que estas validaciones resultaran, usaba el evento BeforePost y AfterPost (pasando por supuesto por OnNewRecord y updateRecord, todo esto lo hacia poniendo la propiedad CachedUpdates a True, probe y probe cuantas soluciones encontre y me tope con todos los errores, desde el Table is no in Edit or Insert mode hasta el desconcertante StackOverflow dentro del evento BeforePost y a volver a intentar, hubo un momento en que medio funciono pero al ingresar nuevos registros y al duplicarlos intencionalmente si los aceptaba pero los que ya estaban guardados en la tabla si los reconocia como duplicados.

Bueno el caso es que ya encontre la solucion de la forma mas fortuita que me pude imaginar (como casi siempre) tengo los eventos BeforePost y AfterPost tan llenos de comentarios que no se en que momento habilite las lineas de la salvacion, pero quiero compartirlos con ustedes para ver que observaciones me pueden hacer, porque lo veo realmente tan sencillo que no lo puedo creer y estoy seguro que algun pero debe haber por ahi.

Para empezar tengo las propiedades del componente Table en su estado inicial, es decir tal y como estan cuando se colocan en el formulario (a excepion claro del "DatabaseName" y "TableName") y solo use los evetos BeforePost y AfterPost

procedure TForm1.Table1BeforePost(DataSet: TDataSet);     
       
        if Buscar(DataSet.FieldByName('Nombre').AsString) then begin
          //Showmessage es usado solo para la depuracion
            Showmessage('El codigo esta duplicado'); 
            DataSet.FieldByName('Nombre').AsString:='';
       end;
end;

Aqui lo que hago es basicamente lo siguiente, si el registro que esta a punto de ingresarse ya esta en la base de datos borro el campo "llave" y posteriormente

procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
     
      if Dataset.FieldByName('Nombre').AsString='' then
        DataSet.Delete;
end;

Borro cualquier registro cuyo campo llave este vacio, asi evito que el usuario ingrese nuevos registros con el campo llave vacio y los duplicados se borran inmediatamente despues de "postearse" porque su campo llave esta vacio.

------
Como les comento me esta funcionando con las varias pruebas que he hecho pero si alguien encuentra alguna desventaja o incoveniente por favor haganmelo notar.

Roberto Garcia.