Consulta con 3 inner join da error que falta operador

[Petolansa]

Casimiro, en español si, asi aparecia el error.
Olbeup gracias, la verdad que si, la vez que utilize sql fue con sql server y no utiliza parentesis. AHora ya lo se y es indispensable para tenerlo en cuent!a!
Ahora bien, La consulta que estoy realizando se encuentra dentro dequery dentro de un qreport, ya que es para que muestre la ficha personal del agente. Puedo agregar los campos en el query, lo puedo activar o desactivar si errores.


EL formulario del que lo llamo tiene el siguiente codigo.

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
begin
 try
    if qrfichapersonal.Query1.Active  then close;
    qrfichapersonal:=tqrfichapersonal.Create(self);
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := strtofloat(dbtext1.Caption);
//el parametro nrodni lo declaro de tipo float 
//el dbtext1 es un dbtext que se muestra en el form2 simple que tiene el campo de dni del agente,  que son dbedits asociados a la tabla personal conectados a un dbnavigator para mostrar los agentes.
    quickreport10.Query1.Open;
    quickreport10.PreviewModal;
finally
    quickreport10.Free;
    end;

En el qrfichapersonal tengo dbtext asociados al query1 que es el que realiza la consulta que hago con el select que armamos entre todos

Código SQL [-]
SELECT
     P.PNROLEGAJO
    ,P.PAPELLIDO
    ,P.PNOMBRE
    ,P.PFINGRESO
    ,P.PTELFIJO
    ,P.PTELCELULAR
    ,P.PGUARDIA
    ,P.PESTADO
    ,P.PFECHANAC
    ,P.POBSERVA
    ,P.PCODLUGAR
    ,H.HTURNO
    ,H.HDESCTURNO
    ,L.LNOMBRELUGAR
    ,L.LDESCLUGAR
    ,A.ATIPOACTIVIDAD
    ,A.ADESCACTIVIDAD
  FROM ((PERSONAL AS P
    INNER JOIN HORARIO AS H
      ON P.PCODHORARIO = H.HCODHORARIO)
    INNER JOIN LUGAR AS L
      ON P.PCODLUGAR = L.LCODLUGAR)
    INNER JOIN ACTIVIDAD AS A
      ON P.PCODACTIVIDAD = A.ACODACTIVIDAD
  WHERE P.PDNI=:NRODNI

EL problema es que no muestran nada los campos, que se puede estar escapando?

Gracias gente.

[MartinS]

Antes que nada

Código Delphi [-]
    // Cambia
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := strtofloat(dbtext1.Caption);
    // por
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := strtoInt(dbtext1.Caption); // Creo que decias que NroDNI era entero

Deberias comprobar si la consulta arroja algun resultado en algun DbGrid o similar para ver si realmente hace lo que queres que haga. Otro punto importante es darle al QReport el Dataset, en tu caso Query1.
Algo mas sencillo a mi entender es que en vez de dar como parametro el contenido de una etiqueta deberias darle el valor del campo que estas buscando por ejemplo:

Código Delphi [-]
     // Suponiendo que Query2 es de una consulta de los clientes/Personal/Etc.-
    qrfichapersonal.Query1.Params.ParamByName('nrodni').Value := Query2.FieldByName('NroDoc').AsInteger;

[Petolansa]

Gracias a todos gente, ahi logre imprimir el qreport con la consulta. El codigo me quedo asi, reemplaze asignarle el text de un dbedit por el valor del campo de una tabla. Tambien cabie el tipo de variable de float a integer.

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
begin
try
   if quickreport10.Query1.Active  then close;
    quickreport10:=tquickreport10.Create(self);
    quickreport10.Query1.Params.ParamByName('nrodni').Value := form2.Table1.FieldByName('pdni').Value ;
    strtoint(dbedit6.Text);
    quickreport10.Query1.Open;
    quickreport10.PreviewModal;
finally
    quickreport10.Free;
    end;
end;
end.

SAludos!