0013436: New extension point in shipments

Index: src-db/database/sourcedata/AD_EXTENSION_POINTS.xml
===================================================================
RCS file: /srv/cvs/openbravo/PB001-ComercialPeralba/src-db/database/sourcedata/AD_EXTENSION_POINTS.xml,v
retrieving revision 1.1
diff -u -r1.1 AD_EXTENSION_POINTS.xml
--- src-db/database/sourcedata/AD_EXTENSION_POINTS.xml	14 Apr 2010 13:33:56 -0000	1.1
+++ src-db/database/sourcedata/AD_EXTENSION_POINTS.xml	25 May 2010 16:40:25 -0000
@@ -10,6 +10,16 @@
 <!--1C3043156C334398AA114F7E0AB6A18B-->  <ISACTIVE><![CDATA[Y]]></ISACTIVE>
 <!--1C3043156C334398AA114F7E0AB6A18B--></AD_EXTENSION_POINTS>
 
+<!--53E71B5641734BB296EC1C3D1EE64886--><AD_EXTENSION_POINTS>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <AD_EXTENSION_POINTS_ID><![CDATA[53E71B5641734BB296EC1C3D1EE64886]]></AD_EXTENSION_POINTS_ID>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <AD_CLIENT_ID><![CDATA[0]]></AD_CLIENT_ID>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <AD_ORG_ID><![CDATA[0]]></AD_ORG_ID>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <NAME><![CDATA[M_Inout_Post - Finish Process]]></NAME>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <DESCRIPTION><![CDATA[Extension point at the end of the M_Inout_Post. It has 5 available parameters Record_ID, DocAction, User, Message and Result]]></DESCRIPTION>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <AD_MODULE_ID><![CDATA[0]]></AD_MODULE_ID>
+<!--53E71B5641734BB296EC1C3D1EE64886-->  <ISACTIVE><![CDATA[Y]]></ISACTIVE>
+<!--53E71B5641734BB296EC1C3D1EE64886--></AD_EXTENSION_POINTS>
+
 <!--C485210A6F754FE0A6E32FA24B3B243C--><AD_EXTENSION_POINTS>
 <!--C485210A6F754FE0A6E32FA24B3B243C-->  <AD_EXTENSION_POINTS_ID><![CDATA[C485210A6F754FE0A6E32FA24B3B243C]]></AD_EXTENSION_POINTS_ID>
 <!--C485210A6F754FE0A6E32FA24B3B243C-->  <AD_CLIENT_ID><![CDATA[0]]></AD_CLIENT_ID>
Index: src-db/database/model/functions/M_INOUT_POST.xml
===================================================================
RCS file: /srv/cvs/openbravo/PB001-ComercialPeralba/src-db/database/model/functions/M_INOUT_POST.xml,v
retrieving revision 1.1
diff -u -r1.1 M_INOUT_POST.xml
--- src-db/database/model/functions/M_INOUT_POST.xml	14 Apr 2010 13:34:23 -0000	1.1
+++ src-db/database/model/functions/M_INOUT_POST.xml	25 May 2010 16:40:25 -0000
@@ -27,7 +27,7 @@
   * Specifically, this derivative work is based upon the following Compiere
   * file and version.
   *************************************************************************
-  * $Id: M_INOUT_POST.xml,v 1.1 2010/04/14 13:34:23 abeade Exp $
+  * $Id: M_InOut_Post.sql,v 1.8 2003/09/05 04:58:06 jjanke Exp $
   ***
   * Title: Post M_InOut_ID
   * Description:
@@ -88,6 +88,7 @@
     v_OrderID_old VARCHAR2(32);
     FINISH_PROCESS BOOLEAN:=false;
     v_Aux NUMBER;
+    v_DocAction VARCHAR(60);
   BEGIN
     IF(p_PInstance_ID IS NOT NULL) THEN
       --  Update AD_PInstance
@@ -262,6 +263,7 @@
         LOOP
           DBMS_OUTPUT.PUT_LINE('Shipment_ID=' || Cur_InOut.M_InOut_ID || ', Doc=' || Cur_InOut.DocumentNo || ', Status=' || Cur_InOut.DocStatus || ', Action=' || Cur_InOut.DocAction) ;
           v_ResultStr:='HeaderLoop';
+          v_DocAction:=Cur_InOut.DocAction;
           /**
           * Shipment not processed
           */
@@ -628,12 +630,49 @@
             DocStatus='VO' -- the reversal transaction
           WHERE M_InOut_ID=v_RInOut_ID;
         END IF; -- ReverseCorrection
+
+        --M_Inout_Post - Finish_Process Extension Point
+        SELECT count(*) INTO v_count
+        FROM DUAL
+        where exists (select 1 from ad_ep_procedures where ad_extension_points_id = '53E71B5641734BB296EC1C3D1EE64886');
+        IF (v_count=1) THEN
+          DECLARE
+            v_ep_instance VARCHAR2(32);
+            v_extension_point_id VARCHAR2(32) := '53E71B5641734BB296EC1C3D1EE64886';
+          BEGIN
+            v_ep_instance := get_uuid();
+            AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'Record_ID',
+              v_record_id, NULL, NULL, NULL, NULL, NULL, NULL);
+            AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'DocAction',
+              v_DocAction, NULL, NULL, NULL, NULL, NULL, NULL);
+            AD_EP_INSTANCE_PARA_INSERT(v_ep_instance, v_extension_point_id, 'User',
+              v_User, 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;
+        
       END LOOP; -- InOut Header
       /**
       * Transaction End
       */
       v_ResultStr:='Fini';
     END IF; --FINISH_PROCESS
+        
     --<<FINISH_PROCESS>>
     IF(p_PInstance_ID IS NOT NULL) THEN
       --  Update AD_PInstance