Subversion Repositories Sigmater

create or replace procedure CREA_UTENTE_PROVINCIALE(user_name varchar2,nome varchar2,cognome varchar2,email varchar2,sigla_provincia varchar2) is


id_ente                 NUMBER;

begin
     -- inserimento utente
     insert into ws_utenti (USERNAME,PASSWORD,
                            COGNOME,NOME,
                            EMAIL,LOGIN,
                            USR_CREATE_DATE,USR_EXPIRATION_DATE)
                 values    (user_name,'7c222fb2927d828af22f592134e8932480637c0d', 
                            cognome,nome,
                            email,upper(user_name),
                            sysdate,sysdate); 
     -- creazione del profilo 
     CREA_RUOLO_PROFILO('COMUNALE',1039,user_name,416);
           CREA_RUOLO_PROFILO('COMUNALE',1038,user_name,415);
           CREA_RUOLO_PROFILO('COMUNALE',1037,user_name,414);
           CREA_RUOLO_PROFILO('COMUNALE',1035,user_name,413);
           CREA_RUOLO_PROFILO('COMUNALE',1033,user_name,412);
           CREA_RUOLO_PROFILO('COMUNALE',1030,user_name,411);
           CREA_RUOLO_PROFILO('COMUNALE',1028,user_name,410);
           CREA_RUOLO_PROFILO('COMUNALE',1026,user_name,409);
           CREA_RUOLO_PROFILO('COMUNALE',1023,user_name,408);
           CREA_RUOLO_PROFILO('COMUNALE',1020,user_name,407);
           CREA_RUOLO_PROFILO('COMUNALE',1017,user_name,406);
           CREA_RUOLO_PROFILO('COMUNALE',1014,user_name,405);
           CREA_RUOLO_PROFILO('COMUNALE',1011,user_name,404);
     CREA_RUOLO_PROFILO('COMUNALE',1008,user_name,403);
           CREA_RUOLO_PROFILO('COMUNALE',1006,user_name,402);
           CREA_RUOLO_PROFILO('COMUNALE',1005,user_name,401);
           CREA_RUOLO_PROFILO('COMUNALE',1000,user_name,400);  
    -- inserisco l'abilitazione  
    if sigla_provincia = 'GE' then
      insert into ws_cross_enti_utenti values(user_name,1704);
      insert into ws_cross_enti_utenti values(user_name,1705);
      insert into ws_cross_enti_utenti values(user_name,1706);
      insert into ws_cross_enti_utenti values(user_name,1707);
      insert into ws_cross_enti_utenti values(user_name,1708);
      insert into ws_cross_enti_utenti values(user_name,1709);
      insert into ws_cross_enti_utenti values(user_name,1710);
      insert into ws_cross_enti_utenti values(user_name,1711);
      insert into ws_cross_enti_utenti values(user_name,1712);
      insert into ws_cross_enti_utenti values(user_name,1713);
      insert into ws_cross_enti_utenti values(user_name,1714);
      insert into ws_cross_enti_utenti values(user_name,1715);
      insert into ws_cross_enti_utenti values(user_name,1716);
      insert into ws_cross_enti_utenti values(user_name,1717);
      insert into ws_cross_enti_utenti values(user_name,1718);
      insert into ws_cross_enti_utenti values(user_name,1719);
      insert into ws_cross_enti_utenti values(user_name,1720);
      insert into ws_cross_enti_utenti values(user_name,1721);
      insert into ws_cross_enti_utenti values(user_name,1722);
      insert into ws_cross_enti_utenti values(user_name,1723);
      insert into ws_cross_enti_utenti values(user_name,1724);
      insert into ws_cross_enti_utenti values(user_name,1725);
      insert into ws_cross_enti_utenti values(user_name,1726);
      insert into ws_cross_enti_utenti values(user_name,1727);
      insert into ws_cross_enti_utenti values(user_name,1728);
      insert into ws_cross_enti_utenti values(user_name,1729);
      insert into ws_cross_enti_utenti values(user_name,1730);
      insert into ws_cross_enti_utenti values(user_name,1731);
      insert into ws_cross_enti_utenti values(user_name,1732);
      insert into ws_cross_enti_utenti values(user_name,1733);
      insert into ws_cross_enti_utenti values(user_name,1734);
      insert into ws_cross_enti_utenti values(user_name,1735);
      insert into ws_cross_enti_utenti values(user_name,1736);
      insert into ws_cross_enti_utenti values(user_name,1737);
      insert into ws_cross_enti_utenti values(user_name,1738);
      insert into ws_cross_enti_utenti values(user_name,1739);
      insert into ws_cross_enti_utenti values(user_name,1740);
      insert into ws_cross_enti_utenti values(user_name,1741);
      insert into ws_cross_enti_utenti values(user_name,1742);
      insert into ws_cross_enti_utenti values(user_name,1743);
      insert into ws_cross_enti_utenti values(user_name,1744);
      insert into ws_cross_enti_utenti values(user_name,1745);
      insert into ws_cross_enti_utenti values(user_name,1746);
      insert into ws_cross_enti_utenti values(user_name,1747);
      insert into ws_cross_enti_utenti values(user_name,1748);
      insert into ws_cross_enti_utenti values(user_name,1749);
      insert into ws_cross_enti_utenti values(user_name,1750);
      insert into ws_cross_enti_utenti values(user_name,1751);
      insert into ws_cross_enti_utenti values(user_name,1752);
      insert into ws_cross_enti_utenti values(user_name,1753);
      insert into ws_cross_enti_utenti values(user_name,1754);
      insert into ws_cross_enti_utenti values(user_name,1755);
      insert into ws_cross_enti_utenti values(user_name,1756);
      insert into ws_cross_enti_utenti values(user_name,1757);
      insert into ws_cross_enti_utenti values(user_name,1758);
      insert into ws_cross_enti_utenti values(user_name,1759);
      insert into ws_cross_enti_utenti values(user_name,1760);
      insert into ws_cross_enti_utenti values(user_name,1761);
      insert into ws_cross_enti_utenti values(user_name,1762);
      insert into ws_cross_enti_utenti values(user_name,1763);
      insert into ws_cross_enti_utenti values(user_name,1764);
      insert into ws_cross_enti_utenti values(user_name,1765);
      insert into ws_cross_enti_utenti values(user_name,1766);
      insert into ws_cross_enti_utenti values(user_name,1767);
      insert into ws_cross_enti_utenti values(user_name,1768);
      insert into ws_cross_enti_utenti values(user_name,1769);
      insert into ws_cross_enti_utenti values(user_name,1770);
     -- insert into ws_cross_enti_utenti values(user_name,1771);
      insert into ws_cross_enti_utenti values(user_name,1772);
     elsif sigla_provincia = 'SV' then 
      insert into ws_cross_enti_utenti values(user_name,1871);
      insert into ws_cross_enti_utenti values(user_name,1872);
      insert into ws_cross_enti_utenti values(user_name,1873);
      insert into ws_cross_enti_utenti values(user_name,1874);
      insert into ws_cross_enti_utenti values(user_name,1875);
      insert into ws_cross_enti_utenti values(user_name,1876);
      insert into ws_cross_enti_utenti values(user_name,1877);
      insert into ws_cross_enti_utenti values(user_name,1878);
      insert into ws_cross_enti_utenti values(user_name,1879);
      insert into ws_cross_enti_utenti values(user_name,1880);
      insert into ws_cross_enti_utenti values(user_name,1881);
      insert into ws_cross_enti_utenti values(user_name,1882);
      insert into ws_cross_enti_utenti values(user_name,1883);
      insert into ws_cross_enti_utenti values(user_name,1884);
      insert into ws_cross_enti_utenti values(user_name,1885);
      insert into ws_cross_enti_utenti values(user_name,1886);
      insert into ws_cross_enti_utenti values(user_name,1887);
      insert into ws_cross_enti_utenti values(user_name,1888);
      insert into ws_cross_enti_utenti values(user_name,1889);
      insert into ws_cross_enti_utenti values(user_name,1890);
      insert into ws_cross_enti_utenti values(user_name,1891);
      insert into ws_cross_enti_utenti values(user_name,1892);
      insert into ws_cross_enti_utenti values(user_name,1893);
      insert into ws_cross_enti_utenti values(user_name,1894);
      insert into ws_cross_enti_utenti values(user_name,1895);
      insert into ws_cross_enti_utenti values(user_name,1896);
      insert into ws_cross_enti_utenti values(user_name,1897);
      insert into ws_cross_enti_utenti values(user_name,1898);
      insert into ws_cross_enti_utenti values(user_name,1899);
      insert into ws_cross_enti_utenti values(user_name,1900);
      insert into ws_cross_enti_utenti values(user_name,1901);
      insert into ws_cross_enti_utenti values(user_name,1902);
      insert into ws_cross_enti_utenti values(user_name,1903);
      insert into ws_cross_enti_utenti values(user_name,1904);
      insert into ws_cross_enti_utenti values(user_name,1905);
      insert into ws_cross_enti_utenti values(user_name,1906);
      insert into ws_cross_enti_utenti values(user_name,1907);
      insert into ws_cross_enti_utenti values(user_name,1908);
      insert into ws_cross_enti_utenti values(user_name,1909);
      insert into ws_cross_enti_utenti values(user_name,1910);
      insert into ws_cross_enti_utenti values(user_name,1911);
      insert into ws_cross_enti_utenti values(user_name,1912);
      insert into ws_cross_enti_utenti values(user_name,1913);
      insert into ws_cross_enti_utenti values(user_name,1914);
      insert into ws_cross_enti_utenti values(user_name,1915);
      insert into ws_cross_enti_utenti values(user_name,1916);
      insert into ws_cross_enti_utenti values(user_name,1917);
      insert into ws_cross_enti_utenti values(user_name,1918);
      insert into ws_cross_enti_utenti values(user_name,1919);
      insert into ws_cross_enti_utenti values(user_name,1920);
      insert into ws_cross_enti_utenti values(user_name,1921);
      insert into ws_cross_enti_utenti values(user_name,1922);
      insert into ws_cross_enti_utenti values(user_name,1923);
      insert into ws_cross_enti_utenti values(user_name,1924);
      insert into ws_cross_enti_utenti values(user_name,1925);
      insert into ws_cross_enti_utenti values(user_name,1926);
      insert into ws_cross_enti_utenti values(user_name,1927);
      insert into ws_cross_enti_utenti values(user_name,1928);
      insert into ws_cross_enti_utenti values(user_name,1929);
      insert into ws_cross_enti_utenti values(user_name,1930);
      insert into ws_cross_enti_utenti values(user_name,1931);
      insert into ws_cross_enti_utenti values(user_name,1932);
      insert into ws_cross_enti_utenti values(user_name,1933);
      insert into ws_cross_enti_utenti values(user_name,1934);
      insert into ws_cross_enti_utenti values(user_name,1935);
      insert into ws_cross_enti_utenti values(user_name,1936);
      insert into ws_cross_enti_utenti values(user_name,1937);
      insert into ws_cross_enti_utenti values(user_name,1938);
      insert into ws_cross_enti_utenti values(user_name,1939);
     elsif sigla_provincia = 'SP' then
      insert into ws_cross_enti_utenti values(user_name,1839);
      insert into ws_cross_enti_utenti values(user_name,1840);
      insert into ws_cross_enti_utenti values(user_name,1841);
      insert into ws_cross_enti_utenti values(user_name,1842);
      insert into ws_cross_enti_utenti values(user_name,1843);
      insert into ws_cross_enti_utenti values(user_name,1844);
      insert into ws_cross_enti_utenti values(user_name,1845);
      insert into ws_cross_enti_utenti values(user_name,1846);
      insert into ws_cross_enti_utenti values(user_name,1847);
      insert into ws_cross_enti_utenti values(user_name,1848);
      insert into ws_cross_enti_utenti values(user_name,1849);
      insert into ws_cross_enti_utenti values(user_name,1850);
      insert into ws_cross_enti_utenti values(user_name,1851);
      insert into ws_cross_enti_utenti values(user_name,1852);
      insert into ws_cross_enti_utenti values(user_name,1853);
      insert into ws_cross_enti_utenti values(user_name,1854);
      insert into ws_cross_enti_utenti values(user_name,1855);
      insert into ws_cross_enti_utenti values(user_name,1856);
      insert into ws_cross_enti_utenti values(user_name,1857);
      insert into ws_cross_enti_utenti values(user_name,1858);
      insert into ws_cross_enti_utenti values(user_name,1859);
      insert into ws_cross_enti_utenti values(user_name,1860);
      insert into ws_cross_enti_utenti values(user_name,1861);
      insert into ws_cross_enti_utenti values(user_name,1862);
      insert into ws_cross_enti_utenti values(user_name,1863);
      insert into ws_cross_enti_utenti values(user_name,1864);
      insert into ws_cross_enti_utenti values(user_name,1865);
      insert into ws_cross_enti_utenti values(user_name,1866);
      insert into ws_cross_enti_utenti values(user_name,1867);
      insert into ws_cross_enti_utenti values(user_name,1868);
      insert into ws_cross_enti_utenti values(user_name,1869);
      insert into ws_cross_enti_utenti values(user_name,1870);
     elsif sigla_provincia = 'IM' then
      insert into ws_cross_enti_utenti values(user_name,1772);
      insert into ws_cross_enti_utenti values(user_name,1773);
      insert into ws_cross_enti_utenti values(user_name,1774);
      insert into ws_cross_enti_utenti values(user_name,1775);
      insert into ws_cross_enti_utenti values(user_name,1776);
      insert into ws_cross_enti_utenti values(user_name,1777);
      insert into ws_cross_enti_utenti values(user_name,1778);
      insert into ws_cross_enti_utenti values(user_name,1779);
      insert into ws_cross_enti_utenti values(user_name,1780);
      insert into ws_cross_enti_utenti values(user_name,1781);
      insert into ws_cross_enti_utenti values(user_name,1782);
      insert into ws_cross_enti_utenti values(user_name,1783);
      insert into ws_cross_enti_utenti values(user_name,1784);
      insert into ws_cross_enti_utenti values(user_name,1785);
      insert into ws_cross_enti_utenti values(user_name,1786);
      insert into ws_cross_enti_utenti values(user_name,1787);
      insert into ws_cross_enti_utenti values(user_name,1788);
      insert into ws_cross_enti_utenti values(user_name,1789);
      insert into ws_cross_enti_utenti values(user_name,1790);
      insert into ws_cross_enti_utenti values(user_name,1791);
      insert into ws_cross_enti_utenti values(user_name,1792);
      insert into ws_cross_enti_utenti values(user_name,1793);
      insert into ws_cross_enti_utenti values(user_name,1794);
      insert into ws_cross_enti_utenti values(user_name,1795);
      insert into ws_cross_enti_utenti values(user_name,1796);
      insert into ws_cross_enti_utenti values(user_name,1797);
      insert into ws_cross_enti_utenti values(user_name,1798);
      insert into ws_cross_enti_utenti values(user_name,1799);
      insert into ws_cross_enti_utenti values(user_name,1800);
      insert into ws_cross_enti_utenti values(user_name,1801);
      insert into ws_cross_enti_utenti values(user_name,1802);
      insert into ws_cross_enti_utenti values(user_name,1803);
      insert into ws_cross_enti_utenti values(user_name,1804);
      insert into ws_cross_enti_utenti values(user_name,1805);
      insert into ws_cross_enti_utenti values(user_name,1806);
      insert into ws_cross_enti_utenti values(user_name,1807);
      insert into ws_cross_enti_utenti values(user_name,1808);
      insert into ws_cross_enti_utenti values(user_name,1809);
      insert into ws_cross_enti_utenti values(user_name,1810);
      insert into ws_cross_enti_utenti values(user_name,1811);
      insert into ws_cross_enti_utenti values(user_name,1812);
      insert into ws_cross_enti_utenti values(user_name,1813);
      insert into ws_cross_enti_utenti values(user_name,1814);
      insert into ws_cross_enti_utenti values(user_name,1815);
      insert into ws_cross_enti_utenti values(user_name,1816);
      insert into ws_cross_enti_utenti values(user_name,1817);
      insert into ws_cross_enti_utenti values(user_name,1818);
      insert into ws_cross_enti_utenti values(user_name,1819);
      insert into ws_cross_enti_utenti values(user_name,1820);
      insert into ws_cross_enti_utenti values(user_name,1821);
      insert into ws_cross_enti_utenti values(user_name,1822);
      insert into ws_cross_enti_utenti values(user_name,1823);
      insert into ws_cross_enti_utenti values(user_name,1824);
      insert into ws_cross_enti_utenti values(user_name,1825);
      insert into ws_cross_enti_utenti values(user_name,1826);
      insert into ws_cross_enti_utenti values(user_name,1827);
      insert into ws_cross_enti_utenti values(user_name,1828);
      insert into ws_cross_enti_utenti values(user_name,1829);
      insert into ws_cross_enti_utenti values(user_name,1830);
      insert into ws_cross_enti_utenti values(user_name,1831);
      insert into ws_cross_enti_utenti values(user_name,1832);
      insert into ws_cross_enti_utenti values(user_name,1833);
      insert into ws_cross_enti_utenti values(user_name,1834);
      insert into ws_cross_enti_utenti values(user_name,1835);
      insert into ws_cross_enti_utenti values(user_name,1836);
      insert into ws_cross_enti_utenti values(user_name,1837);
      insert into ws_cross_enti_utenti values(user_name,1838);
     end if;
          
     commit;
exception 
          when others then
               dbms_output.put_line('ERR INS utente '|| sqlcode ||' '||sqlerrm);
               rollback;
            
end CREA_UTENTE_PROVINCIALE;
/