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