FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Autoincrementar Campo tipo 00/000
Hola a Todos:
A ver si me pueden hechar una mano. Tengo un campo llamado CLIENTE al que tengo puesto en la tabla (paradox7) como NUMÉRICO. A la vez en el formulario le tengo puesta a la tabla en el evento ONNEWRECORD que me lo autoincremente en uno en cada nuevo registro. El código que utilizo para esto es el siguiente: Código:
var Q : TQuery; Numero: integer; begin Q := TQuery.Create(Self); Q.DatabaseName := 'C:\Archivos de programa\Presupuestos 1.0'; try Q.SQL.Text := 'select max(Presupuesto) from TPresupuestos.DB'; Q.Open; if Q.Fields[0].IsNull then Numero := 0 else Numero := Q.Fields[0].AsInteger; finally FreeAndNil(Q); end; Table1.FieldByName('Presupuesto').AsInteger := Numero + 1; end; Haciendo alguna modificación en el código que he puesto, sería posible?? Muchas Gracias de Antemano. P.D: Hay otro problema con el campo CLIENTE, si se ponen ceros a la izquiera (lo digo por el año) se eliminan automáticamente al guardar la tabla. Hay alguna manera de solucionar esto?? Muchas Than`s de nuevo a Todos. |
#2
|
||||
|
||||
Una forma sencilla de hacer lo que quieres es dividir la clave principal en dos, creando un campo para el año y otro para el número. Así, incrementarías más fácilmente la parte que te interesa y, además, podrías calcular el año según, por ejemplo, el año actual.
Si la clave principal siempre la va a generar tu programa, entonces, podrías crearte un campo calculado que tendría como función la presentación de la clave en la forma que quieres: 00/000 Cálculo de la clave:
Para presentar la clave al usuario (en cualquier control asociado a datos), crearíamos un campo calculado (por ejemplo, campo 'Presupuesto') y especificaremos en el evento 'OnCalcFields' de la tabla lo siguiente:
Saludos! |
|
|
|