Ver Mensaje Individual
  #4  
Antiguo 13-02-2013
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Reputación: 19
Angel.Matilla Va por buen camino
Perdón; tenéis razón:
Código SQL [-]
Query->Close(); Query->SQL->Add("SELECT * FROM Ls01 A, Auxiliar C 
WHERE A.CodPrv = :CodPrv AND A.Situacion IN (0, 1, 2) AND A.Junta = C.Valor AND C.Tipo = 2
ORDER BY NomJun, Apellidos, Nombre, Referencia");
Query->ParamByName("CodPrv")->AsInteger = nCodPrv;
Query->Open();
Así está puesto en el programa. CodPrv es un entero sin signo y está bien definido (en este caso el valor es 45 porque es el código de Toledo) y Query es un TIBQuery asociado a la base de datos Firebird, lógicamente.
Responder Con Cita