oracle ebs 采购订单导入 来源参考 Oracle metalink

前端之家收集整理的这篇文章主要介绍了oracle ebs 采购订单导入 来源参考 Oracle metalink前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
/*
 =======================================================================================================
 Name : Create Standard Purchase Order


 Purpose : This plsql program is used to insert data into PO interface table to create Standard
           Purchase Order through PDOI: Import Standard Purchase Order Concurrent Program


 History:


Date         Action     By        


15-FEB-2010  Created    Supriya
 =======================================================================================================
 */
DECLARE


------------------------------------------------------------------------------------
--Define Mandatory column variables to insert into interface tables. Values to all
-- Variables need to be intialized with required data before running the script.
------------------------------------------------------------------------------------


---------------------------------------------------------------------------------
--Header level information
---------------------------------------------------------------------------------
--This provides batch id which is used to run particular set of data
l_batch_id		 po_headers_interface.batch_id%TYPE := 100;


--Contains Organization ID
l_org_id		 po_headers_interface.org_id%TYPE := 204;


--Contains Agent ID for which PO is created
l_agent_id		 po_headers_interface.agent_id%TYPE := 25;


--Contains Vendor ID
l_vendor_id		 po_headers_interface.vendor_id%TYPE := 21;


--Contains Vendor Site ID 
l_vendor_site_id	 po_headers_interface.vendor_site_id%TYPE := 41;


--Contains Ship to Location ID
l_ship_to_location_id    po_headers_interface.ship_to_location_id%TYPE := 204;


--Contains Bill to Location ID
l_bill_to_location_id    po_headers_interface.bill_to_location_id%TYPE := 204;


--Contains Ship to Organization ID
l_ship_to_org_id    po_line_locations_interface.ship_to_organization_id%TYPE := 204;


-- Contains Attribute value which can be your username 
-- which can be used to check records inserted by the user
l_attribute1             po_headers_interface.attribute1%TYPE := 'SBONTALA';


---------------------------------------------------------------------------------
--Line level information
---------------------------------------------------------------------------------
--Contains Line type 
l_line_type              po_lines_interface.line_type%TYPE := 'Goods';


--Contains Line information
l_item                   po_lines_interface.item%TYPE := 'AS10000';


--Specifies UOM code 
l_uom_code               po_lines_interface.uom_code%TYPE := 'Ea';


--Contains Quantity required of the item
l_quantity               po_lines_interface.quantity%TYPE := 100;


--Contains Unit price of the Item
l_unit_price             po_lines_interface.unit_price%TYPE:= 100;


--Contains charge account ID for the item distribution
l_charge_account_id      po_distributions_interface.charge_account_id%TYPE := 13402;




-- Specifies number of Purchase order to be created
l_header_count   NUMBER := 1;


--Specifies number of lines to be created per PO
l_line_count     NUMBER := 2;


--Specifies number of shipments to be created per line
l_shipment_count NUMBER :=  2;


--Specifies number of distributions to be created per shipment
l_dist_count     NUMBER :=  2;


--To track progess 
l_progress       VARCHAR2(10) ;


BEGIN


