Error extrañisimo en un Tquery
 

Hola a todos:

Tengo el siguiente código de SQL en un Tquery:

Código Delphi [-]
With Qry_DatosDoc do
Begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT Doc_Fecha_Ingreso,');
  SQL.Add('Doc_Porcen_Descuento,');
  SQL.Add('Doc_Total_Descuento,');
  SQL.Add('Doc_Total,');
  SQL.Add('Vend_Numero,');
  SQL.Add('Flag_Cambio ');
  SQL.Add('FROM PREVENTA ');
  SQL.Add('Where Nro_Atencion = :Nro_Atencion');
  ParamByName('Nro_Atencion').AsInteger :=
  StrtoInt(vNro_Atencion.text);
  //Open;
  Active := True;
  ShowMessage(IntToStr(Qry_DatosDoc.FieldCount));
  //Exit;
  ShowMessage(IntToStr(Qry_DatosDoc.ParamByName('Vend_Numero').AsInteger));

Pero me dice que no existe el parametro Vend_numero, pero sin embargo esa consulta la estoy mostrando también en un DbGrid y aparecen los datos y además la columna se llama de ese modo. :eek:

Espero sus ayudas amigos, gracias

Hasta Luego -

Buenas!

A lo mejor se está liando un poco porque el nombre del parámetro es igual al nombre del campo. Prueba esto:

Código Delphi [-]
 
SQL.Add('Where Nro_Atencion = :param1');
  ParamByName('param1').AsInteger :=
  StrtoInt(vNro_Atencion.text);

Un saludo

Edu

Yo lo que creo es que quien se ha liado ha sido el amigo lucasarts_18, Vend_Numero no es un parámetro en esa Query, sino un campo, si quieres visualizar su contenido deberías hacer lo siguiente:

Código Delphi [-]
ShowMessage(IntToStr(Qry_DatosDoc.FieldByName('Vend_Numero').AsInteger));

Espero te sirva.

Saludos

Amigo bicho, al parecer tienes razón, no tengo delphi en estos momentos para probarlo, cuando llegué a caso veo si es así, nos vemos y gracias..

Hola:

Solucionado, había que utilizar FieldByName,¿ cómo me pudo pasar desapercibido este error de lógica? :mad: .

Hasta Luego y Gracias..

Tranquilo a uno que te escribe tambien le pasaron cosas así :D

Saludos