do $$
declare f record;
begin
for f in 
select m.id_movimiento,m.glosa, c.serie, c.correlativo
from isos.movimiento m
left join isos.compra c ON (m.id_referencia=c.id_compra)
where m.tabla_referencia='COMPRA' 
and c.id_compra is not null 
loop
	UPDATE isos.movimiento set glosa= 'COMPRA: ' || f.serie || '-' || f.correlativo 
    where id_movimiento= f.id_movimiento;
end loop;
END; $$


do $$
declare f record;
begin
for f in 
select m.id_movimiento,m.glosa, v.serie, v.correlativo
from isos.movimiento m
left join isos.venta v ON (m.id_referencia=v.id_venta)
where m.tabla_referencia='VENTA' 
and v.id_venta is not null 
loop
	UPDATE isos.movimiento set glosa= 'VENTA: ' || f.serie || '-' || f.correlativo 
    where id_movimiento= f.id_movimiento;
end loop;
END; $$