--Header Loop
FOR hdr_cnt IN 1..L_header_count
LOOP


 ---- Inserting into header interface table
   l_progress := '001';
   Insert into PO.PO_HEADERS_INTERFACE
	   (INTERFACE_HEADER_ID,BATCH_ID,PROCESS_CODE,ACTION,ORG_ID,DOCUMENT_TYPE_CODE,CURRENCY_CODE,AGENT_ID,VENDOR_ID,VENDOR_SITE_ID,SHIP_TO_LOCATION_ID,BILL_TO_LOCATION_ID,ATTRIBUTE1,CREATION_DATE)
	 VALUES 
	 ( po_headers_interface_s.NEXTVAL,--- INTERFACE_HEADER_ID,l_batch_id,'PENDING',--- PROCESS_CODE,'ORIGINAL',--- ACTION,l_org_id,--- ORG_ID,'STANDARD',--- DOCUMENT_TYPE_CODE,'USD',--- CURRENCY_CODE,l_agent_id,l_vendor_id,l_vendor_Site_id,l_ship_to_location_id,l_bill_to_location_id,l_attribute1,SYSDATE );	--- CREATION_DATE,---Line Loop
          FOR line_cnt IN 1..l_line_count LOOP 


	   --- Inserting into Lines interface table
                l_progress := '002';
		Insert into PO.PO_LINES_INTERFACE
		   (INTERFACE_LINE_ID,INTERFACE_HEADER_ID,LINE_NUM,LINE_TYPE,ITEM,UOM_CODE,QUANTITY,UNIT_PRICE,SHIP_TO_ORGANIZATION_ID,NEED_BY_DATE,PROMISED_DATE,CREATION_DATE,LINE_LOC_POPULATED_FLAG)
		 Values
		   (po_lines_interface_s.nextval,--- INTERFACE_LINE_ID,po_headers_interface_s.currval,'ADD',line_cnt,--- LINE_NUM,l_line_type,l_item,l_uom_code,l_quantity,l_unit_price,l_ship_to_org_id,SYSDATE,--- NEED_BY_DATE,--- PROMISED_DATE,--- CREATION_DATE,'Y');--- LINE_LOC_POPULATED_FLAG,----Shipment Loop
	     FOR ship_cnt IN 1..l_shipment_count LOOP 


               ---Inserting into Line Locations Interface table
	        l_progress := '003';
	        Insert into PO.PO_LINE_LOCATIONS_INTERFACE
			   (INTERFACE_LINE_LOCATION_ID,INTERFACE_LINE_ID,SHIPMENT_TYPE,SHIPMENT_NUM,CREATION_DATE)
			 Values
			   (po_line_locations_interface_s.nextval,--- INTERFACE_LINE_LOCATION_ID,po_lines_interface_s.currval,--- SHIPMENT_TYPE,ship_cnt,--- SHIPMENT_NUM,--- SHIP_TO_ORGANIZATION_ID,--- SHIP_TO_LOCATION_ID,l_quantity/l_shipment_count,--- QUANTITY,SYSDATE);--- CREATION_DATE,--Distribution Loop			   
		    FOR dist_cnt IN 1..l_dist_count LOOP 
		      
                     ---Inserting into Distribution Interface table
		      l_progress := '004';
		      Insert into PO.PO_DISTRIBUTIONS_INTERFACE
				   (INTERFACE_HEADER_ID,INTERFACE_LINE_LOCATION_ID,INTERFACE_DISTRIBUTION_ID,DISTRIBUTION_NUM,QUANTITY_ORDERED,CHARGE_ACCOUNT_ID,CREATION_DATE)
				 Values
				   (po_headers_interface_s.currval,---	INTERFACE_HEADER_ID,po_line_locations_interface_s.currval,---	INTERFACE_LINE_LOCATION_ID,po.po_distributions_interface_s.NEXTVAL,--- INTERFACE_DISTRIBUTION_ID,dist_cnt,--- DISTRIBUTION_NUM,l_quantity/(l_shipment_count*l_dist_count),--- QUANTITY_ORDERED,l_charge_account_id,SYSDATE);             
		     END LOOP; ---End of Distribution Loop                    
              END LOOP;---End of shipment Loop  
         END LOOP;---End of Line Loop  
  END LOOP;---End of Header Loop 


COMMIT;


EXCEPTION


WHEN OTHERS THEN


dbms_output.put_line('Error while inserting data at :'||l_progress||'---'||sqlCODE||sqlERRM);


END;

/*
 =======================================================================================================
 Name : Update Standard Purchase Order -- Adding Lines to the Purchase Order

 Purpose : This plsql program is used to Add lines to existing standard purchase order through 
           PDOI : Import standard Purchase Order concurrent program
 =======================================================================================================
 */
DECLARE

------------------------------------------------------------------------------------
--Define Mandatory column variables to insert into interface tables. Values to all
-- Variables need to be intialized with required data before running the script.
------------------------------------------------------------------------------------

---------------------------------------------------------------------------------
--Header level information
---------------------------------------------------------------------------------
--This provides batch id which is used to run particular set of data
l_batch_id		 po_headers_interface.batch_id%TYPE := 100;

--Contains Organization ID
l_org_id		 po_headers_interface.org_id%TYPE := 204;


--Contains Ship to Location ID
l_ship_to_location_id    po_headers_interface.ship_to_location_id%TYPE := 204;

--Contains Bill to Location ID
l_bill_to_location_id    po_headers_interface.bill_to_location_id%TYPE := 204;

--Contains Ship to Organization ID
l_ship_to_org_id    po_line_locations_interface.ship_to_organization_id%TYPE := 204;

-- Contains Attribute value which can be your username 
-- which can be used to check records inserted by the user
l_attribute1             po_headers_interface.attribute1%TYPE := 'SBONTALA';

--Specifies PO header Id to be updated
l_po_header_id         po_headers_interface.po_header_id%TYPE := 198441;

---------------------------------------------------------------------------------
--Line level information
---------------------------------------------------------------------------------
--Contains Line type 
l_line_type              po_lines_interface.line_type%TYPE := 'Goods';

--Contains Item information
l_item                   po_lines_interface.item%TYPE := 'f12000';

--Specifies UOM code 
l_uom_code               po_lines_interface.uom_code%TYPE := 'Ea';

