Firebird 1.5 Soporta Case When else end?

[IcebergDelphi]

Empezado por xander

Todas las condiciones de Firebird deben ir entre parentesis...

Código SQL [-]
Select  Sucursales.IdSucursal as Org_ID,Acreditados.IdAcreditado as Acred_Id, Acreditados.rfc,
        Acreditados.CredecialElector as IFE, Acreditados.ApellidoPaterno as Primer_Ape,Acreditados.ApellidoMaterno as Segundo_Ape,
        Acreditados.Nombres as Nombre,Acreditados.Fecha_Nacimiento as Fecha_Nac,Acreditados.A_Estados as Edo_Nac,Acreditados.ASexo as Sexo,
        Acreditados.Telefono as Tel, Acreditados.Fax,Acreditados.Correo_Elec,
        Origen.Origen as Nacionalidad_Origen,EstadoCivil.CodigoEdoC as Cve_Edo_Civil,Acreditados.Fecha_Nacimiento as Fecha_Nac_txt,
        Acreditados.A_Estados as Edo_Res,Acreditados.A_Municipios as Municipio,Acreditados.A_Ejidos as Localidad,
        Acreditados.Direccion,Acreditados.A_Colonia as Colonia,Acreditados.Cp,Pagos.P_Producto as Metodologia,
        Pagos.P_Grupo as Nom_Grupo ,Acreditados.Estudios,Pagos.P_IdGiro as Actividad,Pagos.Ingreso_Semanal,
        Sucursales.IdSucursal,Sucursales.Sucursal ,Giros.Giro ,Pagos.MontoCredito as cantidad_beneficio,
        Pagos.FechaAltaCredito as fecha_beneficio ,Pagos.FechaUltimoPago as fecha_vencimiento,
        Pagos.P_InteresEmpresa as Tasa,Producto.P_PeriodoDescripcion as Frecuencia_Pagos,
       
case  
          when ( Producto.P_PeriodoDescripcion = 'SEMANAL') THEN 'S'  end as Frecuencia_Pagos,

Producto.Producto as Tipo_credito,
        Pagos.P_NombreGrupoNoFormal as Bloque,Pagos.Renovacion as Ciclo
From    Sucursales,Acreditados,Pagos,Origen,EstadoCivil,Giros ,Producto
Where   Pagos.IdSucursal=Sucursales.IdSucursal and Pagos.P_IdAcreditado=Acreditados.IdAcreditado
        and Acreditados.A_IdOrigen=Origen.IdOrigen and Acreditados.A_IdEdoCivil=EstadoCivil.IdEstadoCivil
        and Pagos.P_IdGiro=Giros.IdGiros  and Pagos.Idperiodo=Producto.P_IdPeriodo

Revisa las Release Notes de Firebird y ahi te daras cuenta de las sintaxis que se pueden usar con esta y otras instrucciones

Hola Xabder gracias por tu respuesta de hecho anteriormente lo intente asi , ya lo he intentado de varias formas ahora el error que me da es el siguiente:
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 14, char 11.
when.

[[RONPABLO]]

Ya probo haciendo este query solamente???

Código SQL [-]
Select       
   case Producto.P_PeriodoDescripcion            
   when 'SEMANAL' THEN 'S' end as Frecuencia_Pagos 
From    Producto

[IcebergDelphi]

Exactemente RonPablo ya probe asi, no te imaginaras de cuantas maneras he intentado hacer esa consulta y sismpre me manda los mismos errores con el When o con el Punto.


Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 14, char 11.
when.

o Tambien

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 13, char 15.
.




Saludos y gracias.

[[RONPABLO]]

Pero cual es el msn exacto que sale cuando manda la instrucción que acabo de enviar??? porque este apenas tiene si mucho 4 lineas y en los que pones van 13 y 14... aquí es solo probar sin las demás tablas... solo para ver que pasa

[IcebergDelphi]

Empezado por RONPABLO

Pero cual es el msn exacto que sale cuando manda la instrucción que acabo de enviar??? porque este apenas tiene si mucho 4 lineas y en los que pones van 13 y 14... aquí es solo probar sin las demás tablas... solo para ver que pasa

Obien sale el error del When o del Punto como este:

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 14, char 11.
when.

o Tambien

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 13, char 15.
.

Y gracias por tu respuesta, de hecho ya probe con solo un campo y nada , no se que podria ser.

Pero aun no he rresuelto este problema.

[IcebergDelphi]

Hola amigos, como sismpre me termino resolviendo y respondiendo a mi mismo, ya me esta funcionando sin ningun error el siguiente Codigo:

Código SQL [-]
select 
    "Sucursales"."IdSucursal" org_id,
    "Acreditados"."IdAcreditado" acred_id,
    "Acreditados".rfc,
    "Acreditados"."CredecialElector" ife,
    "Acreditados"."ApellidoPaterno" primer_ape,
    "Acreditados"."ApellidoMaterno" segundo_ape,
    "Acreditados"."Nombres" nombre,
    "Acreditados"."Fecha_Nacimiento" fecha_nac,
    "Acreditados"."A_Estados" edo_nac,
    "Acreditados"."ASexo" sexo,
    "Acreditados"."Telefono" tel,
    "Acreditados"."Fax",
    "Acreditados"."Correo_Elec",
    "Origen"."Origen" nacionalidad_origen,
    "EstadoCivil"."CodigoEdoC" cve_edo_civil,
    "Acreditados"."Fecha_Nacimiento" fecha_nac_txt,
    "Acreditados"."A_Estados" edo_res,
    "Acreditados"."A_Municipios" municipio,
    "Acreditados"."A_Ejidos" localidad,
    "Acreditados"."Direccion",
    "Acreditados"."A_Colonia" colonia,
    "Acreditados"."Cp",
    "Pagos"."P_Producto" metodologia,
    "Pagos"."P_Grupo" nom_grupo,
    "Acreditados"."Estudios",
    "Pagos"."P_IdGiro" actividad,
    "Pagos"."Ingreso_Semanal",
    "Sucursales"."IdSucursal",
    "Sucursales"."Sucursal",
    "Giros"."Giro",
    "Pagos"."MontoCredito" cantidad_beneficio,
    "Pagos"."FechaAltaCredito" fecha_beneficio,
    "Pagos"."FechaUltimoPago" fecha_vencimiento,
    "Pagos"."P_InteresEmpresa" tasa,
    "Producto"."Producto" tipo_credito,
    "Pagos"."P_NombreGrupoNoFormal" bloque,
    "Pagos"."Renovacion" ciclo ,
    CASE
        when "Producto"."P_PeriodoDescripcion"= 'SEMANAL' THEN 'S' end as    Tipo_Periodo

 from "EstadoCivil"
   inner join "Acreditados" on ("EstadoCivil"."IdEstadoCivil" = "Acreditados"."A_IdEdoCivil")
   inner join "Pagos" on ("Acreditados"."IdAcreditado" = "Pagos"."P_IdAcreditado")
   inner join "Producto" on ("Pagos"."P_IdProducto" = "Producto"."IdProducto")
   inner join "Sucursales" on ("Pagos"."IdSucursal" = "Sucursales"."IdSucursal")
   inner join "Giros" on ("Pagos"."P_IdGiro" = "Giros"."IdGiros")
   inner join "Origen" on ("Acreditados"."A_IdOrigen" = "Origen"."IdOrigen")

Posiblemente era error del Firebird lo que hice fue , desinstalarlo y volverlo a instalar y asi ya funciono mi script SQL.

Nada mas me queda agradecerles por su apoyo y comentarios.