Como usar el CASE en 2 SubConsultas ????

[AGAG4]

Buen día, tengo una pregunta que no he podido responderme, lo que pasa es que tengo 1 consulta maestra con algunas subconsultas, estas subconsultas me regresan ciertos valores de tipo flotante mediante alguna suma ó resta, este resultado participan 2 select independientes, por lo que si en dicho resultado cae en 0.01 Centavos quiero dejar el resultado en CERO, pongo el ejemplo:

Código SQL [-]
/*Select Maestro*/
SELECT V.CLAVE,V.NOMBRE,C.CLIENTE,CC.NOMCLI, 

/*Primer SubConsulta*/
(FUD_ROUND((SELECT COALESCE(SUM(FUD_ROUND(IMPORTE,2)),0) FROM TCARGOS WHERE CAST('12.10.2006' AS DATE) - FECHAMOV <15 AND FECHAMOV<='12.10.2006' AND CARABO = 1 AND CLIENTE = C.CLIENTE AND CVEDOCUM <>'CREM')
 -
/*Segunda SubConsulta*/
(SELECT COALESCE(SUM(FUD_ROUND(IMPORTE,2)),0) FROM TABONOS WHERE CAST('12.10.2006' AS DATE) - FECHAFAC <15 AND FECHAMOV<='12.10.2006' AND CARABO = 2 AND CLIENTE = C.CLIENTE ),2)) VNORMAL, 
......

El Resultado del Primer Select - Segundo Select = un Valor, dicho valor quiero saber si no pasa del Tope de 0.01 ó 0.02 Centavos, si es el caso, el Resultado lo tengo que dejar a CEROS, ya probe con el CASE, pero es a nivel de Select y no puedo usarlo a nivel de 2 Select, esta consulta SQL lo hago para mostrar datos en el QReport, pongo el ejemplo de como aparecen los datos:
VNORMAL 15DIAS 30 DIAS 45 DIAS TOTAL
800.00 200.00 400.00 0.01 $1,400.01

Lo que podría hacer sería que en cada uno de los QrDBLabel,dentro del evento OnPrint, validar dicho valor para mostrar en ceros, pero tendría que hacerlo también en el Total dentro de la suma que uso en el QrExpr, donde tengo en la propiedad Expression lo siguiente:

Código Delphi [-]
ibQuery.VNORMAL+ibQuery.V15DIAS+ibQuery.V30DIAS+ibQuery.V40DIAS

Alguien sabe como hacer una condicionante dentro de la propiedad Expression????

Sería algo por el estilo:

Código Delphi [-]
(Case ibQuery.VNORMAL > 0.01  Then
ibQuery.VNORMAL ELSE 0 END ) +
(Case ibQueryGral.V15DIAS > 0.01  Then
ibQueryGral.V15DIAS ELSE 0 END ) +
.....

Quedaría asi:
VNORMAL    15DIAS    30 DIAS     45 DIAS      TOTAL
  800.00      200.00     400.00          0           $1,400.00

OJO PARA LOS ADMINISTRADORES DEL CLUB: Dejo bien Acomodado el EJEMPLO de arriba y se me DESORDENA cuando grabo el HILO.

Espero me haya explicado....
Agradezco cualquier sugerencia.

[jachguate]

Empezado por AGAG4

OJO PARA LOS ADMINISTRADORES DEL CLUB: Dejo bien Acomodado el EJEMPLO de arriba y se me DESORDENA cuando grabo el HILO.

No soy administrador, que solamente lo es Emilio, pero si soy moderador... aún así, no entiendo a que ejemplo te referís específicamente. Si es al que está debajo de "Quedaría así:", te comento que html se "come" los espacios que haya dentro de los textos. Es su comportamiento normal. Si queres que las columnas se vean correctamente formateadas usando espacios, como si fuese una tabla, entonces valete de la etiqueta [code]. Dentro de ella, forzamos a que HTML no se coma los espacios (haciendole creer que se trata de un fragmento de código).

Con respecto de tu duda, podes valerte de una vista intermedia o de un stored procedure para conseguir el efecto que buscas.

Explotando la idea de la vista, dejás el query tal como lo tenes y lo usas para crear una vista así:

Código SQL [-]
create view VistaAGAG (clave, nombre, cliente, nomcli, vnormal, v15, v30, v45, total) as
Select v.clave, v.nombre... --etc
  (select -- subconsulta 1
  ) - 
  (select -- subconsulta 2
  ),
  -- etc;
;

Luego, seleccionas sobre esta vista:

Código SQL [-]
  Select clave, nombre, cliente, nomcli, vnormal, 
    case v15
      when 0.01 then 0
      else v15
    end v15,
    -- etc
  from VistaAGAG
 where condiciones;

Espero haberme explicado, si no, me avisas y veo la manera de darte un ejemplo mas concreto.

Hasta luego.

[AGAG4]

Gracias jachguate por los 2 consejos, ya le puse el CODE y se mejoro el aspecto, con respecto a lo que me comentas voy hacer pruebas..... ahorita te informo que paso....

[AGAG4]

El único y gran problema que le veo a las vistas es que en las Subconsultas uso fechas que le paso como parámetro al momento de armar la sentencia SQL dentro de Delphi, y como No muestro FECHAS y No debo hacerlo dentro de la Sentencia por cuestiones de Agrupamiento (Agrupado por Cliente), es por eso que en la vista no me funcionaría porque si revisa bien, tengo los parámetros de Fecha Fijos, y tendría que asignarselo en alguna parte a la vista como parámetro.

Espero haberme explicado con claridad.

[jachguate]

Desconozco la forma en que debiera funcionar tu consulta, pero si precisas acotar por fechas, queda la opción de hacerlo dentro de un procedimiento almacenado que reciba estas como parámetro.

Hasta luego.

[AGAG4]

Estoy continuando por el QrExpr metiendole condiciones en la propiedad Expression, del cual lo hago de la siguiente manera:

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)';

Aqui si me hace el filtro correcto de dejarme en CEROS el campo dentro del QReport, pero si quiero filtrar los que sean menores a -0.02 no me los filtra inclusive me muestra en BLANCO, al cachar el valor que toma me pone lo siguiente :

Wrong Arguments for IF

Y lo hago de la siguiente manera:

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)';

Si ven, es lo mismo que la anterior con la diferencia que cambio de > 0.02 a < -0.02 no veo el problema.