darkamerico
30-01-2013, 23:49:00
Saludos a todos mis estimados amigos, estoy haciendo una aplicacion donde tengo 1 DBGrid llamado gridDetCompras el cual toma su informacion de la siguiente consulta:
SELECT
alm_producto.descripcion,
alm_detallecompra.cantidad,
alm_umedida.umedida,
alm_detallecompra.precio,
(alm_detallecompra.cantidad*alm_detallecompra.precio) as subtotal
FROM
alm_detallecompra
INNER JOIN alm_producto ON alm_detallecompra.idproducto_fk = alm_producto.idproducto
INNER JOIN alm_umedida ON alm_detallecompra.idumed_fk = alm_umedida.id_umedida
WHERE
alm_detallecompra.idcompra_fk = :IDCompraX
Ahora bien, esta grilla se llena al hacer click en otra grilla que seria su maestra, el evento click de dicha grilla maestra lo coloco a continuacion;
procedure TForm1.gridComprasCellClick(Column: TColumn);
var
idCompra:integer;
begin
idCompra:=gridCompras.DataSource.DataSet.Fields[0].AsInteger;
q_DetCompraX.Close;
q_DetCompraX.Params[0].AsInteger:=idCompra;
//q_DetCompraX.FieldByName('descripcion').Size:=80;
q_DetCompraX.Open;
end;
La linea comentada del codigo anterior es la que me arroja error, al parecer los campos aun no se conocen porque la consulta debe ejecutarse primero, sin embargo tampoco me acepta esa linea cuando el Dataset esta abierto... en realidad no funciona ni lo uno ni lo otro, alguien podria darme una mano con este tema?
Muchas Gracias
Americo:confused:
SELECT
alm_producto.descripcion,
alm_detallecompra.cantidad,
alm_umedida.umedida,
alm_detallecompra.precio,
(alm_detallecompra.cantidad*alm_detallecompra.precio) as subtotal
FROM
alm_detallecompra
INNER JOIN alm_producto ON alm_detallecompra.idproducto_fk = alm_producto.idproducto
INNER JOIN alm_umedida ON alm_detallecompra.idumed_fk = alm_umedida.id_umedida
WHERE
alm_detallecompra.idcompra_fk = :IDCompraX
Ahora bien, esta grilla se llena al hacer click en otra grilla que seria su maestra, el evento click de dicha grilla maestra lo coloco a continuacion;
procedure TForm1.gridComprasCellClick(Column: TColumn);
var
idCompra:integer;
begin
idCompra:=gridCompras.DataSource.DataSet.Fields[0].AsInteger;
q_DetCompraX.Close;
q_DetCompraX.Params[0].AsInteger:=idCompra;
//q_DetCompraX.FieldByName('descripcion').Size:=80;
q_DetCompraX.Open;
end;
La linea comentada del codigo anterior es la que me arroja error, al parecer los campos aun no se conocen porque la consulta debe ejecutarse primero, sin embargo tampoco me acepta esa linea cuando el Dataset esta abierto... en realidad no funciona ni lo uno ni lo otro, alguien podria darme una mano con este tema?
Muchas Gracias
Americo:confused: