La Web del Programador: Comunidad de Programadores
 
    Pregunta:  63036 - PASAR DATOS DE UN DBGRID A OTRO BASE DE DATOS FIREBIRD
Autor:  jose perez
buenas tardes mi problema es que quiero hacer uno modulo de ventas en donde tengo dos dbgrid, en el primero ya hice la consulta y me esta funcionando bien es decir coloco en un edit el producto a vender y en el primer dbgrid me salen en articulo el hecho es que no se como hacer para que cuando yo seleccione el producto en esta dbgrid pase al segungo. utilizo delphi 6 + firebird 1.5 tengo el siguiente codigo en el edit1 para que me bustre la busqueda en el dbgird

procedure TVenta.Edit1Change(Sender: TObject);
VAR A: string;
begin
A := '%'+edit1.text+'%';
Tablas.adicionar2.Database:=Tablas.BaseDatos;
Tablas.adicionar2.Transaction:=Tablas.Transaccion;
DataS1.DataSet:= Tablas.adicionar2;
dbgrid1.DataSource:=DataS1;
tablas.adicionar2.sql.text:='select * from productos where nombre LIKE '''+A+'''';
Tablas.adicionar2.Active:= true;
edit1.SetFocus;
end;

  Respuesta:  Luis Felipe garcía Gutiérrez
En casos en los que los desarrollos apuntan a efectuar ventas se debe utilizar el concepto de Cesto (carrito de supermercado), es un estado del artículo vendido o una tabla en la que se agrupan los artículos a vender, mientras que el cliente termina de seleccionar los artículos que componen su compra; una vez se confirma la venta el estado debe cambiar a vendido o vaciar nuevamente la cesta y afectar los inventarios correspondientes; entonces, es con éstos estados o tablas (cesto) que se deben efectuar las consultas que llenan los BDGrid.