Foco en un campo del Grid

[jafera]

Buenas tardes a todos.


He estado mirando en el foro por si había un caso similar al mio y no he visto nada.
Tengo este código en el OnColExit del JVDBGrid

Código Delphi [-]
procedure TF_Vendes.JvDBUltimGrid1ColExit(Sender: TObject);
begin
        If F_ModulDades.LVentas.State in [dsEdit, dsInsert] then
                begin
                if JvDBUltimGrid1.SelectedField.Fieldname='UNIDADES' then
                begin
                        F_ModulDades.Stock_Unidades.Close;
                        F_ModulDades.Stock_Unidades.ParamByName('REFERENCIA').AsString:=F_ModulDades.LVentasREFERENCIA.Value  ;
                        F_ModulDades.Stock_Unidades.Open;
                        iF F_ModulDades.LVentasUNIDADES.Value > F_ModulDades.Stock_UnidadesSTOCK.Value then
                        begin
                                Showmessage ('Estas vendiendo más unidades que el stock, Sólo puedes vender '+IntToStr(F_ModulDades.Stock_UnidadesSTOCK.Value)+' unidades.');
                                F_ModulDades.LVentas.Edit;
                                F_ModulDades.LVentasUNIDADES.Clear;
                                F_ModulDades.LVentas.Post;
                                JvDBUltimGrid1.SelectedField:=F_ModulDades.LVentasUNIDADES;
                        end;
                end;
        end;
end;

Lo que me pasa es que la linea


JvDBUltimGrid1.SelectedField:=F_ModulDades.LVentasUNIDADES;


es como si no estuviera.


Tambien he probado con


JvDBUltimGrid1.SelectedIndex:=1;


Y tampoco consigo que al hacer el clear, el foco vuelva al campo Unidades para entrar la nueva cantidad.


Como siempre agradezo vuestro tiempo y si alguien tiene una ayudita, pues bien recibida.


Saludos


Josep

[Garada]

Una opción es cambiar la línea por un

Código Delphi [-]
Abort;

Eso pararía el resto de procesamiento del Grid.
Pero también puede que cancele otro código que sí te puede interesar.


La opción más correcta para mí es usar una variable privada para controlar la entrada y salida de las celdas.
Sería como esto:

Código Delphi [-]
  TF_Vendes = class(TForm)
...
  private
    FLastCol: Integer; // Declara la variable de control
...
...
procedure TF_Vendes.FormCreate(Sender: TObject);
begin
  FLastCol := -1; // Inicializar la variable
end;

procedure TF_Vendes.JvDBUltimGrid1ColExit(Sender: TObject);
begin
  If F_ModulDades.LVentas.State in dsEditModes then
   begin
    if JvDBUltimGrid1.SelectedField=F_ModulDades.LVentasUNIDADES then
    begin
      F_ModulDades.Stock_Unidades.Close;
      F_ModulDades.Stock_Unidades.ParamByName('REFERENCIA').AsString:=F_ModulDades.LVentasREFERENCIA.Value  ;
      F_ModulDades.Stock_Unidades.Open;
      iF F_ModulDades.LVentasUNIDADES.Value > F_ModulDades.Stock_UnidadesSTOCK.Value then
      begin
        Showmessage ('Estas vendiendo más unidades que el stock, Sólo puedes vender'+
                              IntToStr(F_ModulDades.Stock_UnidadesSTOCK.Value)+' unidades.');
        F_ModulDades.LVentas.Edit;
        F_ModulDades.LVentasUNIDADES.Clear;
        F_ModulDades.LVentas.Post;

       // JvDBUltimGrid1.SelectedField:=F_ModulDades.LVentasUNIDADES;
       // este es el cambio, asignar a la variable la columna a volver
       FLastCol := JvDBUltimGrid1.SelectedIndex;
      end;
    end;
  end;
end;

procedure TF_Vendes.JvDBUltimGrid1ColEnter(Sender: TObject);
begin
  // Al entrar en la celda, si la variable de control tiene un valor <> -1 volver a esa celda
  if FLastCol > -1 then
    JvDBUltimGrid1.SelectedIndex := FLastCol;

  // reiniciar la variable
  FLastCol := -1;
end;

