Como Detectar Comprobantes Descuadrados en wiki

De CidesaWiki

COMPROBANTES DESCUADRADOS EN EL MES DE ENERO

SELECT 
A.NUMCOM,
SUM(case when a.debcre='D' then A.MONASI else 0 end)::numeric as TOTDEB, 
SUM(case when a.debcre='C' then A.MONASI else 0 end)::numeric as TOTCRE 
FROM CONTABC1 A,CONTABC B 
WHERE 
A.NUMCOM=B.NUMCOM AND 
TO_CHAR(A.FECCOM,'MM')='01'
GROUP BY A.NUMCOM 
having SUM(case when a.debcre='D' then A.MONASI else 0 end)::numeric<>
SUM(case when a.debcre='C' then A.MONASI else 0 end)::numeric

--Pablosilva 14:01 10 jul 2008 (VET)