delete from cxp_obligacion
where (cod_cia,tip_doc,num_doc) in
( select cod_cia,tip_doc,num_doc
from cxp_enc_movimiento
where est_movimiento='N');
delete from cxp_enc_movimiento
where est_movimiento='N';
delete from inv_detmovimiento
where (cod_cia,sucursal,tip_movto,cod_movto,num_docto)
in (select cod_cia,sucursal,tip_movto,cod_movto,num_docto
from inv_encabmovimiento
where estado='A');
delete  from inv_encabmovimiento
where estado='A';
update com_enc_factura
set estado='P'
where estado='A';
commit;