select d.documento, d.articulo, d.reservado, d.facturado
from venpedido p, vendetpedido d
where p.cia=d.cia
  and p.sucursal=d.sucursal
  and p.documento=d.documento
  and (p.estado in ('P','N') or p.clase in ('P','V'))
  and d.reservado>d.facturado;

update vendetpedido
  set reservado=facturado
where cia='001'
  and sucursal='001'
  and documento=1
  and reservado>facturado;