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