with tblPedidos,Sql do begin
Pedidos.Close;
Clear;
Add('select nesting.pedido,avg(nesting.aprov) mediapedidos ');
Add('from nesting,pedidos,clientes ');
Add('where nesting.pedido=pedidos.pedido and pedidos.codcliente=clientes.codigo ');
if EditPedido.Text<>'' then begin
Add(' and nesting.pedido=' +QuotedStr(EditPedido.Text));
end;
if EditCliente.Text<>'' then begin
Add(' and clientes.nom=' + QuotedStr(EditCliente.Text));
end;
if EditDesde.Text<>'' then begin
Add(' and pedidos.f_ped>=' + QuotedStr(ModificarFecha(EditDesde.Text)));
end;
if EditHasta.Text<>'' then begin
Add(' and pedidos.f_ped<=' + QuotedStr(ModificarFecha(EditHasta.Text)));
end;
Add('group by nesting.pedido ');
Add('order by pedidos.f_ped');
AbreDbf([Pedidos]);
TFloatField(tblPedidos.Fields[1]).DisplayFormat := '0.00';
end;