Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   editar campo autoincremento al editar registro anterior (https://www.clubdelphi.com/foros/showthread.php?t=73875)

chartres 21-05-2011 01:00:40

editar campo autoincremento al editar registro anterior
 
Hola, espero algunas opiniones de como hacer lo siguiente en delphi 5, o 7, son los que uso.

Tengo una tabla que guarda un folio y un numero de renglon y otros datos,
el folio puede repetirse pero con diferente numero de renglon.

lo que necesito hacer es que al editar o insertar algun registro de cierto
Folio el campo Renglon del registro siguiente se modifique solo,
ejemplo
___________
Folio Renglon
1405 | 1
1405 | 2
1405 | 3
1405 | 4

al insertar un registro entre renglon 2 y 3 por ejemplo, que el "3" del registro sig. cambie a 4 y el "4" cambiaria a 5 y asi sucesivamente para ese folio unicamente.

Quiza para algunos les sera poco inusual pero uso BDE, y el componente table.

Yo tengo una idea mas o menos,

-filtrar la tabla por el folio
-contar el numero de registros(para sacar numero de renglones)
-segun el renglon que se haya editado restarlo al total de renglones
osea si se edito el 2 quedarian 3 renglones
-hacer un ciclo(while)con el numero de renglones contado o un EOf y que en cada pasada se edite el siguiente registro tomando el valor del renglon anterior y sumandole uno y asi hasta yegar al ultimo registro.

Se ve enredoso y lo es ,pero quiza funcionaria.

Si tienen una mejor opcion o idea, espero su ayuda.
Gacias

chartres 21-05-2011 01:37:25

Hola de nuevo, jaj

Mas tarde la verdad en escribir el post que en hacer mi plan funcionar.

funciono tal y como pense,

hacer un filtro y luego un ciclo para pasar por cada registro y editarlo aumentando el numero de renglon uno mas que el anterior.

Si a alguien le interesa el metodo, con gusto le doi mas detalles.


La franja horaria es GMT +2. Ahora son las 04:18:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi