Como Detectar Comprobantes Descuadrados

De CidesaWiki

LA SIGUIENTE SENTENCIA RETORNA LOS COMPROBANTES DESCUADRADOS EN EL MES DE ENERO('01')

SELECT A.NUMCOM,SUM(DECODE(A.DEBCRE,'D',A.MONASI,0)) TOTDEB, SUM(DECODE(A.DEBCRE,'C',A.MONASI,0)) TOTCRE FROM CONTABC1 A,CONTABC B WHERE A.NUMCOM=B.NUMCOM AND TO_CHAR(A.FECCOM,'MM')='01' GROUP BY A.NUMCOM HAVING SUM(DECODE(A.DEBCRE,'D',A.MONASI,0)) <> SUM(DECODE(A.DEBCRE,'C',A.MONASI,0))