--Contains Quantity required of the item
l_quantity               po_lines_interface.quantity%TYPE := 100;

--Contains Unit price of the Item
l_unit_price             po_lines_interface.unit_price%TYPE:= 100;

--Contains charge account ID for the item distribution
l_charge_account_id      po_distributions_interface.charge_account_id%TYPE := 13402;

--Contains the line number from which lines are added to the purchase order
l_line_num    NUMBER;

--Specifies number of lines to be created per PO
l_line_count     NUMBER := 1;

--Specifies number of shipments to be created per line
l_shipment_count NUMBER :=  1;

--Specifies number of distributions to be created per shipment
l_dist_count     NUMBER :=  1;

--To track progess 
l_progress       VARCHAR2(10) ;

BEGIN

 ---- Inserting into header interface table
 l_progress := '001';
   Insert into PO.PO_HEADERS_INTERFACE
	   (INTERFACE_HEADER_ID,po_header_id,---INTERFACE_HEADER_ID,---PROCESS_CODE,'UPDATE',---ACTION,l_po_header_id,SYSDATE );	---CREATION_DATE,--- Fetching the maximum line number from lines table for the given  header id
    FOR i IN (SELECT MAX(line_num) cnt FROM po_lines_all WHERE po_header_id = l_po_header_id)
    LOOP     
       l_line_num := i.cnt;
    END LOOP ;

        --Line loop
       FOR line_cnt IN 1..l_line_count LOOP 
                
            --Incrementing the line number
            l_line_num := l_line_num + 1;

	      --- Inserting into Lines interface table
                l_progress := '002';
		Insert into PO.PO_LINES_INTERFACE
		   (INTERFACE_LINE_ID,---	INTERFACE_LINE_ID,l_line_num,---  NEED_BY_DATE,---  PROMISED_DATE,---  CREATION_DATE,'Y');	 ---  LINE_LOC_POPULATED_FLAG,----Shipment Loop
	      FOR ship_cnt IN 1..l_shipment_count LOOP 

                ---Inserting into Line Locations Interface table
	        l_progress := '003';
	        Insert into PO.PO_LINE_LOCATIONS_INTERFACE
			   (INTERFACE_LINE_LOCATION_ID,---	    SHIPMENT_TYPE,---	    SHIPMENT_NUM,---  SHIP_TO_LOCATION_ID,---	    NEED_BY_DATE,---	    PROMISED_DATE,---  QUANTITY,SYSDATE);	---	    CREATION_DATE,--Distribution Loop		
		    FOR dist_cnt IN 1..l_dist_count LOOP 
                      
                    ---Inserting into Distribution Interface table
		      l_progress := '004';
		      Insert into PO.PO_DISTRIBUTIONS_INTERFACE
				   (INTERFACE_HEADER_ID,---	    INTERFACE_LINE_ID,---	    INTERFACE_LINE_LOCATION_ID,---	    DISTRIBUTION_NUM,---	    ORG_ID,---	    QUANTITY_ORDERED,---	    CHARGE_ACCOUNT_ID      
				    SYSDATE);  
                 END LOOP; ---End of Distribution Loop                    
              END LOOP;---End of shipment Loop  
         END LOOP;---End of Line Loop   

COMMIT;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('Error while inserting data at :'||l_progress||sqlCODE||sqlERRM);

END;

/*
 =======================================================================================================
 Name : Create Blanket Purchase Agreement

 Purpose : This plsql program is used to create BPA through PDOI : Import price catalog concurrent 
           program
 =======================================================================================================
 */
DECLARE


------------------------------------------------------------------------------------
--Define Mandatory column variables to insert into interface tables. Values to all
-- Variables need to be intialized with required data before running the script.
------------------------------------------------------------------------------------

---------------------------------------------------------------------------------
--Header level information
---------------------------------------------------------------------------------
--This provides batch id which is used to run particular set of data
l_batch_id		 po_headers_interface.batch_id%TYPE := 100;

--Contains Organization ID
l_org_id		 po_headers_interface.org_id%TYPE := 204;

--Contains Agent ID for which PO is created
l_agent_id		 po_headers_interface.agent_id%TYPE := 25;

--Contains Vendor ID
l_vendor_id		 po_headers_interface.vendor_id%TYPE := 21;

--Contains Vendor Site ID 
l_vendor_site_id	 po_headers_interface.vendor_site_id%TYPE := 41;

--Contains Ship to Location ID
l_ship_to_location_id    po_headers_interface.ship_to_location_id%TYPE := 204;

--Contains Bill to Location ID
l_bill_to_location_id    po_headers_interface.bill_to_location_id%TYPE := 204;

