sql Gerador dedadosaleatórios

Posted 2021-05-13

    procedure gera_pendencia
    is      
    
        v_cd_modulo systur.wfs_modulo.cd_modulo%type;
        v_cd_fluxo  systur.wfs_fluxo.cd_fluxo%type;
        v_cd_fase   systur.wfs_fase.cd_fase%type;
        v_sq_real   systur.wfs_fluxo_real.sq_real%type := 1;
    
    begin

        if not wsgsec.security_check(p_package_name => owa_util.get_procedure) then
            return;
        end if;
        
        select dbms_random.value(1,3)
          into v_cd_modulo
          from dual;
          
        htp.p('Módulo - ' || v_cd_modulo);
          
        insert into systur.wfs_fluxo
                  ( cd_modulo
                  , cd_pessoa_solicitante
                  , ds_titulo
                  , ds_mensagem )
           values ( v_cd_modulo
                  , wsgsec.get_cd_pessoa_user
                  , dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7))
                  , dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)) || ' ' || dbms_random.string('L',dbms_random.value(1,7)))
          returning cd_fluxo 
               into v_cd_fluxo;
               
        htp.p('Fluxo - ' || v_cd_fluxo);
        
        insert into systur.wfs_fluxo_fase
                  ( cd_fluxo
                  , cd_fase
                  , sq_fase )
             select v_cd_fluxo
                  , cd_fase
                  , sq_fase
               from systur.wfs_fase
              where cd_modulo = v_cd_modulo;

        insert into systur.wfs_fluxo_fase_pendencia
                  ( cd_fluxo
                  , cd_fase
                  , id_pendencia )
             select v_cd_fluxo
                  , cd_fase
                  , id_pendencia
               from systur.wfs_fase_pendencia
              where st_habilitacao = 'A'
                and cd_fase in ( select cd_fase 
                                   from systur.wfs_fluxo_fase 
                                  where cd_fluxo = v_cd_fluxo );              

        select cd_fase
          into v_cd_fase
          from systur.wfs_fluxo_fase
         where cd_fluxo = v_cd_fluxo
           and sq_fase = 1;

        htp.p('Fase 1 - ' || v_cd_fase);

        insert into systur.wfs_fluxo_real
                  ( cd_fluxo
                  , cd_fase
                  , sq_real 
                  , id_status 
                  , cd_pessoa )
           values ( v_cd_fluxo 
                  , v_cd_fase 
                  , v_sq_real 
                  , 'F' 
                  , wsgsec.get_cd_pessoa_user );

        select cd_fase
          into v_cd_fase          
          from systur.wfs_fluxo_fase
         where cd_fluxo = v_cd_fluxo
           and sq_fase = ( select min(sq_fase)
                             from systur.wfs_fluxo_fase
                            where cd_fluxo = v_cd_fluxo
                              and sq_fase > 1 );
                              
        select max(sq_real) + 1 
          into v_sq_real
          from wfs_fluxo_real
         where cd_fluxo = v_cd_fluxo;

        htp.p('Fase 2 - ' || v_cd_fase);

        insert into systur.wfs_fluxo_real
                  ( cd_fluxo
                  , cd_fase
                  , sq_real 
                  , id_status 
                  , cd_pessoa )
           values ( v_cd_fluxo 
                  , v_cd_fase 
                  , v_sq_real 
                  , 'A' 
                  , null );
                  

        insert into systur.wfs_fluxo_real_pendencia
                  ( cd_fluxo
                  , cd_fase
                  , sq_real
                  , id_pendencia
                  , id_status )
             select v_cd_fluxo 
                  , v_cd_fase
                  , 2 
                  , id_pendencia
                  , 'A'  
               from systur.wfs_fluxo_fase_pendencia
              where cd_fluxo = v_cd_fluxo
                and cd_fase = v_cd_fase;
          
    end;