src-db/database/model/functions/M_INOUT_CANCEL.xml
changeset 1605 8a0fe0193bef
parent 1273 3f48377a0023
child 6701 690d2af86089
equal deleted inserted replaced
1604:a1c518e6ed93 1605:8a0fe0193bef
     1 <?xml version="1.0"?>
     1 <?xml version="1.0"?>
     2   <database name="FUNCTION M_INOUT_CANCEL">
     2   <database name="FUNCTION M_INOUT_CANCEL">
     3     <function name="M_INOUT_CANCEL" type="NULL">
     3     <function name="M_INOUT_CANCEL" type="NULL">
     4       <parameter name="p_pinstance_id" type="NUMERIC" mode="in">
     4       <parameter name="p_pinstance_id" type="VARCHAR" mode="in">
     5         <default/>
     5         <default/>
     6       </parameter>
     6       </parameter>
     7       <parameter name="p_order_id" type="NUMERIC" mode="in">
     7       <parameter name="p_order_id" type="VARCHAR" mode="in">
     8         <default><![CDATA[NULL]]></default>
     8         <default><![CDATA[NULL]]></default>
     9       </parameter>
     9       </parameter>
    10       <body><![CDATA[/*************************************************************************
    10       <body><![CDATA[/*************************************************************************
    11   * The contents of this file are subject to the Compiere Public
    11   * The contents of this file are subject to the Compiere Public
    12   * License 1.1 ("License"); You may not use this file except in
    12   * License 1.1 ("License"); You may not use this file except in
    33   * Description:
    33   * Description:
    34   ************************************************************************/
    34   ************************************************************************/
    35   -- Logistice
    35   -- Logistice
    36   v_ResultStr VARCHAR2(2000):='';
    36   v_ResultStr VARCHAR2(2000):='';
    37   v_Message VARCHAR2(2000):='';
    37   v_Message VARCHAR2(2000):='';
    38   v_Record_ID NUMBER;
    38   v_Record_ID VARCHAR2(32);
    39   -- Parameter
    39   -- Parameter
    40   TYPE RECORD IS REF CURSOR;
    40   TYPE RECORD IS REF CURSOR;
    41     Cur_Parameter RECORD;
    41     Cur_Parameter RECORD;
    42     -- Parameter Variables
    42     -- Parameter Variables
    43     --
    43     --
    44     Cur_InOut RECORD;
    44     Cur_InOut RECORD;
    45     v_AD_Client_ID NUMBER;
    45     v_AD_Client_ID VARCHAR2(32);
    46     
    46     
    47   BEGIN
    47   BEGIN
    48     --  Update AD_PInstance
    48     --  Update AD_PInstance
    49     IF(p_PInstance_ID IS NOT NULL) THEN
    49     IF(p_PInstance_ID IS NOT NULL) THEN
    50       DBMS_OUTPUT.PUT_LINE('Updating PInstance - Processing ' || p_PInstance_ID) ;
    50       DBMS_OUTPUT.PUT_LINE('Updating PInstance - Processing ' || p_PInstance_ID) ;