--Contains Ship to Organization ID
l_ship_to_org_id    po_line_locations_interface.ship_to_organization_id%TYPE := 204;

-- Contains Attribute value which can be your username 
-- which can be used to check records inserted by the user
l_attribute1             po_headers_interface.attribute1%TYPE := 'SBONTALA';

---------------------------------------------------------------------------------
--Line level information
---------------------------------------------------------------------------------
--Contains Line type 
l_line_type              po_lines_interface.line_type%TYPE := 'Goods';

--Contains Item information
l_item                   po_lines_interface.item%TYPE := 'AS10000';

--Specifies UOM code 
l_uom_code               po_lines_interface.uom_code%TYPE := 'Ea';

--Contains Unit price of the Item
l_unit_price             po_lines_interface.unit_price%TYPE:= 100;



-- Specifies number of Purchase order to be created
l_header_count   NUMBER := 1;

--Specifies number of lines to be created per PO
l_line_count     NUMBER := 1;

--To track progess 
l_progress       VARCHAR2(10) ;
BEGIN

--Header Loop
FOR hdr_cnt IN 1..L_header_count
LOOP
 ---- Inserting into header interface table
 l_progress := '001';
   Insert into PO.PO_HEADERS_INTERFACE
	   (INTERFACE_HEADER_ID,---   PROCESS_CODE,---   ACTION,'BLANKET',---   DOCUMENT_TYPE_CODE,---   CURRENCY_CODE,SYSDATE );	---  CREATION_DATE,---Line Loop
          FOR line_cnt IN 1..l_line_count LOOP 
          
	      l_progress := '002';
  	  --- Inserting into Lines interface table
		Insert into PO.PO_LINES_INTERFACE
		   (INTERFACE_LINE_ID,---	    ACTION,---	    SHIP_TO_ORGANIZATION_ID,---    SHIP_TO_LOCATION_ID,---    NEED_BY_DATE,---    PROMISED_DATE,---    CREATION_DATE,'Y'); ---   LINE_LOC_POPULATED_FLAG,END LOOP;---End of Line Loop  
  END LOOP;---End of Header Loop 

COMMIT;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('Error while inserting data at :'||l_progress||sqlCODE||sqlERRM);

END;

/*
 =======================================================================================================
 Name : Update Blanket Purchase Agreement -- Updating Line of existing BPA

 Purpose : This plsql program is used to update line in a BPA through 
           PDOI : Import price catalog concurrent program
 =======================================================================================================
 */
DECLARE

------------------------------------------------------------------------------------
--Define Mandatory column variables to insert into interface tables. Values to all
-- Variables need to be intialized with required data before running the script.
------------------------------------------------------------------------------------

---------------------------------------------------------------------------------
--Header level information
---------------------------------------------------------------------------------
--This provides batch id which is used to run particular set of data
l_batch_id		 po_headers_interface.batch_id%TYPE := 100;

-- Contains Attribute value which can be your username 
-- which can be used to check records inserted by the user
l_attribute1             po_headers_interface.attribute1%TYPE := 'SBONTALA';

--Specifies PO header Id to be updated
l_po_header_id         po_headers_interface.po_header_id%TYPE := 198445;



---------------------------------------------------------------------------------
--Line level information
---------------------------------------------------------------------------------

--Contains Unit price of the Item
l_unit_price             po_lines_interface.unit_price%TYPE:= 400;

--Contains the line number to be modified
l_line_num    NUMBER := 1;

--To track Progress
l_progress       VARCHAR2(10) ;
BEGIN

 l_progress := '001';
   Insert into PO.PO_HEADERS_INTERFACE
	   (INTERFACE_HEADER_ID,PO_HEADER_ID,---	    BATCH_ID,---	    PROCESS_CODE,---	    ATTRIBUTE1,SYSDATE );	---	    CREATION_DATE,l_progress := '002';
		Insert into PO.PO_LINES_INTERFACE
		   (INTERFACE_LINE_ID,CREATION_DATE)
		 Values
		   (po_lines_interface_s.nextval,---	    LINE_NUM,---	    UNIT_PRICE,SYSDATE); 	 ---	    CREATION_DATE

	   
COMMIT;

EXCEPTION

WHEN OTHERS THEN

dbms_output.put_line('Error while inserting data at :'||l_progress||sqlCODE||sqlERRM);

END;
l_request_id := fnd_request.submit_request('PO','POXPOPDOI','',to_char(SYSDATE,'YYYY/MM/DD HH24:MI:SS'),FALSE,NULL,'N','INCOMPLETE',--'APPROVED',lt_org_id,chr(0)); 原文链接:https://www.f2er.com/oracle/213487.html

猜你在找的Oracle相关文章