Tengo un formulario de pedido de una distribuidora y en un DBEdit el Id del pedido. Y quiero que al escribir un numero de idPedido y presionar Enter busque el detalle y lo muestre en la grilla de detalle:
procedure TPEDIDO.DBEdit1KeyPress(Sender: TObject; var Key: Char);
// al presionar enter
var
idpedido: integer;
begin
if Key = #13 then
begin
// edito el idpedido actual
idpedido := StrToInt(DBEdit1.Text);
DataModule1.cdspedidos.Close;
DataModule1.cdsdetpedido.Close;
DataModule1.cdspedidos.FetchParams;
DataModule1.cdsdetpedido.FetchParams;
DataModule1.cdscliactual.Close;
DataModule1.cdscliactual.FetchParams;
DataModule1.cdspedidos.Params.ParamByName('idp').Value := idpedido;
DataModule1.cdspedidos.Open;
DataModule1.cdscliactual.Params.ParamByName('idc').Value :=
DataModule1.cdspedidosIdCliente.AsInteger;
DataModule1.cdsdetpedido.Open;
DataModule1.cdsdetpedido.Params.ParamByName('idp').Value := idpedido;
DataModule1.cdscliactual.Open;
// busco el detalle
DataModule1.qdetp.Close;
DataModule1.qdetp.ParamByName('idp').AsInteger := StrToInt(DBEdit1.Text);
DataModule1.qdetp.ExecSQL();
DataModule1.qdetp.Open;
DataModule1.qdetp.First;
DataModule1.cdsdetpedido.Open;
end;
end;
cdsdetpedido contiene el detalle (es un TClientDataSet) y cdscliactual es el cliente asociado al pedido. A su vez qdetp es un query que selecciona el detalle a partir del id pedido:
select * from detallepedido left join productos on productos.IdProducto=detallepedido.IdProducto where detallepedido.IdPedido=:idp;
Funciona si hago Enter 2 veces! Es decir de que manera puedo borrar el contenido de la grilla y reescribirlo? A parte de mostrar el detalle necesito mostrar el total(cantidad * precio) por cada registro.