Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   autonumerico con letra con tabla paradox (https://www.clubdelphi.com/foros/showthread.php?t=45622)

Indira 09-07-2007 20:08:51

autonumerico con letra con tabla paradox
 
Hola a todos soy nueva en este foro
por favor me pueden ayudar con lo siguiente
Estoy trabajando en Delphi7 y con tabla paradox....
tengo en un form1 un dbgrid y al presionar añadir aparece otro form2 y tengo
4 Edit En el cual ingreso(Codigo-autonumerico(Edit1),Apellido(Edit2),Nombre(Edit3),Direccion(Edit4)), lo que quiero es que al abrir el form2 en el edit1 me aparesza 'E001' y asi sucesivamente porque es autonumerico... y al poner aceptar se me agregue al dbgrid del form1.
por favor me pueden ayudar porque soy nueva en esto.... :)

marcoszorrilla 09-07-2007 21:15:56

E001
La manera de solucionarlo es simple:

En una tabla auxilar guarda el último número generado por ejemplo el:1

En el event OnNewRecord del TTable haces:

Código Delphi [-]
Table1Numero.AsString:='E'+FormatFloat('000',TableConfigura.Value +1);

{En este momento en la tabla configura el último número sigue siendo el 1, si se consolida la grabación,
 ejemplo en el evento BeforePost del Ttable correspondiente.}

Tableconfigura.Edit;
Tableconfigura.Value:=Tableconfigura.Value +1;
Tableconfigura.Post;

Un Saludo.

Indira 10-07-2007 19:38:39

el codigo que dices lo escribo en la TTable del form1, o creo otra TTable en el form2.... :confused:
y el TableNumero que esta en el codigo delphi se refiere al codigo autonumerico de mi tabla, y el Tableconfigura es el el nombre de mi tabla... por fa me puedes explicar un poquito eso porque estoy confundida....

De antemano gracias....:)

marcoszorrilla 12-07-2007 15:37:47

Con que lo hagas en el Ttable que ya tienes es suficiente.

En cuanto a Tableconfigura, sería una tabla que por ejemplo puede llamarse configura.Db con un campo numérico, en donde vamos guardando el último número utilizado, por eso empezamos al agregar un nuevo registro sumándo uno a este contador que tenemos guardado en dicha tabla.

Si el campo numérico lo llamamos Contador, entonces cada vez que grabemos una nueva factura haremos

Código Delphi [-]
Configura.Edit;
ConfiguraContador.Value:=ConfiguraContador.Value + 1;
Configura.Post;

Un Saludo.


La franja horaria es GMT +2. Ahora son las 05:09:56.

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