0027786: Add extension point for m_pricelist_create

diff --git a/src-db/database/sourcedata/AD_EXTENSION_POINTS.xml b/src-db/database/sourcedata/AD_EXTENSION_POINTS.xml
--- a/src-db/database/sourcedata/AD_EXTENSION_POINTS.xml
+++ b/src-db/database/sourcedata/AD_EXTENSION_POINTS.xml
@@ -1,4 +1,4 @@
-<?xml version='1.0' encoding='UTF-8'?>
+<?xml version="1.0" encoding="UTF-8"?>
 <data>
 <!--1117A5F3D17F4B7E85B41838C9F31DE4--><AD_EXTENSION_POINTS>
 <!--1117A5F3D17F4B7E85B41838C9F31DE4-->  <AD_EXTENSION_POINTS_ID><![CDATA[1117A5F3D17F4B7E85B41838C9F31DE4]]></AD_EXTENSION_POINTS_ID>
@@ -90,6 +90,16 @@
 <!--C485210A6F754FE0A6E32FA24B3B243C-->  <ISACTIVE><![CDATA[Y]]></ISACTIVE>
 <!--C485210A6F754FE0A6E32FA24B3B243C--></AD_EXTENSION_POINTS>
 
+<!--C4D70CF1F5454B49B7FA1D9704DB086C--><AD_EXTENSION_POINTS>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <AD_EXTENSION_POINTS_ID><![CDATA[C4D70CF1F5454B49B7FA1D9704DB086C]]></AD_EXTENSION_POINTS_ID>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <AD_CLIENT_ID><![CDATA[0]]></AD_CLIENT_ID>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <AD_ORG_ID><![CDATA[0]]></AD_ORG_ID>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <NAME><![CDATA[M_Pricelist_Create - Finish Process]]></NAME>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <DESCRIPTION><![CDATA[Extension point at the end of the M_Pricelist_Create. It has 5 available parameters Record_ID, DocAction, User, Message and Result]]></DESCRIPTION>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <AD_MODULE_ID><![CDATA[0]]></AD_MODULE_ID>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C-->  <ISACTIVE><![CDATA[Y]]></ISACTIVE>
+<!--C4D70CF1F5454B49B7FA1D9704DB086C--></AD_EXTENSION_POINTS>
+
 <!--CB68FC0E8A4547D9943C785761977E77--><AD_EXTENSION_POINTS>
 <!--CB68FC0E8A4547D9943C785761977E77-->  <AD_EXTENSION_POINTS_ID><![CDATA[CB68FC0E8A4547D9943C785761977E77]]></AD_EXTENSION_POINTS_ID>
 <!--CB68FC0E8A4547D9943C785761977E77-->  <AD_CLIENT_ID><![CDATA[0]]></AD_CLIENT_ID>

diff --git a/src-db/database/model/functions/M_PRICELIST_CREATE.xml b/src-db/database/model/functions/M_PRICELIST_CREATE.xml
--- a/src-db/database/model/functions/M_PRICELIST_CREATE.xml
+++ b/src-db/database/model/functions/M_PRICELIST_CREATE.xml
@@ -52,6 +52,8 @@
     v_Costbased M_PriceList.Costbased%TYPE;
     v_validfromdate M_PriceList_Version.ValidFrom%TYPE;
     v_isCostMigrated NUMBER;
+    v_count NUMBER;
+    v_Result NUMBER:=1; -- Success
     --
     -- Get PL Parameter
     Cur_DiscountLine RECORD;
@@ -547,6 +549,39 @@
       END LOOP; -- For all DiscountLines
       -- Delete Temporary Selection
       DELETE FROM C_TEMP_Selection;
+
+      --M_Pricelist_Create - Finish_Process Extension Point
+      SELECT count(*) INTO v_count
+      FROM DUAL
+      where exists (select 1 from ad_ep_procedures where ad_extension_points_id = 'C4D70CF1F5454B49B7FA1D9704DB086C');
+      IF (v_count=1) THEN
+        DECLARE
+          v_ep_instance VARCHAR2(32);
+          v_extension_point_id VARCHAR2(32) := 'C4D70CF1F5454B49B7FA1D9704DB086C';
+        BEGIN
+          v_ep_instance := get_uuid();
+          AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'Record_ID',
+            v_PriceList_Version_ID, NULL, NULL, NULL, NULL, NULL, NULL);
+          AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'User',
+            v_UpdatedBy, NULL, NULL, NULL, NULL, NULL, NULL);
+          AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'Message',
+            NULL, NULL, NULL, NULL, NULL, NULL, v_Message);
+          AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'Result',
+            NULL, NULL, v_result, NULL, NULL, NULL, NULL);
+          AD_EXTENSION_POINT_HANDLER(v_ep_instance, v_extension_point_id);
+          SELECT p_number INTO v_Result
+          FROM ad_ep_instance_para
+          WHERE ad_ep_instance_id = v_ep_instance
+            AND parametername LIKE 'Result';
+          SELECT p_text INTO v_Message
+          FROM ad_ep_instance_para
+          WHERE ad_ep_instance_id = v_ep_instance
+            AND parametername LIKE 'Message';
+
+          DELETE FROM ad_ep_instance_para
+          WHERE ad_ep_instance_id = v_ep_instance;
+        END;
+      END IF;
       --<<FINISH_PROCESS>>
       --  Update AD_PInstance
       DBMS_OUTPUT.PUT_LINE(v_Message) ;