Ver Mensaje Individual
  #9  
Antiguo 30-07-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 25
Caral Va por buen camino
Hola
Hoy he terminado de resolver este problema, os cuento.
Queria que me salieran los datos parciales, pero, el problema era que dependia del dato que suministraba el query que esta en el reporte, osea, como sacar ese dato si cuando lo captura, lo muestra inmediatamente?.
Bien, lo solucione, después de romperme la cabeza, usando el evento AfterScroll del query.
Ahi es donde hago el codigo (en un query independiente) para que me muestre el dato.
Osea, el reporte ahora tiene dos query y en el unit del reporte coloco el codigo que en realidad es sencillo.
Código Delphi [-]
procedure TQRProduccionTerminadasPiezas.ADOQuery1AfterScroll(
  DataSet: TDataSet);
begin
   AQTemp.Close;
   AQTemp.SQL.Text:= 'select count(*) from OrdenProdItem Where OrdenProdItem.CodParte = :cod'+
           ' and OrdenProdItem.FinProd >= :f1 AND OrdenProdItem.FinProd <= :f2 +1';
   AQTemp.Params[0].Value:= ADOQuery1CODPARTE.AsString;
   AQTemp.Open;
end;

El codigo de la pieza lo saca del adoquery1 y las fechas las saca del form que lo llama.

Bueno, lo importante:
Gracias a todos por vuestros consejos.
Tal vez a alguien mas le suceda algo así y sabrá como resolverlo.
Saludos
__________________
Siempre Novato
Responder Con Cita