[GerTorresM]

Hola a todos

Estoy intentando crear un consulta que maneja parámetros, para el efecto empleo el siguiente codigo:

 QDisponibilidades:= Tquery.Create(self);
 with QDisponibilidades do
   begin
     DatabaseName:= 'DBMilenium';
     close;
      sql.Clear;
      sql.Add(' SELECT Disponibilidad.CodigoDisponibilidad,  Disponibilidad.FechaExpedicion, Disponibilidad.Objeto, Disponibilidad.Valor, AnteproyectoGastos.CodigoPresupuestal '+
              ' FROM (Recurso INNER JOIN (AnteproyectoGastos INNER JOIN GastosRecursos ON AnteproyectoGastos.CodigoPresupuestal = GastosRecursos.CodigoPresupuestal) ON Recurso.CodigoRecurso = GastosRecursos.CodigoRecurso) INNER JOIN '+
              ' (Disponibilidad INNER JOIN DisponibilidadRubro ON Disponibilidad.CodigoDisponibilidad = DisponibilidadRubro.CodigoDisponibilidad) ON (AnteproyectoGastos.CodigoPresupuestal = DisponibilidadRubro.CodigoPresupuestal) AND '+
              ' (Recurso.CodigoRecurso = DisponibilidadRubro.CodigoRecurso) '+
              ' WHERE AnteproyectoGastos.CodigoPresupuestal=:CodigoPresupuestal'
              ' order by Disponibilidad.CodigoDisponibilidad');
      try
        ParamaByName('CodigoPresupuestal').Value:= ECodigoPresupuestal.Text;
        Open;
       if RecordCount < 1 then
           MessageDlg('No existen dispobilidades con este rubro',MTInformation,[MbOk],0);
      Except
      end;
end;

Bien el caso en concreto es el siguiente:

Cuando ejecuto el código, me envia una error, por que no existe el párametro, entonces como puedo crear el parametro antes de ejecutar la consulta?


Gracías de Antemano

GertorresM
Colombia