FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
Bueno, teniendo el valor del campo del registro anterior, puedes hacer algo como esto:
Saludos... |
#3
|
|||
|
|||
RP. Autonumerico
Cita:
Gracias Saludos Carlos |
#4
|
|||
|
|||
Lo podrías hacer mediante un query, aquí una función que hace los dos procesos al mismo tiempo:
Saludos... |
#5
|
||||
|
||||
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: 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 |
#6
|
|||
|
|||
Para que declaras A y le asignas un valor si no la usas en la concatenación?
|
#7
|
||||
|
||||
Buen Punto Maestro.
No se necesita. Saludos |
#8
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
InsertRecord con autonumericos | Caljim | Conexión con bases de datos | 5 | 04-06-2004 11:52:30 |
Autonumericos | NuncaMas | Tablas planas | 1 | 14-10-2003 20:15:37 |
Autonumericos en FireBird | jmselesan | Firebird e Interbase | 2 | 18-09-2003 16:48:02 |
Recuperar autonumericos despues de Borrar, Cancelar ,Ect. | IcebergDelphi | Varios | 1 | 14-05-2003 07:55:02 |
|