Hola tengo un formulario de pedido de una distribuidora, el mismo tiene el cliente asociado, el detalle de productos del pedido, y el ID del pedido en un DBEDit. La idea inicial del formulario es que al crearlo (abrirlo desde el principal) aparezca el ultimo ID creado de pedido, osea el ultimo cargado.
Tengo en el evento OnCreate lo siguiente:
procedure TPEDIDO.FormCreate(Sender: TObject);
var
idpedido: Integer;
begin
Position := poScreenCenter;
// obtengo el pedido actual
if DBEdit1.Text <> '' then
begin
// hago la consulta con este id y obtengo el detalle
idpedido := StrToInt(DBEdit1.Text);
DataModule1.qdetpedido.Close;
DataModule1.qdetpedido.ParamByName('idp').AsInteger := idpedido;
DataModule1.qdetpedido.ExecSQL();
end;
// edito el dataset de cliente para mostrar el nombre en el dbedit
DataModule1.cdscp.Edit;
DataModule1.cdscpIdCliente.AsInteger :=
DataModule1.cdspedidosIdCliente.AsInteger;
DataModule1.cdsproductos.First;
// agrego los codigos de articulos a las columnas
while not DataModule1.cdsproductos.eof do
begin
PEDIDO.gpedidotemp.Columns[2].PickList.Add
(DataModule1.cdsproductosCodigo.AsString);
PEDIDO.gpedidotemp.Columns[3].PickList.Add
(DataModule1.cdslistasNombre.AsString);
DataModule1.cdsproductos.Next;
end;
end;
Como veran "qdetpedido" es un TSQLQuery (trabajo con MySQL) que tiene un parametro "idp" que es el idpedido para traer los datos del mismo. La consulta es la siguiente:
select * from detallepedido where detallepedido.Idpedido=:idp;
Tengo un DBEdit para mostrar el nombre del cliente asociado , lo que intento es posicionar el cursor del DataSet para que aparezca el nombre pero tampoco funciona.
Y por ultimo cargo en la grilla "gpedidotemp" los codigos alfanumericos en forma de combo, pero no aparecen los detalles.