      INSERT INTO SALDO(COD_CLIENTE,DEBITO,CREDITO) 
      SELECT A.COD_CLIENTE,SUM(DECODE(B.TIP_SALDO,'D',A.MON_DOCTO,0)),
             SUM(DECODE(B.TIP_SALDO,'C',A.MON_DOCTO,0))
      FROM   CXC_ENC_MOVIMIENTO A,
             CXC_DOCUMENTO B
      WHERE  A.COD_CIA = '001'
      AND    A.LINEA = '001'
      AND    A.ANO_FISCAL = 2004
      AND    A.PER_PROCESO = 2
      AND    A.ESTADO = 'A'
      AND    A.TIP_DOC = B.TIP_DOC
      GROUP BY A.COD_CLIENTE;

      INSERT INTO SALDO(COD_CLIENTE,DEBITO,CREDITO) 
      SELECT A.COD_CLIENTE,SUM(DECODE(B.TIP_SALDO,'D',C.MON_PAGO+C.MON_DESCUENTO,0)),
             SUM(DECODE(B.TIP_SALDO,'C',C.MON_PAGO+C.MON_DESCUENTO,0))
      FROM   CXC_ENC_PAGO_NOTA A,
             CXC_DOCUMENTO B,
           CXC_DET_PAGO_NOTA C
      WHERE  A.COD_CIA = '001'
      AND    C.COD_CIA = '001'
      AND    A.SUCURSAL= C.SUCURSAL
      AND    A.TIP_DOC = C.TIP_DOC
      AND    A.NUM_DOC = C.NUM_DOC
      AND    A.LINEA = '001'
      AND    A.ANO_FISCAL = 2004
      AND    A.PER_PROCESO = 2
      AND    A.ESTADO = 'A'
      AND    A.TIP_DOC_REF IS NULL
      AND    A.TIP_DOC = B.TIP_DOC
      GROUP BY A.COD_CLIENTE;


      INSERT INTO SALDO(COD_CLIENTE,SALDO) 
      SELECT A.COD_CLIENTE,NVL(SUM(DECODE(B.TIP_SALDO,'D',A.MON_DOCTO,-A.MON_DOCTO)),0)
      FROM   CXC_ENC_MOVIMIENTO A,
             CXC_DOCUMENTO B
      WHERE  A.COD_CIA = '001'
      AND    A.LINEA = '001'
      AND   (A.ANO_FISCAL*100+A.PER_PROCESO) < 200402
      AND    A.ESTADO = 'A'
      AND    A.TIP_DOC = B.TIP_DOC
      GROUP BY A.COD_CLIENTE;


      INSERT INTO SALDO(COD_CLIENTE,SALDO) 
      SELECT A.COD_CLIENTE,NVL(SUM(DECODE(B.TIP_SALDO,'D',(C.MON_PAGO+C.MON_DESCUENTO),-(C.MON_PAGO+C.MON_DESCUENTO))),0)
      FROM   CXC_ENC_PAGO_NOTA A,
             CXC_DOCUMENTO B,
             CXC_DET_PAGO_NOTA C
      WHERE  A.COD_CIA = '001'
      AND    C.COD_CIA = '001'
      AND    a.sucursal=c.sucursal
      AND    A.TIP_DOC = C.TIP_DOC
      AND    A.NUM_DOC = C.NUM_DOC
      AND    A.LINEA = '001'
      AND   (A.ANO_FISCAL*100+A.PER_PROCESO) < 200402
      AND    A.ESTADO = 'A'
      AND    A.TIP_DOC_REF IS NULL
      AND    A.TIP_DOC = B.TIP_DOC
      GROUP BY A.COD_CLIENTE;


drop table saldoper;
create table saldoper as
select cod_cliente,sum(nvl(saldo,0)+nvl(debito,0)-nvl(credito,0)) saldo from saldo
group by cod_cliente;



create table saldodia as 
select cod_cliente,sum(mon_saldo) from saldo
group by cod_cliente;




 create table saldodia as 
 select cod_cliente,sum(mon_saldo)  saldo from cxc_movimientotmp
 group by cod_cliente;

