begin
Modulo_datos.Ds_Tabla_existencias:= Modulo_datos.Ds_tabla_ventas;
Modulo_datos.Ds_Tabla_existencias.Close;
Modulo_datos.Ds_Tabla_existencias.SQL.Clear;
Modulo_datos.Ds_Tabla_existencias.SQL.Add('SELECT registro.CANTIDAD - ventas.CANTIDAD AS STOCK');
Modulo_datos.Ds_Tabla_existencias.SQL.Add('FROM registro, ventas');
Modulo_datos.Ds_Tabla_existencias.SQL.Add('WHERE registro.CODIGO_BARRAS = ventas.CODIGO_BARRAS');
Modulo_datos.Ds_Tabla_existencias.SQL.Add('AND ventas.CODIGO_BARRAS = :CODIGO_BARRAS');
Modulo_datos.Ds_Tabla_existencias.Open;
DBEdit1.DataSource:= Modulo_datos.Ds_Tabla_existencias;
DBEdit1.DataField := 'STOCK';
end;