[Delphi01]

Empezado por jafera

Buenas tardes a todos.


He estado mirando en el foro por si había un caso similar al mio y no he visto nada.
Tengo este código en el OnColExit del JVDBGrid

Código Delphi [-]
procedure TF_Vendes.JvDBUltimGrid1ColExit(Sender: TObject);
begin
        If F_ModulDades.LVentas.State in [dsEdit, dsInsert] then
                begin
                if JvDBUltimGrid1.SelectedField.Fieldname='UNIDADES' then
                begin
                        F_ModulDades.Stock_Unidades.Close;
                        F_ModulDades.Stock_Unidades.ParamByName('REFERENCIA').AsString:=F_ModulDades.LVentasREFERENCIA.Value  ;
                        F_ModulDades.Stock_Unidades.Open;
                        iF F_ModulDades.LVentasUNIDADES.Value > F_ModulDades.Stock_UnidadesSTOCK.Value then
                        begin
                                Showmessage ('Estas vendiendo más unidades que el stock, Sólo puedes vender '+IntToStr(F_ModulDades.Stock_UnidadesSTOCK.Value)+' unidades.');
                                F_ModulDades.LVentas.Edit;
                                F_ModulDades.LVentasUNIDADES.Clear;
                                F_ModulDades.LVentas.Post;
                                JvDBUltimGrid1.SelectedField:=F_ModulDades.LVentasUNIDADES;
                        end;
                end;
        end;
end;

Lo que me pasa es que la linea


JvDBUltimGrid1.SelectedField:=F_ModulDades.LVentasUNIDADES;


es como si no estuviera.


Tambien he probado con


JvDBUltimGrid1.SelectedIndex:=1;


Y tampoco consigo que al hacer el clear, el foco vuelva al campo Unidades para entrar la nueva cantidad.


Como siempre agradezo vuestro tiempo y si alguien tiene una ayudita, pues bien recibida.


Saludos


Josep

procedure TF_Vendes.JvDBUltimGrid1ColExit(Sender: TObject);
begin
  if F_ModulDades.LVentas.State in [dsEdit, dsInsert] then
  begin
    if JvDBUltimGrid1.SelectedField.FieldName = 'UNIDADES' then
    begin
      F_ModulDades.Stock_Unidades.Close;
      F_ModulDades.Stock_Unidades.ParamByName('REFERENCIA').AsString := F_ModulDades.LVentasREFERENCIA.Value;
      F_ModulDades.Stock_Unidades.Open;
      
      if F_ModulDades.LVentasUNIDADES.Value > F_ModulDades.Stock_UnidadesSTOCK.Value then
      begin
        ShowMessage('Estás vendiendo más unidades de las que hay en stock, solo puedes vender ' + IntToStr(F_ModulDades.Stock_UnidadesSTOCK.Value) + ' unidades.');
        
        F_ModulDades.LVentas.Edit;
        F_ModulDades.LVentasUNIDADES.Clear;
        F_ModulDades.LVentas.Post;
        
        JvDBUltimGrid1.SetFocus; // Establecer foco en JvDBUltimGrid1 (puedes intentar utilizar JvDBUltimGrid1.SetFocusCell(ACol, ARow) si es necesario)
        JvDBUltimGrid1.SelectedIndex := JvDBUltimGrid1.Columns.IndexOf('UNIDADES'); // Establecer el índice de columna seleccionada
        
        // Desactivar y reactivar el control JvDBUltimGrid1
        JvDBUltimGrid1.Enabled := False;
        JvDBUltimGrid1.Enabled := True;
      end;
    end;
  end;
end;

[jafera]

Muchas gracias Garada y Delphi01


Perdonad el retraso en responder, pues por motivos laborales hasta ahora no he podido hacer pruebas.


La solución de Garada ha funcionado a la perfección.
La de Delphi01 no ha funcionado pues me da error de que la propiedad IndexOf en la línea



JvDBUltimGrid1.Columns.IndexOf('UNIDADES');


dice no está declarada, he mirado propiedades de JvDBUltimGrid1.Columns. y no veo ninguna que se pueda aprovechar.
Posiblemente desconocimiento mio de todas las propiedades de este componente.


Saludos


Josep