A ver si alguien me puede echar un cable.
Ejecuto el código siguiente con un doble clik y cada x veces, no tiene una cadencia fija, se congelan los formularios uno encima del otro tardando más de un minuto en mostrar el resultado.
Código Delphi
[-]
procedure TF_Parcs.JvDBGrid1DblClick(Sender: TObject);
var cod:Integer;
begin
cod:= Camions_ParcID.Value;
if not Assigned(F_Camions) then
begin
Buscar_Camio.Close;
Buscar_Camio.UnPrepare;
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
Buscar_Camio.Prepare;
Buscar_Camio.Open;
F_Camions:=TF_Camions.Create(nil);
F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
end
else
begin
Buscar_Camio.Close;
Buscar_Camio.UnPrepare;
Buscar_Camio.SQL.Text:='SELECT ID FROM BOM0001 WHERE ID ='+ IntToStr(cod);
Buscar_Camio.Prepare;
Buscar_Camio.Open;
F_ModulDades.Camions.Locate('ID',Buscar_CamioID.Value,[]);
F_Camions.BringToFront;
end;
end;
Esto es en D6 y FB 1.5
Saludos
Josep