-- Cambiar el 'XX' por el codigo de cuenta 
drop table xx;
create table xx as
select sum(decode(c.contable,'D',a.monto,0)) debito,
       sum(decode(c.contable,'C',a.monto,0)) credito
from banmov a,bantip b,bandoc c
where a.cod_cia='001'
and   b.cod_cia='001'
and   c.cod_cia='001'
and   a.tipo_mov=b.tipo_mov
and   b.fuente=c.fuente
and   a.cuenta='XX'
and   a.estado in ('A','K');


update banmae
set debmes=(select debito from xx),
    cremes=(select credito from xx)
where cuenta='XX';