error en quick report

[julyus]

:o hola amigos tengo el siguiente problemilla tengo un reporte al cual le estoy enviado tres parametros empresa, sucursal y fecha pero al ejecutalo me sale el siguiente mensaje

ECLASSNOTFOUND WHIT MENSAGE "CLASS TDATASOURCE NOT FOUND"

pero me sale hasta en los reportes que ya se habian creado hace mas de un año:eek:

muchas gracias si me podeis ayudar :D

[marcoszorrilla]

Por qué no pones el código con el que llamas a ese informe, para ver si te podemos ayudar.

Un Saludo.

[julyus]

este es el codigo que tengo:
a ver si me podeis orientar
//-----------PREVIEW DEL REPOTE BALANCE GENERAL------------------
procedure TConsultaBalGeneralForm.AccprintExecute(Sender: TObject);
begin
ReportPrinterDialog1.PreviewReport(RUTA_REPORTES+'IB_BALANCE_GENERAL.QR2');
end;

procedure TConsultaBalGeneralForm.ReportPrinterDialog1BeforeOpenDataset(DataSet: TDataSet);
begin
if DataSet is TQuery then
begin
If TQuery(DataSet).ParamCount>0 Then
begin
TQuery(DataSet).Params.ParamByName('ID_EMPRESA').asstring :=DBLookupEMPRESA.KeyValue;
TQuery(DataSet).Params.ParamByName('ID_SUCURSAL').asstring :=DBLookupSucursal.KeyValue;
TQuery(DataSet).Params.parambyname('FECHA_CORTE').AsDATETIME :=INT(FechaF.Date);
TQuery(DataSet).Params.parambyname('FECHA_CORTE_ANT').AsDATETIME :=INT(FechaI.Date);
IF RadioClase.Checked THEN
TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='1';
IF RadioGrupo.Checked THEN
TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='2';
IF RadioCuenta.Checked THEN
TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='3';
IF RadioSubCuenta.Checked THEN
TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='4';
IF RadioAuxiliar.Checked THEN
TQuery(DataSet).Params.ParamByName('NIVEL_CUENTA').Asstring :='5';
end;
end;
end;

gracias........