script par actualizar los subtipos de cuentas en plan de cuentas

rensi

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$$;