src-db/database/model/functions/C_ORDER_DRILLDOWN.xml
changeset 1605 8a0fe0193bef
parent 799 fef2c5e2feb7
equal deleted inserted replaced
1604:a1c518e6ed93 1605:8a0fe0193bef
     1 <?xml version="1.0"?>
     1 <?xml version="1.0"?>
     2   <database name="FUNCTION C_ORDER_DRILLDOWN">
     2   <database name="FUNCTION C_ORDER_DRILLDOWN">
     3     <function name="C_ORDER_DRILLDOWN" type="NULL">
     3     <function name="C_ORDER_DRILLDOWN" type="NULL">
     4       <parameter name="pinstance_id" type="NUMERIC" mode="in">
     4       <parameter name="pinstance_id" type="VARCHAR" mode="in">
     5         <default/>
     5         <default/>
     6       </parameter>
     6       </parameter>
     7       <body><![CDATA[/*************************************************************************
     7       <body><![CDATA[/*************************************************************************
     8   * The contents of this file are subject to the Compiere Public
     8   * The contents of this file are subject to the Compiere Public
     9   * License 1.1 ("License"); You may not use this file except in
     9   * License 1.1 ("License"); You may not use this file except in
    27   * List Orders with their Shipments and Invoices
    27   * List Orders with their Shipments and Invoices
    28   * Spool to T_Spool
    28   * Spool to T_Spool
    29   */
    29   */
    30   v_ResultStr VARCHAR2(2000):='';
    30   v_ResultStr VARCHAR2(2000):='';
    31   v_Message VARCHAR2(2000):='';
    31   v_Message VARCHAR2(2000):='';
    32   v_Record_ID NUMBER;
    32   v_Record_ID VARCHAR2(32);
    33   TYPE RECORD IS REF CURSOR;
    33   TYPE RECORD IS REF CURSOR;
    34     Cur_Parameter RECORD;
    34     Cur_Parameter RECORD;
    35     -- Parameter
    35     -- Parameter
    36     C_Order_ID NUMBER;
    36     C_Order_ID VARCHAR2(32);
    37     --
    37     --
    38     Cur_Order RECORD;
    38     Cur_Order RECORD;
    39     v_T_Spool_ID NUMBER;
    39     v_T_Spool_ID VARCHAR2(32);
    40     v_Client_ID NUMBER;
    40     v_Client_ID VARCHAR2(32);
    41   BEGIN
    41   BEGIN
    42     -- No locking or Updating
    42     -- No locking or Updating
    43     -- Get Parameters
    43     -- Get Parameters
    44     v_ResultStr:='ReadingParameters';
    44     v_ResultStr:='ReadingParameters';
    45     FOR Cur_Parameter IN
    45     FOR Cur_Parameter IN
    57       )
    57       )
    58     LOOP
    58     LOOP
    59       v_Record_ID:=Cur_Parameter.Record_ID;
    59       v_Record_ID:=Cur_Parameter.Record_ID;
    60       v_Client_ID:=Cur_Parameter.AD_CLIENT_ID;
    60       v_Client_ID:=Cur_Parameter.AD_CLIENT_ID;
    61       IF(Cur_Parameter.ParameterName='C_Order_ID') THEN
    61       IF(Cur_Parameter.ParameterName='C_Order_ID') THEN
    62         C_Order_ID:=Cur_Parameter.P_Number;
    62         C_Order_ID:=Cur_Parameter.P_String;
    63         DBMS_OUTPUT.PUT_LINE('  C_Order_ID=' || C_Order_ID) ;
    63         DBMS_OUTPUT.PUT_LINE('  C_Order_ID=' || C_Order_ID) ;
    64       ELSE
    64       ELSE
    65         DBMS_OUTPUT.PUT_LINE('*** Unknown Parameter=' || Cur_Parameter.ParameterName) ;
    65         DBMS_OUTPUT.PUT_LINE('*** Unknown Parameter=' || Cur_Parameter.ParameterName) ;
    66       END IF;
    66       END IF;
    67     END LOOP; -- Get Parameter
    67     END LOOP; -- Get Parameter