[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