Autoincrementar Campo tipo 00/000

[jmariano]

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:

Código Delphi [-]
var
  Q: TQuery;
  Numero, Anno: integer;
begin
  Q := TQuery.Create(Self);
  Q.DatabaseName := 'C:\Archivos de programa\Presupuestos 1.0';
  Anno := YearOf(Now); // El año se almacenará con cuatro dígitos en la tabla

  try
    Q.SQL.Text := 'select max(Numero) from TPresupuestos.DB where Anno = ' +
      IntToStr(Anno);

    Q.Open;

    if Q.Fields[0].IsNull then
      Numero := 0
    else
      Numero := Q.Fields[0].AsInteger;
  finally
    FreeAndNil(Q);
  end;

  Table1.FieldByName('Numero').AsInteger := Numero + 1;
  Table1.FieldByName('Anno').AsInteger := Anno;
end;

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:

Código Delphi [-]
begin
  // Sólo mostramos los dos últimos dígitos del año
  Table1.FieldByName('Presupuesto').AsString := Copy(Table1.FieldByName('Anno').AsString,
    2, 2) + '/' + Table1.FieldByName('Numero').AsString;
end;

Saludos!