Record the party selecting a quote.

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

Data/Seed/rt.ctl

@@ -18,6 +18,7 @@ HIGH DEFINITION DRAWING|High definition drawing|DORT
 MANUAL QUOTATION|Manually generated quotation|DORT
 GENERATED QUOTATION|WebMIP generated quotation|DORT
 ENQUIRY SUPPORTING DOC|User-supplied documentation to support enquiry|DORT
+Q SEL|Selected quotation|QURT
 OFFICE|Office|PART
 HOME|Home|PART
 BILLADDR|Billing inquiries|PCMRT
@@ -43,8 +44,8 @@ EXTORG|External organization|PRT
 MEMBER|Member of a group|PRT
 Q RFQ|Submitted request for quotation|QURT
 Q OWN|Owner of quotation|QURT
-Q ACC|Owner of accepted quotation|QURT
-Q REJ|Owner of rejected quotation|QURT
+Q ACC|Accepted quotation|QURT
+Q REJ|Rejected quotation|QURT
 Q SUBACC|Submitted acceptance of quotation|QURT
 Q SUBREJ|Submitted rejection of quotation|QURT
 ENQ SUPP|Supplier for Enquiry|ENRT

Modules/Modules.sql

@@ -23,5 +23,6 @@ exec gen_mandatory
 @@get_quote_items.fnc
 @@mip_bulk_Load.pck
 @@mip_tripartite.pck
+@@mip_virus_check.pck
 @@compile.sql
 exit

Modules/mip_quotation.pck

@@ -274,6 +274,13 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
                    ,p_event_date  => p_event_date
                    ,p_description => p_description);
   
+    add_quote_role(p_qute_id     => p_qute_id
+                  ,p_prty_id     => nvl(p_owner_prty_id
+                                       ,p_prty_id)
+                  ,p_rt_code     => 'Q SEL'
+                  ,p_description => p_description
+                  ,p_start_date  => p_event_date);
+  
     FOR l_rec IN (SELECT id
                     FROM quotes
                    WHERE enqu_id = (SELECT enqu_id