Cita:
|
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