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;