Ver Mensaje Individual
  #2  
Antiguo 09-07-2007
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Reputación: 10
marcoszorrilla Va por buen camino
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.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita