ActiveDelphi

[viniciusribeiro.pc]

Pessoal,

Eu desenhei o checkbox dentro da DBgrid, porém quero pegar as linhas que o checkbox estiverem TRUE e dar um update nos mesmos. Só que não está dando certo.
if cds_pedidosATIVO.AsBoolean = true then
begin
QRYLiberarPedidos.SQL.Clear;
cds_pedidos.Close;
QRYLiberarPedidos.SQL.Add(' update pedc ' +
' set pedc.posicao = ''L'' ' +
' where pedc.numped in ( '+
' select pedi.numped ' +
' from pedi, '+
' est, '+
' pedc ' +
' where pedi.codprod = est.codprod ' +
' and pedi.numped = pedc.numped ' +
' and pedc.codfilial = est.codfilial ' +
' and est.qtest > = pedi.qt '+
' and est.qtest <> 0 )'+
' and pedc.numped in (:NUMEROPEDIDO))');
QRYLiberarPedidos.Params.ParamByName('NUMEROPEDIDO').AsCurrency := dts_pedidos.DataSet.FieldByName('NUMPED').AsCurrency;
cds_pedidos.Active := true;
end;

Não está funcionando.. Esse código está dentro de Botão..

[cyberdisk]

se o campo cds_pedidosATIVO da sua tabela não estiver definido como Boolean ... esse seu código não vai funcionar

outra coisa: você deve usar um for para fazer a varredura dos registros mostrados no dbgrid para que você possa testar todos os campos cds_pedidosATIVO

abraço
_________________
O conhecimento abre muitas portas