new function in mip_files to set the file association for drawings/enquiries and quotes. Fixed a few more bugs in the quote pdf builder, and have made a short start on getting the module drawings into the quote.

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

Modules/MIP_FILES.pck

@@ -5,6 +5,15 @@ create or replace package MIP_FILES is
   -- Purpose : Handle files for the webMIP system
 
   -- Public function and procedure declarations
+function set_file_association(p_uri in varchar2,
+                              p_description in varchar2,
+                              p_docu_type in varchar2,
+                              p_rt_code in varchar2,
+                              p_qute_id in number,
+                              p_enqu_id in number,
+                              p_drwg_code in varchar2,
+                              p_doro_type in varchar2) return boolean;
+                              
 PROCEDURE export_table_to_csv(p_table IN VARCHAR2,
                              p_column_headers IN VARCHAR2,
                              p_delimiter IN VARCHAR2 DEFAULT ',');
@@ -13,6 +22,38 @@ end MIP_FILES;
 /
 create or replace package body MIP_FILES as
 
+function set_file_association(p_uri in varchar2,
+                              p_description in varchar2,
+                              p_docu_type in varchar2,
+                              p_rt_code in varchar2,
+                              p_qute_id in number,
+                              p_enqu_id in number,
+                              p_drwg_code in varchar2,
+                              p_doro_type in varchar2) return boolean is
+  l_doc_id number;
+  
+begin
+    --reference it in the documents table
+    insert into documents( uri, description, id, docu_type )
+    values (p_uri,
+            p_description,
+            docu_seq.NEXTVAL,
+            p_docu_type)  
+    returning id into l_doc_id;
+    --set up a role for the document
+    insert into document_roles(rt_code, start_date,description,qute_id,enqu_id,drwg_code,id,doro_type,docu_id)    
+    values (p_rt_code,
+            sysdate,
+            p_description,
+            p_qute_id,
+            p_enqu_id,
+            p_drwg_code,
+            doro_seq.NEXTVAL,
+            p_doro_type,
+            l_doc_id);     
+    --if it works then return true
+    return true;
+end set_file_association;
   /*
    PROCEDURE export_data_to_csv
    - allows an admin user to create a CSV export of a table in webMIP.