Error en concatenacion de Sentencia SQL, Firebird 2.5

[Adrian Murua]

Estimados Amigos :

Tengo esta sentencia SQL, definida en una variable de delphi, que luego al intentar ejecutarla en un dataset, me da un error :

el Error es :

" Dynamic SQL error
SQL error code = -104
Token unknown - line 1, column 715
,

"
la Sentencia SQL es :

Código SQL [-]

 FNegSQL := 'SELECT  EMPRESAS.CUIT,  EMPRESAS.NOMBRE as EMPRESA,                  '+
            ' BANCOS.redes_id RED,                                                '+
            ' BANCOS.zonas_id ZONA,                                               '+
            ' BANCOS.SUCURSAL,                                                    '+
            ' BANCOS.NOMBRE as BANCO,                                             '+
            ' PRODUCTOS.NOMBRE AS PRODUCTO,                                       '+
            ' SITUACIONES.NOMBRE AS SITUACION,                                    '+
            ' ESTADOS.NOMBRE AS ESTADO,                                           '+
            ' NEGOCIOS.COTIZACION,                                                '+
            ' NEGOCIOS.DETALLE,                                                   '+
            ' (CONTACTOS.APELLIDO || '+', '+ ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
            ' (OPERADORES.APELLIDO || '+', '+ ' || OPERADORES.NOMBRE) AS OPERADOR,'+
            ' PRODUCTOS.COLOR AS PCOLOR,                                          '+
            ' SITUACIONES.COLOR AS SCOLOR,                                        '+
            ' ESTADOS.COLOR AS ECOLOR,                                            '+
            ' NEGOCIOS.ID AS NEGOCIOS_ID,                                         '+
            ' NEGOCIOS.bancos_id as BANCOS_ID,                                    '+
            ' NEGOCIOS.empresas_id AS EMPRESAS_ID,                                '+
            ' NEGOCIOS.productos_id PRODUCTOS_ID,                                 '+
            ' NEGOCIOS.situaciones_id AS SITUACIONES_ID,                          '+
            ' NEGOCIOS.estados_id AS ESTADOS_ID,                                  '+
            ' NEGOCIOS.contactos_id AS CONTACTOS_ID,                              '+
            ' NEGOCIOS.operadores_id AS OPERADORES_ID,                            '+
            ' NEGOCIOS.activo                                                     '+
            '                                                                     '+
            'FROM                                                                 '+
            ' NEGOCIOS                                                            '+
            ' INNER JOIN BANCOS ON (NEGOCIOS.BANCOS_ID = BANCOS.ID)               '+
            ' INNER JOIN EMPRESAS ON (NEGOCIOS.EMPRESAS_ID = EMPRESAS.ID)         '+
            ' INNER JOIN CONTACTOS ON (NEGOCIOS.CONTACTOS_ID = CONTACTOS.ID)      '+
            ' INNER JOIN OPERADORES ON (NEGOCIOS.OPERADORES_ID = OPERADORES.ID)   '+
            ' INNER JOIN PRODUCTOS ON (NEGOCIOS.PRODUCTOS_ID = PRODUCTOS.ID)      '+
            ' INNER JOIN SITUACIONES ON (NEGOCIOS.SITUACIONES_ID = SITUACIONES.ID)'+
            ' INNER JOIN ESTADOS ON (NEGOCIOS.ESTADOS_ID = ESTADOS.ID)';

Me imagino que el error se encuentra en la concatenación del apellido y el nombre del contacto.

La idea de la concatenacion es que se vea " Apellido, Nombre", a mi parecer la concatenacion esta bien echa, pero al parecer no es asi.

uso. Delphi 2010 y Firebird 2.5 , sobre Windows 7 y componentes IBX (Dataset).

Desde ya muchas gracias.

[Casimiro Notevi]

¿Has verificado desde ibexpert, por ejemplo, de que la sentencia se ejecuta bien?

[[Chris]]

Estoy casi seguro que es donde tú mencionas. Veo un error en la concanetación y es que estás utilizando unas Comas (,) que están de más. Eso es lo que te está indicando el error, que tienes un identificador desconocido, en este caso una coma. Tu concanetación debería de quedar así:

Código Delphi [-]
' (CONTACTOS.APELLIDO || ' + ''', ''' + ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || ' + ''', ''' + ' || OPERADORES.NOMBRE) AS OPERADOR,' +

Saludos,
Chris

[Casimiro Notevi]

Todavía no me he tomado el café, así que no tengo las neuronas en
funcionamiento, pero me parece que sobra todo eso, no?
O sea,:

' (CONTACTOS.APELLIDO || '+', '+ ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || '+', '+ ' || OPERADORES.NOMBRE) AS OPERADOR,'+

Puede quedarse así:

' (CONTACTOS.APELLIDO || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || OPERADORES.NOMBRE) AS OPERADOR,'+

[pacopenin]

Hola.

también podrías usar

Código Delphi [-]
' (CONTACTOS.APELLIDO || ' + QuotedStr(', ') + ' || CONTACTOS.NOMBRE) as CONTACTO,  '+

Está en SysUtils.

Saludos.

[Adrian Murua]

Empezado por Casimiro Notevi

¿Has verificado desde ibexpert, por ejemplo, de que la sentencia se ejecuta bien?

Gracias Casimiro Notevi por responder, si la ejecute a la sentencia en el ibexpert y funciona bien , da el error cuando la ejecuto desde el dataset de las ibx de delphi.

Empezado por Chris

Estoy casi seguro que es donde tú mencionas. Veo un error en la concanetación y es que estás utilizando unas Comas (,) que están de más. Eso es lo que te está indicando el error, que tienes un identificador desconocido, en este caso una coma. Tu concanetación debería de quedar así:

Código Delphi [-]
' (CONTACTOS.APELLIDO || ' + ''', ''' + ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || ' + ''', ''' + ' || OPERADORES.NOMBRE) AS OPERADOR,' +

Saludos,
Chris

Gracias Chris por tu respuesta, tenes razon me hice un lio con las comillas simples, he probado tu correccion y me ha funcionado bien.

Empezado por Casimiro Notevi

Todavía no me he tomado el café, así que no tengo las neuronas en
funcionamiento, pero me parece que sobra todo eso, no?
O sea,:

' (CONTACTOS.APELLIDO || '+', '+ ' || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || '+', '+ ' || OPERADORES.NOMBRE) AS OPERADOR,'+

Puede quedarse así:

' (CONTACTOS.APELLIDO || CONTACTOS.NOMBRE) as CONTACTO,  '+
' (OPERADORES.APELLIDO || OPERADORES.NOMBRE) AS OPERADOR,'+

Gracias de Nuevo Casimiro, como le dije a Chris, me hice un lio con las comillas simples, ya habia probado como tu dices, pero la idea es tener el apellido, separado con una coma, del nombre.

Empezado por pacopenin

Hola.

también podrías usar

Código Delphi [-]
' (CONTACTOS.APELLIDO || ' + QuotedStr(', ') + ' || CONTACTOS.NOMBRE) as CONTACTO,  '+

Está en SysUtils.

Saludos.

Gracias por tu respuesta pacopenin, he optado usar tu sugerencia ya que el codigo es mas simple que con las comillas.

Gracias a todos ustedes.

Ssludos.

[Casimiro Notevi]

¿Pero lo has solucionado?