Autonumericos
 

Hoal a todos
Por favor quisiera saber como puedio al darle en el boton nuevo de un form se genere un campo autonumerico solo (Campo cadena de 5 caracteres como maximo y que empiece con la letra U)
ejm:
Primer regsitro A0001
Segundo registro A0002
me lea el anterio y se genere automaticamente el A0003
Saludos
Gracias de antemano
:)

Bueno, teniendo el valor del campo del registro anterior, puedes hacer algo como esto:

Código Delphi [-]
var
  ValorNuevo: string;
  ParteNumerica: Integer;

begin
  ParteNumerica := StrToInt(Copy(ValorAnterior, 2, 4));
  Inc(ParteNumerica);
  ValorNuevo := Format('A%.4d', [ParteNumerica]) // Esto te devolvería algo como A0003
end;

Saludos...

RP. Autonumerico
 

Pero tengo una duda como podria saber cual es el valor anterior
Gracias
Saludos
Carlos

Lo podrías hacer mediante un query, aquí una función que hace los dos procesos al mismo tiempo:

Código Delphi [-]
function GetKeyValue: string;
var
  ValorAnterior: string;
  ParteNumerica: Integer;

begin
  { Esto depende un poco del tipo de base de datos y los componentes que uses,
  por ejemplo, si es Interbase y usas los IBX sería algo como TIBQuery.Create }
  with TQuery.Create(nil) do
    try
      // Configuras la base de datos
      SQL.Text := 'select max(campokey) from tabla'; // Obtienes el valor mas alto del campo
      Open;
      ValorAnterior := Fields[0].AsString;
      Close
    finally
      free
    end;
  ParteNumerica := StrToInt(Copy(ValorAnterior, 2, 4));
  Inc(ParteNumerica);
  Result := Format('A%.4d', [ParteNumerica])
end;

Saludos...

Hola crc2005
Solo por curiosidad para ti haz esta prueba:
En una aplicacion nueva, coloca 2 edit y un boton, en el evento on click del boton pon:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
  A: String;
  N: Integer;
begin
  A:= Edit1.Text;
  N:= 1;
  Edit2.Text:= Edit1.Text + IntToStr(N);
end;

end.

Ejecutalo, pon en el edit 1 la letra A, y presiona el boton.
Esto no hara lo que necesitas pero te va a dar muchas ideas, en vase a esto podras hacer lo que quieres.
Saludos

Para que declaras A y le asignas un valor si no la usas en la concatenación? :p

Buen Punto Maestro.
No se necesita.
Saludos

RP. Autonumerico
 

Amigos:
Gracias a todas las ideas resolvi mi problema
Primero cree una Consulta:SQL1
Select max(campokey) from tabla
------
var
ValorAnterior: string;
ParteNumerica: Integer;
begin
En el boton de Nuevo
SQL1.OPEN;
SQL1.SQL.Text := 'select max(campokey) from tabla';
ValorAnterior := Fields[0].AsString;
ParteNumerica := StrToInt(Copy(ValorAnterior, 2, 4));
Inc(ParteNumerica);
Result := Format('A%.4d', [ParteNumerica]);
DBEDIT1.TEXT:=Result;
SQL1.REFRESH;
SQL1.CLOSE;
tabla.insert;
end;
------
En un boton Guardar
tabla.post;
tabla.refresh;
Gracias
Saludos
Carlos
:)