Ticket #437

updated the party type select list on the create party screen to prevent user admins from creating anything other than agents.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4200 248e525c-4dfb-0310-94bc-949c084e9493

Screens/f155.sql

@@ -13,8 +13,8 @@ prompt  APPLICATION 155 - webmip
 -- Application Export:
 --   Application:     155
 --   Name:            webmip
---   Date and Time:   09:25 Wednesday April 2, 2008
+--   Date and Time:   09:41 Wednesday April 2, 2008
---   Exported By:     HARDYA
+--   Exported By:     MULLENM
 --   Flashback:       0
 --   Export Type:     Application Export
 --   Version: 3.1.0.00.32
@@ -29,7 +29,7 @@ prompt  APPLICATION 155 - webmip
 --     Items:             359
 --     Computations:        5
 --     Validations:       285
---     Processes:         120
+--     Processes:         121
 --     Regions:            77
 --     Buttons:           113
 --   Shared Components
@@ -145,7 +145,7 @@ wwv_flow_api.create_flow(
   p_default_region_template=> 28038130488354430 + wwv_flow_api.g_id_offset,
   p_error_template    => 42209241448421762 + wwv_flow_api.g_id_offset,
   p_page_protection_enabled_y_n=> 'N',
-  p_checksum_salt_last_reset => '20080402092545',
+  p_checksum_salt_last_reset => '20080402094142',
   p_home_link         => 'f?p=&APP_ID.:101',
   p_flow_language     => 'en-gb',
   p_flow_language_derived_from=> 'FLOW_PRIMARY_LANGUAGE',
@@ -193,8 +193,8 @@ wwv_flow_api.create_flow(
   p_substitution_value_03  => 'http://www.nationalgrid.com/corporate/legal/privacy.htm',
   p_substitution_string_04 => 'HELP_URL',
   p_substitution_value_04  => 'http://www.nationalgrid.com/corporate/legal/help.htm',
-  p_last_updated_by => 'HARDYA',
+  p_last_updated_by => 'MULLENM',
-  p_last_upd_yyyymmddhh24miss=> '20080402092545',
+  p_last_upd_yyyymmddhh24miss=> '20080402094142',
   p_required_roles=> wwv_flow_utilities.string_to_table2(''));
  
  
@@ -30904,7 +30904,7 @@ wwv_flow_api.create_page(
   p_required_role => 14572900838700208+ wwv_flow_api.g_id_offset,
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'MULLENM',
-  p_last_upd_yyyymmddhh24miss => '20080402091411',
+  p_last_upd_yyyymmddhh24miss => '20080402093146',
   p_page_is_public_y_n=> 'N',
   p_protection_level=> 'N',
   p_page_comment  => '');
@@ -32543,6 +32543,39 @@ end;
 /
 
  
+begin
+ 
+declare
+  p varchar2(32767) := null;
+  l_clob clob;
+  l_length number := 1;
+begin
+p:=p||'begin'||chr(10)||
+'  if not mip_parties.get_user_role(:APP_USER) = ''MIPADMIN'' then '||chr(10)||
+'     :P61_PRTY_TYPE := ''PERS'';'||chr(10)||
+'  end if; '||chr(10)||
+'end;';
+
+wwv_flow_api.create_page_process(
+  p_id     => 8068106781674306 + wwv_flow_api.g_id_offset,
+  p_flow_id=> wwv_flow.g_flow_id,
+  p_flow_step_id => 61,
+  p_process_sequence=> 10,
+  p_process_point=> 'BEFORE_HEADER',
+  p_process_type=> 'PLSQL',
+  p_process_name=> 'set_prty_type',
+  p_process_sql_clob => p, 
+  p_process_error_message=> '',
+  p_process_success_message=> '',
+  p_process_is_stateful_y_n=>'N',
+  p_process_comment=>'');
+end;
+null;
+ 
+end;
+/
+
+ 
 begin
  
 ---------------------------------------