error en quick report

[julyus]

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

muchas gracias si me podeis ayudar

[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------------------

Código Delphi [-]
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........