added exception handling for files that exceed 3 meg and total files for enquiry that exceed 10 meg

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

Screens/f155.sql

@@ -13,7 +13,7 @@ prompt  APPLICATION 155 - webmip
 -- Application Export:
 --   Application:     155
 --   Name:            webmip
---   Date and Time:   14:51 Tuesday February 5, 2008
+--   Date and Time:   17:24 Wednesday February 6, 2008
 --   Exported By:     PRIESTJ
 --   Flashback:       0
 --   Export Type:     Application Export
@@ -29,7 +29,7 @@ prompt  APPLICATION 155 - webmip
 --     Items:             345
 --     Computations:        1
 --     Validations:       192
---     Processes:          89
+--     Processes:          90
 --     Regions:            79
 --     Buttons:           118
 --   Shared Components
@@ -145,7 +145,7 @@ wwv_flow_api.create_flow(
   p_default_region_template=> 24740611526526770 + wwv_flow_api.g_id_offset,
   p_error_template    => 24734616867526758 + wwv_flow_api.g_id_offset,
   p_page_protection_enabled_y_n=> 'N',
-  p_checksum_salt_last_reset => '20080205145111',
+  p_checksum_salt_last_reset => '20080206172433',
   p_home_link         => 'f?p=&APP_ID.:1',
   p_box_width         => '98%',
   p_flow_language     => 'en-gb',
@@ -185,7 +185,7 @@ wwv_flow_api.create_flow(
   p_default_menur_template => 24737010408526765 + wwv_flow_api.g_id_offset,
   p_default_listr_template => 24740611526526770 + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'PRIESTJ',
-  p_last_upd_yyyymmddhh24miss=> '20080205145111',
+  p_last_upd_yyyymmddhh24miss=> '20080206172433',
   p_required_roles=> wwv_flow_utilities.string_to_table2(''));
  
  
@@ -12407,8 +12407,8 @@ wwv_flow_api.create_page(
   p_html_page_header => '',
   p_step_template => '',
   p_required_patch=> null + wwv_flow_api.g_id_offset,
-  p_last_updated_by => 'DHARSHANIK',
+  p_last_updated_by => 'MULLENM',
-  p_last_upd_yyyymmddhh24miss => '20080131162256',
+  p_last_upd_yyyymmddhh24miss => '20080205165528',
   p_page_is_public_y_n=> 'N',
   p_protection_level=> 'C',
   p_page_comment  => '');
@@ -13713,7 +13713,7 @@ wwv_flow_api.create_page(
   p_required_role => 16097609166220701+ wwv_flow_api.g_id_offset,
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'PRIESTJ',
-  p_last_upd_yyyymmddhh24miss => '20080204123256',
+  p_last_upd_yyyymmddhh24miss => '20080206162716',
   p_page_is_public_y_n=> 'N',
   p_protection_level=> 'C',
   p_page_comment  => '');
@@ -14720,7 +14720,7 @@ wwv_flow_api.create_page_item(
   p_item_plug_id => 26597504596798255+wwv_flow_api.g_id_offset,
   p_use_cache_before_default=> 'YES',
   p_item_default_type => 'STATIC_TEXT_WITH_SUBSTITUTIONS',
-  p_prompt=>'Upload files for enquiry',
+  p_prompt=>'Upload file for enquiry',
   p_source_type=> 'STATIC',
   p_display_as=> 'FILE',
   p_lov_columns=> 1,
@@ -20466,14 +20466,15 @@ declare
 begin
 p:=p||'--Used to set the agent and supplier associations by writing records to the enquiry_roles table'||chr(10)||
 'declare'||chr(10)||
+'  e_file_error EXCEPTION; '||chr(10)||
 '  success  boolean;'||chr(10)||
 'begin'||chr(10)||
 '  if :P32_ID is not null then'||chr(10)||
 '    if v(''P32_UPLOAD_ASSET_LOCATION_NOTES'') is not null then'||chr(10)||
 '      success := #OWNER#.mip_files.set_file_association(v(''P32_UPLOAD_ASSET_LOCATION_NOTES''),'||chr(10)||
-'                                                        ''Asset Location file ';
+'                                                  ';
 
-p:=p||'for enquiry'','||chr(10)||
+p:=p||'      ''Asset Location file for enquiry'','||chr(10)||
 '                                                        ''INDO'','||chr(10)||
 '                                                        ''ENQUIRY SUPPORTING DOC'','||chr(10)||
 '                                                        null,'||chr(10)||
@@ -20482,21 +20483,31 @@ p:=p||'for enquiry'','||chr(10)||
 '                  ';
 
 p:=p||'                                      ''ENDO'');'||chr(10)||
-''||chr(10)||
+'      if not success then'||chr(10)||
+'        RAISE e_file_error;'||chr(10)||
+'      end if;'||chr(10)||
 '    end if;'||chr(10)||
 '    if v(''P32_ENQUIRY_FILES'') is not null then'||chr(10)||
 '      success := #OWNER#.mip_files.set_file_association(v(''P32_ENQUIRY_FILES''),'||chr(10)||
 '                                                        ''File uploaded to enquiry'','||chr(10)||
-'                                                        ''INDO'','||chr(10)||
-'                                                        ''ENQUIRY SUPPORTING DOC'','||chr(10)||
 '                                                      ';
 
-p:=p||'                                                      null,'||chr(10)||
+p:=p||'  ''INDO'','||chr(10)||
+'                                                        ''ENQUIRY SUPPORTING DOC'','||chr(10)||
+'                                                        null,'||chr(10)||
 '                                                        :P32_ID,'||chr(10)||
 '                                                        null,'||chr(10)||
 '                                                        ''ENDO'');'||chr(10)||
+'      if not success then'||chr(10)||
+'        RAISE e_file_';
+
+p:=p||'error;'||chr(10)||
 '      end if;'||chr(10)||
 '    end if;'||chr(10)||
+'  end if;'||chr(10)||
+'EXCEPTION'||chr(10)||
+'when e_file_error then'||chr(10)||
+'  #OWNER#.cout_err.report_and_stop(-20100);'||chr(10)||
 'end;';
 
 wwv_flow_api.create_page_process(
@@ -20508,8 +20519,8 @@ wwv_flow_api.create_page_process(
   p_process_type=> 'PLSQL',
   p_process_name=> 'Create File Association',
   p_process_sql_clob => p, 
-  p_process_error_message=> 'Error attempting to save file to enquiry',
+  p_process_error_message=> 'There was a problem attempting to save file to enquiry (files must be less than 3 megabytes in size, there is a 10 megabyte limit for files attached to an enquiry)',
-  p_process_success_message=> '',
+  p_process_success_message=> 'File uploaded successfully ',
   p_process_is_stateful_y_n=>'N',
   p_required_patch=>null + wwv_flow_api.g_id_offset,
   p_process_comment=>'');
@@ -20929,7 +20940,7 @@ wwv_flow_api.create_page(
   p_required_role => 16097609166220701+ wwv_flow_api.g_id_offset,
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'PRIESTJ',
-  p_last_upd_yyyymmddhh24miss => '20080201155719',
+  p_last_upd_yyyymmddhh24miss => '20080206162657',
   p_page_is_public_y_n=> 'N',
   p_page_comment  => '');
  
@@ -21578,18 +21589,25 @@ declare
   l_length number := 1;
 begin
 p:=p||'declare '||chr(10)||
+'  e_file_error EXCEPTION;'||chr(10)||
 '  success  boolean;'||chr(10)||
 'begin'||chr(10)||
 '  success:= #OWNER#.mip_files.set_file_association(v(''P41_FILE_UPLOAD''),'||chr(10)||
 '                                                    ''File added to Enquiry'','||chr(10)||
 '                                                    ''INDO'','||chr(10)||
 '                                                    ''ENQUIRY SUPPORTING DOC'','||chr(10)||
-'                                                    null,'||chr(10)||
 '                                           ';
 
-p:=p||'                                         :P41_ENQU_ID,'||chr(10)||
+p:=p||'         null,'||chr(10)||
+'                                                    :P41_ENQU_ID,'||chr(10)||
 '                                                    null,'||chr(10)||
 '                                                    ''ENDO'');'||chr(10)||
+'  if not success then'||chr(10)||
+'    RAISE e_file_error;'||chr(10)||
+'  end if;'||chr(10)||
+'EXCEPTION'||chr(10)||
+'when e_file_error then'||chr(10)||
+'  #OWNER#.cout_err.report_and_stop(-20100);'||chr(10)||
 'end;';
 
 wwv_flow_api.create_page_process(
@@ -21601,7 +21619,7 @@ wwv_flow_api.create_page_process(
   p_process_type=> 'PLSQL',
   p_process_name=> 'Upload Enquiry File',
   p_process_sql_clob => p, 
-  p_process_error_message=> 'Failed to upload file for enquiry',
+  p_process_error_message=> 'There was a problem attempting to save file to enquiry (files must be less than 3 megabytes in size, there is a 10 megabyte limit for files attached to an enquiry)',
   p_process_when=>'P41_ENQU_ID',
   p_process_when_type=>'ITEM_IS_NOT_NULL',
   p_process_success_message=> 'File for enquiry uploaded',
@@ -30780,7 +30798,7 @@ wwv_flow_api.create_page(
   p_step_template => '',
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'MULLENM',
-  p_last_upd_yyyymmddhh24miss => '20080124092157',
+  p_last_upd_yyyymmddhh24miss => '20080205171156',
   p_page_is_public_y_n=> 'N',
   p_page_comment  => '');
  
@@ -30890,8 +30908,6 @@ wwv_flow_api.create_page_branch(
   p_branch_type=> 'REDIRECT_URL',
   p_branch_when_button_id=>20910609179287047+ wwv_flow_api.g_id_offset,
   p_branch_sequence=> 11,
-  p_branch_condition_type=> 'ITEM_IS_NOT_NULL',
-  p_branch_condition=> 'P63_SELECT_ADDRESS',
   p_branch_comment=> 'Created 10-DEC-2007 10:29 by MULLENM');
  
 wwv_flow_api.create_page_branch(
@@ -34034,7 +34050,7 @@ wwv_flow_api.create_page(
   p_step_template => '',
   p_required_patch=> null + wwv_flow_api.g_id_offset,
   p_last_updated_by => 'MULLENM',
-  p_last_upd_yyyymmddhh24miss => '20080124092221',
+  p_last_upd_yyyymmddhh24miss => '20080206112827',
   p_page_is_public_y_n=> 'N',
   p_page_comment  => '');
  
@@ -34551,7 +34567,6 @@ wwv_flow_api.create_page_button(
   p_button_redirect_url=> 'javascript:confirmDelete(htmldb_delete_message,''DELETE'');',
   p_button_condition=> 'P66_ID',
   p_button_condition_type=> 'ITEM_IS_NOT_NULL',
-  p_database_action=>'DELETE',
   p_required_patch => null + wwv_flow_api.g_id_offset);
  
  
@@ -35819,7 +35834,38 @@ declare
   l_clob clob;
   l_length number := 1;
 begin
-p:=p||'#OWNER#:PARTIES:P66_ID:ID|UD';
+p:=p||'#OWNER#.mip_parties.remove_party(p_prty_id => :P66_ID);';
+
+wwv_flow_api.create_page_process(
+  p_id     => 33267206473805609 + wwv_flow_api.g_id_offset,
+  p_flow_id=> wwv_flow.g_flow_id,
+  p_flow_step_id => 66,
+  p_process_sequence=> 20,
+  p_process_point=> 'AFTER_SUBMIT',
+  p_process_type=> 'PLSQL',
+  p_process_name=> 'delete_party',
+  p_process_sql_clob => p, 
+  p_process_error_message=> 'There was an error whilst attempting to remove the party.',
+  p_process_when_button_id=>20935612994296944 + wwv_flow_api.g_id_offset,
+  p_process_success_message=> 'Party removed successfully.',
+  p_process_is_stateful_y_n=>'N',
+  p_required_patch=>null + wwv_flow_api.g_id_offset,
+  p_process_comment=>'');
+end;
+null;
+ 
+end;
+/
+
+ 
+begin
+ 
+declare
+  p varchar2(32767) := null;
+  l_clob clob;
+  l_length number := 1;
+begin
+p:=p||'#OWNER#:PARTIES:P66_ID:ID|U';
 
 wwv_flow_api.create_page_process(
   p_id     => 20943030829296948 + wwv_flow_api.g_id_offset,
@@ -35831,6 +35877,8 @@ wwv_flow_api.create_page_process(
   p_process_name=> 'Process Row of PARTIES',
   p_process_sql_clob => p, 
   p_process_error_message=> 'Unable to process row of table PARTIES.',
+  p_process_when=>'DELETE',
+  p_process_when_type=>'REQUEST_NOT_EQUAL_CONDITION',
   p_process_success_message=> 'Action Processed.',
   p_process_is_stateful_y_n=>'N',
   p_required_patch=>null + wwv_flow_api.g_id_offset,
@@ -41855,7 +41903,7 @@ wwv_flow_api.create_list_item (
   p_item_displayed=> 'BY_DEFAULT',
   p_list_item_display_sequence=>261,
   p_list_item_link_text=> 'Create Party',
-  p_list_item_link_target=> 'f?p=&APP_ID.:61:&SESSION.::&DEBUG.::::',
+  p_list_item_link_target=> 'f?p=&APP_ID.:61:&SESSION.::&DEBUG.:61:::',
   p_parent_list_item_id=> 19236704960763690 + wwv_flow_api.g_id_offset,
   p_list_countclicks_y_n=> 'N',
   p_list_text_01=> '',