Consulta con el HAVING por parámetro

[rubio]

Oscarac, lo probé y me el mismo error.

Gracias.

[[oscarac]]

da un ejemplo de como lo estas mandando en este momento... que valor le estas dando al parametro

[rubio]

Oscarac, te decia que el error me lo da construyendo el procedimiento almacenado en el Enterprise Manager de SQL, cuando le doy comprobar la sintaxis, me sale el error. en la respuesta que le ofrecí a orioncomputer le decía que el parámetro puede tomar diferentes valores ya que es construido de acuerdo a la cantidad de OT que seleccione el usuario, puede ser así:

1.- (dbo.OT.OT = 252011)
2.- (dbo.OT.OT = 252011) OR (dbo.OT.OT = 255011) OR (dbo.OT.OT = 266057) ....

no se si me entiendes.

Primero creo el parámetro:

Código Delphi [-] for I:=0 to (clbOT.Items.Count -1) do begin bSi:=True; if clbOT.Checked[i]=True then begin sOT:=MidStr(clbOT.Items[i],1,(Pos(' ',clbOT.Items[i])-1)); if bPrimera=True then begin sHav:='(((OT.OT)=' + sOT; bPrimera:=False; bSegunda:=True; end else if bSegunda=True then sHav:=sHav + ' OR (OT.OT)=' + sOT; end; end; if bSi=True then sHav:=sHav + '))'; end;


Para llamarlo sería así:

Crear un ADOCommand.

Código Delphi [-]
ADOCommand.CommandType:=cmdStoredProc;   ADOCommand.Connection:=La conexión del sistema;   ADOCommand.CommandText:=Nombre del Procedimiento;   ADOCommand.Parameters.Refresh;   ADOCommand.Parameters.ParamByName('@SHaving').Value:=sHav;

Entiendes lo que quiero hacer.

Gracias.

[[oscarac]]

y estas seguro que la cedana resultante esta bien?
chequea que valor tiene la cadena

[rubio]

Oscarac, amigo no me entiendes, yo no llego a terminar el procemiento almacenado, ya que cuando lo voy a probar la sintaxis me da el error y no meja salvarlo de esta forma:

Código SQL [-]
CREATE PROCEDURE dbo.Factura1  @SHaving CHAR(256)  AS  SELECT     dbo.OT.OT, SUM(dbo.OT.ImpCUC) AS ImpCUC, SUM(dbo.OT.ImpMN) AS ImpMN, dbo.OT.IdCentral, dbo.Entidades.Descripcion, dbo.Motores.Marca,                        dbo.Motores.Modelo, dbo.Horas.Horas, dbo.Centrales.Nombre, dbo.OTObservaciones.Observaciones, dbo.OT.Bateria, dbo.OT.Motor FROM         dbo.OT LEFT OUTER JOIN                       dbo.Entidades ON dbo.OT.IdEntidad = dbo.Entidades.IdEntidad LEFT OUTER JOIN                       dbo.Motores ON dbo.OT.IdMotor = dbo.Motores.IdMotor LEFT OUTER JOIN                       dbo.Horas ON dbo.OT.IdHoras = dbo.Horas.IdHoras LEFT OUTER JOIN                       dbo.Centrales ON dbo.OT.IdCentral = dbo.Centrales.IdCentral LEFT OUTER JOIN                       dbo.OTObservaciones ON dbo.OT.OT = dbo.OTObservaciones.OT GROUP BY dbo.OT.OT, dbo.OT.IdCentral, dbo.Entidades.Descripcion, dbo.Motores.Marca, dbo.Motores.Modelo, dbo.Horas.Horas, dbo.Centrales.Nombre,                        dbo.OTObservaciones.Observaciones, dbo.OT.Bateria, dbo.OT.Motor HAVING      (SHaving) GO

Que pasa, eso está programado para ser usado con base de datos en ACCESS y yo lo estoy pasando a SQL te pongo la sintaxis para que veas como está ahora,:

Código Delphi [-]
  MDIPrincipal.UsoSQL('SELECT OT.OT, Sum(OT.ImpCUC) AS ImpCUC,'
    + ' Sum(OT.ImpMN) AS ImpMN, OT.IdCentral, Entidades.Descripcion,'
    + ' Motores.Marca, Motores.Modelo, Horas.Horas, Centrales.Nombre,'
    + ' OTObservaciones.Observaciones, OT.Bateria, OT.Motor'
    + ' FROM ((((OT LEFT JOIN Entidades ON OT.IdEntidad = Entidades.IdEntidad)'
    + ' LEFT JOIN Motores ON OT.IdMotor = Motores.IdMotor)'
    + ' LEFT JOIN Horas ON OT.IdHoras = Horas.IdHoras)'
    + ' LEFT JOIN Centrales ON OT.IdCentral = Centrales.IdCentral)'
    + ' LEFT JOIN OTObservaciones ON OT.OT = OTObservaciones.OT'
    + ' GROUP BY OT.OT, OT.IdCentral, Entidades.Descripcion, Motores.Marca,'
    + ' Motores.Modelo, Horas.Horas, Centrales.Nombre,'
    + ' OTObservaciones.Observaciones, OT.Bateria, OT.Motor'
    + ' HAVING ' + sHav, frmFacturas.ADOQTMP);

UsoSQL es una función:

Código Delphi [-]
procedure TMDIPrincipal.UsoSQL(SQL: String; QR: TObject);
begin
  (QR As TADOQuery).Connection:= mdiprincipal.ACPrincipal;
  (QR As TADOQuery).Active:=False;
  (QR As TADOQuery).SQL.Clear;
  (QR As TADOQuery).SQL.Add(SQL);
  (QR As TADOQuery).Active:=True;
end;

Te repito donde me da el error es creando el procedimiento en el enterprise manager, yo me pregunto si no faltará
algo para concatenar la palabra HAVING con el parámetro que se le pasa al procedimiento?

Gracias.

[[oscarac]]

yo creo que TU no entendiste lo que te pregunte...

quiero el valor de la cadena sHAV

[rubio]

El valor de la cadena es el siguiente:

((dbo.OT.OT=292011) OR (dbo.OT.OT=302011) OR (dbo.OT.OT=322011))