DO $$DECLARE
r record;
v_id_config_subtipo_cuenta integer;
BEGIN
--actuliza cuenta segun el tipo de cuenta
FOR r in (select
c.id_cuenta,
c.tipo_cuenta
from conta.tcuenta c
where c.sw_transaccional = 'movimiento') LOOP
select
csc.id_config_subtipo_cuenta
into
v_id_config_subtipo_cuenta
from conta.tconfig_subtipo_cuenta csc
inner join conta.tconfig_tipo_cuenta ctc on ctc.id_config_tipo_cuenta = csc.id_config_tipo_cuenta
where ctc.tipo_cuenta = r.tipo_cuenta;
update conta.tcuenta set
id_config_subtipo_cuenta = v_id_config_subtipo_cuenta
where id_cuenta = r.id_cuenta;
END LOOP;
END$$;