Como usar el CASE en 2 SubConsultas ????

[AGAG4]

Siguiendo con las recomendaciones, opte por hacerlo en un proc. almacenado, pero el inconveniente es que este "amigo" no me regresa más de 1 registro dentro de 1 select me marca error multiple rows in singleton select , desgraciadamente no encuentro por donde atacar mi problema, en las Vistas estaría excelente si me aceptaran parametros y en los SP me aceptan parametros pero NO regresan más de 1 registro a la vez, y con respecto al QrExpr no me funciona las condiciones siguiente:

Código Delphi [-]
qrExprTotReg.Expression:='
IF(ibQueryGral2.VNORMAL < -0.02,ibQueryGral2.VNORMAL,0)+
IF(ibQueryGral2.V15DIAS < -0.02,ibQueryGral2.V15DIAS,0)+
IF(ibQueryGral2.V30DIAS < -0.02,ibQueryGral2.V30DIAS,0)+
IF(ibQueryGral2.V45DIAS < -0.02,ibQueryGral2.V45DIAS,0)+
IF(ibQueryGral2.V60DIAS < -0.02,ibQueryGral2.V60DIAS,0)+
IF(ibQueryGral2.V75DIAS < -0.02,ibQueryGral2.V75DIAS,0)+
IF(ibQueryGral2.V90MDIAS < -0.02,ibQueryGral2.V90MDIAS,0)';