Ver Mensaje Individual
  #10  
Antiguo 12-12-2006
Avatar de AzidRain
[AzidRain] AzidRain is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Córdoba, Veracruz, México
Posts: 2.914
Reputación: 21
AzidRain Va camino a la fama
Si pusieras un poco más de código seria mas facil para todos...No se en que momento ejecutas las rutinas de tu código (después de postear?, antes del siguiente Edit?) Si estas insertando un nuevo registro entonces debes llamar a Insert en algun lado antes de volver a editar los datos con los TDBEdits
Código Delphi [-]

QuerySinNombre.Insert;  //Cmabiale a como se llame tu query.

// Todo lo de aqui abajo seguramente puede ir en un dialogo que se abra para pedir datos
Query1.Clear;   //Limpiamos por si habia SQL guardado ahi
Query1.SQL.Add('select max(idcliente)+1 as sig_cliente from clientes');
Query1.Open;
DBEdit1.text:=  Query1.FieldByName('sig_cliente').AsString;
Query1.Close; // Cerramos el query pues ya no lo necesitamos.

// Aqui cerrarias tu dialogo y dependiendo si fue OK o Cancel haces el Post

If  VentanaSinNombre.modalresult := mrOk Then
   QuerySinNombre.Post; 
else
  QuerySinNombre.Cancel;

Todo lo anterior es código genérico solo tienes que traslaparlo a l que estas haciendo pero te repito si nos dieras mas código sería mas fácil y no tendríamos que estar adivinando
__________________
AKA "El animalito" ||Cordobés a mucha honra||
Responder Con Cita