Consulta con dos bbdd

[Casimiro Notevi]

Self.IBQuery2.FText 'select * from FACTURA where PROYECTO in (12,38,156)'#$D#$A

Pero ahí hay un montón de errores, si pones código que sea el que de verdad estás usando.

[Catublipas]

Lo tengo Casimiro,

fallo mío, estaba trabajando con el ejemplo que hemos puesto, y en la bbdd, no lo he transcrito con los campos exactamente y por eso no se mostraba.

Casimiro esto funciona de lujo, mucho más rápido que puenteando las bases de datos.

Eres un genio. Si hay alguna forma que pueda ayudaros, dímelo.

Me has resuelto un problemón.

Muchísimas gracias.

Un saludo!

[Casimiro Notevi]

Empezado por Catublipas

Si hay alguna forma que pueda ayudaros, dímelo.

Se me ocurren muchas cosas... pero ninguna legal

[Catublipas]

Una última questión, es que no consigo meter la consulta entera, parece ser un problema con las comillas, ¿se te ocurre donde puede estar?

El código es:

Código SQL [-]
Select Distinct
  FAC1.SERCOD,
  FAC1.DOCNUM,
  FAC1.CLICOD,
  FAC1.CLINOM,
  RECIBOS.RECESTADO,
  RECIBOS.RECIMPORTE,
  RECIBOS.RECFECVTO
From
  FAC1 Inner Join
  FAC2 On FAC1.DOCNUM = FAC2.DOCNUM And FAC1.SERCOD = FAC2.SERCOD Inner Join
  RECIBOS On (FAC2.DOCNUM = (00 || RECIBOS.RECFACNUM) Or FAC2.DOCNUM =
      (000 || RECIBOS.RECFACNUM) Or FAC2.DOCNUM = (0000 ||
      RECIBOS.RECFACNUM) Or FAC2.DOCNUM = (00000 || RECIBOS.RECFACNUM) Or FAC2.DOCNUM = RECIBOS.RECFACNUM) And
    FAC2.SERCOD = SUBSTR(RECIBOS.RECCOD, 1, 2) And FAC2.CLICOD = RECIBOS.CLICOD
Where
  (FAC1.OBRACOD In ('+ cProyectos +')) Or
  (SUBSTR(FAC2.CODIGOMAQUINA, 6, 9) In ('+ cProyectos +'))

Creo que el problema viene de los paréntesis y comillas.
En la consulta lo he metido sin salto de linea, pero es que es más cómodo para que lo puedas leer así.

Gracias!

[Casimiro Notevi]

Vuelvo a lo de antes, no soy adivino :P
¿Eso es en un store procedure?, ¿una llamada desde delphi?, ¿has visto la sentencia completa antes de ejecutarse?, ¿hay algún mensaje de aviso o error?, etc. etc. etc....