Algo curioso al salir de un edit... me lo graba

[JoanKa]

Empezado por ContraVeneno

no se exactamente que esta pasando... lo que si te puedo decir, es que es muy mala idea que estes guardando datos en el evento OnActivate de un formulario, ya que este se activará cada vez que este formulario aparezca en la pantalla. es decir, muestras el formulario y se ejectua el código; por alguna razón cambias de venta y luego regresas otra vez al formulario y se vuelve a ejecutar el código. Tal vez sea esto lo que te esta pasando.

Entonces que me se sugieres para que no me sucede este problema.

Gracias y SaLudos

[ContraVeneno]

Empezado por JoanKa

Entonces que me se sugieres para que no me sucede este problema.

Gracias y SaLudos

Pense que era bastante obvio . Cambia de evento.

[JoanKa]

Empezado por ContraVeneno

Pense que era bastante obvio . Cambia de evento.

He cambiado de evento y nada , lo he puesto en el evento Form Show del Mantenimiento de clientes como lo muestro a continuacion:

procedure TFRM_Mantenimiento_Clientes.FormShow(Sender: TObject);
var
x:string;
begin
x:=FRM_Busqueda_Clientes.var_alta_factura_cliente;
if x='Nuevo_Cliente_Factura' then
begin
PGC_Clientes.ActivePage:=TBS_Datos;
PAN_Datos.Enabled:=True;
TBL_CLIENTES.Active:=True;
TBL_CLIENTES.Insert;
EDT_Alta.Text:=FormatDateTime('dd/mm/yyyy',now);
QRY_CLIENTES.Active:=True;
QRY_CLIENTES.SQL.Text:='SELECT MAX(CLI_CODIGO) FROM T_CLIENTES';
QRY_CLIENTES.Open;
TXT_CODIGO.Text:= IntToStr(QRY_CLIENTES.Fields[0].AsInteger+1);
EDT_Codigo.Text:='CLI_'+ IntToStr(QRY_CLIENTES.Fields[0].AsInteger+1);
EDT_Nif.SetFocus;
end;
end;

Pero no me hace nada, me podrias decir por favor en que evento lo puedo poner..

gracias

[ContraVeneno]

Lo que yo haría sería poner un botón "Aceptar" y un botón "Cancelar" para que el usuario confirmara o cancelara la acción que estas queriendo realizar. Y el guardar lo haría en el evento click del botón "Aceptar".

Fuera de eso no puedo opinar más ya que no conozco tu sistema ni su funcionamiento lógico.