[GerTorresM]

Hola a tod@s

la situación que se me presenta en el día de hoy es la siguiente:

estoy creando mediante código una consulta, a la cual le deseo adicionar una parámetros para el caso todos son de tipo Integer

Código Delphi [-]
procedure TFGeneradorSUI.FormCreate(Sender: TObject);
Var pCodigoPeriodo, pCodigoAno, pCodigoReferencia : TParam;
begin
  self.QListadoSuscriptoresInformacionSUI:= crearConsulta;
  with QListadoSuscriptoresInformacionSUI do
    begin
      close;
      Params.AddParam(pCodigoPeriodo);
      Params.AddParam(pCodigoAno);
      Params.AddParam(pCodigoReferencia);
      sql.text:= ' select distinct codigoSuscriptor ' +
                 ' from HistoricoPagos ' +
                 ' where CodigoPeriodo =CodigoPeriodo ' +
                 ' and CodigoAno =CodigoAno ' +
                 ' and CodigoReferencia =CodigoReferencia';
    end;
end;

y poder ejecutar la consulta introduciendo los parámetros que ha de variar según el tipo de reporte solicitado

Código Delphi [-]
  with self.QListadoSuscriptoresInformacionSUI do
    begin
      paramByName('pCodigoPeriodo').AsInteger:= Self.CbPeriodo.ItemIndex + 1;
      paramByName('pCodigoAno').AsInteger:= self.UDAno.Position;
      case RGServicio.ItemIndex of
        0: paramByName('pCodigoReferencia').AsInteger:= 4;
        1: paramByName('pCodigoReferencia').AsInteger:= 6;
        2: paramByName('pCodigoReferencia').AsInteger:= 5;
      end;
      open;
      showmessage(IntToStr(recordCount));
    end;

ahora bien cuando ejecuto el código encuentro un error en la creación, el cual supongo que es por no haberlo creado con antelación, claro de hecho es lógico pero en el creador existen tres formas he hacerlo pero la verdad es que no se por cual realizar la creación.

si alguno de ustedes me puede dar una manito con el proceso de creación lo agradezco de antemano, teniendo en cuenta que uso BDE y delphi 6


gertorresm
Colombia