Record the party selecting a quote.

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

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