Home » Applications » Oracle Fusion Apps & E-Business Suite » is there is API to create sales order (OM R12.1)
is there is API to create sales order [message #429669] Thu, 05 November 2009 02:37 Go to next message
alaa_fouad2004
Messages: 64
Registered: January 2009
Member
dear all
please is there is API to create sales order?
if it exists ,i want sample code to insert one sales order

Alaa Fouad
Re: is there is API to create sales order [message #429721 is a reply to message #429669] Thu, 05 November 2009 07:19 Go to previous messageGo to next message
SSGKK
Messages: 19
Registered: March 2009
Junior Member
Use OE_ORDER_PUB.PROCESS_ORDER API to create sales order. For sample code refer MOS Doc ID: 959783.1

[Updated on: Thu, 05 November 2009 10:43]

Report message to a moderator

Re: is there is API to create sales order [message #429795 is a reply to message #429721] Thu, 05 November 2009 17:17 Go to previous messageGo to next message
alaa_fouad2004
Messages: 64
Registered: January 2009
Member
i read the example in the document which you refer to it .
and i wrote the create code for new sales order and run it but it is didn't create any sales order.
can you check the code and tell me the error

CREATE OR REPLACE procedure APPS.cc_sales_order_api as
 g_message varchar2(100); 
l_file varchar2(100); 
l_return_status varchar2(30); 
l_msg_data varchar2(256); 
l_msg_count number; 
l_msg_index NUMBER; 
l_data VARCHAR2(2000); 

l_header_rec OE_Order_PUB.Header_Rec_Type ; 
l_header_val_rec OE_Order_PUB.Header_Val_Rec_Type ; 
l_line_tbl OE_Order_PUB.Line_Tbl_Type; 
l_line_val_tbl OE_Order_PUB.Line_Val_Tbl_Type; 
l_header_adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type ; 
l_header_adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type ; 
l_header_price_att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type; 
l_header_adj_assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type; 
l_header_scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type; 
l_header_scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type; 
l_header_adj_att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type; 
l_Line_Adj_Tbl OE_ORDER_PUB.Line_Adj_Tbl_Type; 
l_Line_Adj_Val_Tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type; 
l_Line_Price_Att_Tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type; 
l_Line_Adj_Att_Tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ; 
l_Line_Adj_Assoc_Tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type; 
l_line_scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type; 
l_Line_scredit_val_Tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type; 
l_line_price_att_rec OE_Order_PUB.Line_Price_Att_Rec_Type; 
l_Lot_Serial_Tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type; 
l_Lot_Serial_val_Tbl OE_ORDER_PUB.Lot_Serial_val_Tbl_Type; 
l_Request_Tbl OE_ORDER_PUB.Request_Tbl_Type ; 


BEGIN 

--- source the env 
fnd_global.apps_initialize(1013455,21623,660); 
-- pass in user_id, responsibility_id, and application_id 

oe_debug_pub.initialize; 
oe_debug_pub.setdebuglevel(5); 
Oe_Msg_Pub.initialize; 


--- Populate header record 
l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC; 
--l_header_rec.header_id := 104917; 
 l_header_rec.orig_sys_document_ref :='11500011'; 
 l_header_rec.order_type_id := 1000; 
 l_header_val_rec.order_type := 'Standard'; 
 l_header_rec.ship_to_org_id := 1031; 
 l_header_rec.sold_to_org_id := 1007; 
 l_header_rec.invoice_to_org_id := 1030;
 l_header_rec.TRANSACTIONAL_CURR_CODE:='USD'; 
 l_header_rec.ordered_date := sysdate; 
 l_header_rec.created_by := 1013455; 
 l_header_rec.creation_date := sysdate; 
 l_header_rec.last_updated_by := 1013455; 
 l_header_rec.last_update_date := sysdate; 
l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE; 

-- Populate line record 
l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC; 
--l_line_tbl(1).header_id := 104917; 
--l_line_tbl(1).line_id := 184808; 
 l_line_tbl(1).price_list_id := 1000; 
 l_line_tbl(1).inventory_item_id := 4630; 
 --l_line_tbl(1).pricing_context := 'PRICING ATTRIBUTE'; 
 --l_line_tbl(1).pricing_Attribute16 := 12; 
 l_line_tbl(1).ordered_quantity := 1; 
 l_line_tbl(1).pricing_date := sysdate; 
 l_line_tbl(1).unit_selling_price := 2.70; 
 l_line_tbl(1).calculate_price_flag := 'Y';
 l_line_tbl(1).orig_sys_document_ref :='11500011'; 
 l_line_tbl(1).orig_sys_line_ref :='11500011';
  
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE; 

-- Populate line pricing attribute record 
--l_Line_price_Att_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC; 
-- l_Line_price_Att_tbl(1).order_price_attrib_id := 1111; 
-- l_Line_price_Att_tbl(1).header_id := 104747; 
-- l_Line_price_Att_tbl(1).line_id := 184632; 
-- l_Line_price_Att_tbl(1).flex_title := 'QP_ATTR_DEFNS_PRICING'; 
-- l_Line_price_Att_tbl(1).pricing_context := 'PRICING ATTRIBUTE'; 
-- l_Line_price_Att_tbl(1).pricing_attribute1 := 9510; 
-- l_Line_price_Att_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE; 


--l_Line_Adj_Tbl(1) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC; 
--l_Line_Adj_Tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE; 
--l_Line_Adj_Tbl(1).header_id := 104917; 
--l_Line_Adj_Tbl(1).line_id := 184808; 
--l_Line_Adj_Tbl(1).price_adjustment_id := 224744; 
-- l_Line_Adj_Tbl(1).line_index := 1; 
--l_Line_Adj_Tbl(1).automatic_flag := 'N'; 
--l_Line_Adj_Tbl(1).applied_flag := 'Y'; 
--l_Line_Adj_Tbl(1).updated_flag := 'Y'; 
--l_Line_Adj_Tbl(1).list_header_id := 25501; 
--l_Line_Adj_Tbl(1).list_line_id := 78076; 
--l_Line_Adj_Tbl(1).list_line_type_code := 'DIS'; 
-- l_Line_Adj_Tbl(1).adjusted_amount := .30; 
-- l_Line_Adj_Tbl(1).adjusted_amount_per_pqty := .30; 
--l_Line_Adj_Tbl(1).arithmetic_operator:= '%'; 
--l_Line_Adj_Tbl(1).operand := 10; 



--l_line_scredit_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_SCREDIT_REC; 

/* 
  In addition one may use the following 
 example code to pass manual adjustment details as a guideline. 
 . 
 Example code to pass manual adjustment: 
 -------------------------------------------------------------------------- */

-- l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC; 
--l_line_tbl(1).header_id := 49810; 
-- l_line_tbl(1).line_id := 59186; 
-- l_line_adj_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC; 
-- order header id, if available. 
-- l_line_adj_tbl(1).header_id := 49810; 
-- order line id, if available. 
-- l_line_adj_tbl(1).line_id := 59186; 
 
-- l_line_adj_tbl(1).automatic_flag := 'N' ; 
-- l_line_adj_tbl(1).applied_flag := 'Y'; 
-- l_line_adj_tbl(1).updated_flag := 'Y'; 
-- l_line_adj_tbl(1).list_header_id := 9320; 
--l_line_adj_tbl(1).list_line_id := 18005; 
-- l_line_adj_tbl(1).operand := 10; 
-- l_line_adj_tbl(1).charge_type_code := 'FREIGHT'; 
-- l_line_adj_tbl(1).modifier_level_code := 'LINE'; 
-- l_line_adj_tbl(1).list_line_type_code := 'FREIGHT_CHARGE'; 
--l_line_adj_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE; 
-- l_line_adj_tbl(1).line_index := 1; 


OE_DEBUG_PUB.Add('Just before calling Process_Order API l_index:' ); 

OE_ORDER_PUB.PROCESS_ORDER ( 
p_api_version_number => 1.0, 
-- p_init_msg_list => FND_API.G_FALSE, 
-- p_return_values => FND_API.G_FALSE, 
-- p_action_commit => FND_API.G_FALSE, 
p_header_rec => l_header_rec, 
p_header_val_rec => l_header_val_rec, 
p_line_tbl => l_line_tbl, 
p_line_adj_tbl => l_line_adj_tbl, 
p_line_scredit_tbl => l_line_scredit_tbl, 
x_return_status => l_return_status, 
x_msg_count => l_msg_count, 
x_msg_data => l_msg_data, 
x_header_rec => l_header_rec, 
x_header_val_rec => l_header_val_rec, 
x_header_adj_tbl => l_header_adj_tbl, 
x_header_adj_val_tbl => l_header_adj_val_tbl, 
x_header_price_att_tbl => l_header_price_att_tbl, 
x_header_adj_att_tbl => l_header_adj_att_tbl, 
x_header_adj_assoc_tbl => l_header_adj_assoc_tbl, 
x_header_scredit_tbl => l_header_scredit_tbl, 
x_header_scredit_val_tbl => l_header_scredit_val_tbl, 
x_line_tbl => l_line_tbl, 
x_line_val_tbl => l_line_val_tbl, 
x_line_adj_tbl => l_Line_Adj_Tbl, 
x_line_adj_val_tbl => l_Line_Adj_Val_Tbl, 
x_line_price_att_tbl => l_Line_Price_Att_Tbl, 
x_line_adj_att_tbl => l_Line_Adj_Att_Tbl, 
x_line_adj_assoc_tbl => l_Line_Adj_Assoc_Tbl, 
x_line_scredit_tbl => l_line_scredit_tbl, 
x_line_scredit_val_tbl => l_Line_Scredit_val_Tbl, 
x_lot_serial_tbl => l_Lot_Serial_Tbl, 
x_lot_serial_val_tbl => l_Lot_Serial_val_Tbl, 
x_action_request_tbl => l_Request_Tbl 
); 

OE_DEBUG_PUB.Add('Just after calling Process_Order API');
commit;
end;
/


Thanks

i will wait your answer

Alaa Fouad

[Updated on: Thu, 05 November 2009 18:20]

Report message to a moderator

Re: is there is API to create sales order [message #429919 is a reply to message #429669] Fri, 06 November 2009 05:19 Go to previous messageGo to next message
SSGKK
Messages: 19
Registered: March 2009
Junior Member
You did not specify what error are you getting. BTW, here is a sample code that creates a SO

set serveroutput on size 1000000

DECLARE                              
l_api_version_number NUMBER := 1;
l_return_status VARCHAR2(2000);
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);

/*****************PARAMETERS****************************************************/
l_debug_level number := 1;   -- OM DEBUG LEVEL (MAX 5)
l_org number := 105;         -- OPERATING UNIT
l_user number := 2905;       -- USER
l_resp number := 50308;      -- RESPONSIBLILTY
l_appl number := 660;        -- ORDER MANAGEMENT

/*****************INPUT VARIABLES FOR PROCESS_ORDER API*************************/
l_header_rec oe_order_pub.header_rec_type;
l_line_tbl oe_order_pub.line_tbl_type;
l_action_request_tbl oe_order_pub.Request_Tbl_Type;

/*****************OUT VARIABLES FOR PROCESS_ORDER API***************************/
l_header_rec_out oe_order_pub.header_rec_type;
l_header_val_rec_out oe_order_pub.header_val_rec_type;
l_header_adj_tbl_out oe_order_pub.header_adj_tbl_type;
l_header_adj_val_tbl_out oe_order_pub.header_adj_val_tbl_type;
l_header_price_att_tbl_out oe_order_pub.header_price_att_tbl_type;
l_header_adj_att_tbl_out oe_order_pub.header_adj_att_tbl_type;
l_header_adj_assoc_tbl_out oe_order_pub.header_adj_assoc_tbl_type;
l_header_scredit_tbl_out oe_order_pub.header_scredit_tbl_type;
l_header_scredit_val_tbl_out oe_order_pub.header_scredit_val_tbl_type;
l_line_tbl_out oe_order_pub.line_tbl_type;
l_line_val_tbl_out oe_order_pub.line_val_tbl_type;
l_line_adj_tbl_out oe_order_pub.line_adj_tbl_type;
l_line_adj_val_tbl_out oe_order_pub.line_adj_val_tbl_type;
l_line_price_att_tbl_out oe_order_pub.line_price_att_tbl_type;
l_line_adj_att_tbl_out oe_order_pub.line_adj_att_tbl_type;
l_line_adj_assoc_tbl_out oe_order_pub.line_adj_assoc_tbl_type;
l_line_scredit_tbl_out oe_order_pub.line_scredit_tbl_type;
l_line_scredit_val_tbl_out oe_order_pub.line_scredit_val_tbl_type;
l_lot_serial_tbl_out oe_order_pub.lot_serial_tbl_type;
l_lot_serial_val_tbl_out oe_order_pub.lot_serial_val_tbl_type;
l_action_request_tbl_out oe_order_pub.request_tbl_type;

l_msg_index NUMBER;
l_data VARCHAR2(2000);
l_loop_count NUMBER;
l_debug_file VARCHAR2(200);

-- book API vars
b_return_status VARCHAR2(200);
b_msg_count NUMBER;
b_msg_data VARCHAR2(2000);

BEGIN

dbms_application_info.set_client_info(l_org);

/*****************INITIALIZE DEBUG INFO*************************************/

if (l_debug_level > 0) then
      l_debug_file := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
      oe_debug_pub.initialize;
      oe_debug_pub.setdebuglevel(l_debug_level);
      Oe_Msg_Pub.initialize;
end if;

/*****************INITIALIZE ENVIRONMENT*************************************/
fnd_global.apps_initialize(l_user, l_resp, l_appl); -- pass in user_id, responsibility_id, and application_id

/*****************INITIALIZE HEADER RECORD******************************/
l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
/*****************POPULATE REQUIRED ATTRIBUTES **********************************/

l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
l_header_rec.order_type_id := 1013;
l_header_rec.sold_to_org_id := 1054;
l_header_rec.ship_to_org_id := 3014;
l_header_rec.price_list_id := 184090;
l_header_rec.pricing_date := SYSDATE;
l_header_rec.transactional_curr_code := 'GBP';
l_header_rec.flow_status_code := 'ENTERED';
l_header_rec.cust_po_number := '06112009-08';
l_header_rec.order_source_id := 1001 ;
l_header_rec.attribute1   := 'ABC';
 

/*****************INITIALIZE ACTION REQUEST RECORD*************************************/

l_action_request_tbl(1) := OE_ORDER_PUB.G_MISS_REQUEST_REC;
l_action_request_tbl(1).request_type := oe_globals.g_book_order;
l_action_request_tbl(1).entity_code := oe_globals.g_entity_header;


/*****************INITIALIZE LINE RECORD********************************/

l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
l_line_tbl(1).inventory_item_id := 6288 ;
l_line_tbl(1).ordered_quantity := 1;
l_line_tbl(1).ship_to_org_id := 2992 ;
l_line_tbl(1).tax_code := 'STANDARD RATE' ;

/*****************CALLTO PROCESS ORDER API*********************************/
dbms_output.put_line('Calling API');

OE_Order_PUB.Process_Order( p_api_version_number => l_api_version_number,
p_header_rec => l_header_rec,
p_line_tbl => l_line_tbl,
p_action_request_tbl => l_action_request_tbl, 
--OUT variables
x_header_rec => l_header_rec_out,
x_header_val_rec => l_header_val_rec_out,
x_header_adj_tbl => l_header_adj_tbl_out,
x_header_adj_val_tbl => l_header_adj_val_tbl_out,
x_header_price_att_tbl => l_header_price_att_tbl_out,
x_header_adj_att_tbl => l_header_adj_att_tbl_out,
x_header_adj_assoc_tbl => l_header_adj_assoc_tbl_out,
x_header_scredit_tbl => l_header_scredit_tbl_out,
x_header_scredit_val_tbl => l_header_scredit_val_tbl_out,
x_line_tbl => l_line_tbl_out,
x_line_val_tbl => l_line_val_tbl_out,
x_line_adj_tbl => l_line_adj_tbl_out,
x_line_adj_val_tbl => l_line_adj_val_tbl_out,
x_line_price_att_tbl => l_line_price_att_tbl_out,
x_line_adj_att_tbl => l_line_adj_att_tbl_out,
x_line_adj_assoc_tbl => l_line_adj_assoc_tbl_out,
x_line_scredit_tbl => l_line_scredit_tbl_out,
x_line_scredit_val_tbl => l_line_scredit_val_tbl_out,
x_lot_serial_tbl => l_lot_serial_tbl_out,
x_lot_serial_val_tbl => l_lot_serial_val_tbl_out,
x_action_request_tbl => l_action_request_tbl_out,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);

/*****************CHECK RETURN STATUS***********************************/

if l_return_status = FND_API.G_RET_STS_SUCCESS then
dbms_output.put_line('Return status is success ');
dbms_output.put_line('debug level '||l_debug_level);
      if (l_debug_level > 0) then
              dbms_output.put_line('success');
      end if;
      commit;
else
dbms_output.put_line('Return status failure ');
      if (l_debug_level > 0) then
              dbms_output.put_line('failure');
      end if;
      rollback;
end if;

/*****************DISPLAY RETURN STATUS FLAGS******************************/
if (l_debug_level > 0) then
      DBMS_OUTPUT.PUT_LINE('process ORDER ret status IS: ' || l_return_status);
      DBMS_OUTPUT.PUT_LINE('process ORDER msg data IS: ' || l_msg_data);
      DBMS_OUTPUT.PUT_LINE('process ORDER msg COUNT IS: ' || l_msg_count);
      DBMS_OUTPUT.PUT_LINE('header.order_number IS: ' || to_char(l_header_rec_out.order_number));
      DBMS_OUTPUT.PUT_LINE('header.return_status IS: ' || l_header_rec_out.return_status);
      DBMS_OUTPUT.PUT_LINE('header.booked_flag IS: ' || l_header_rec_out.booked_flag);
      DBMS_OUTPUT.PUT_LINE('header.header_id IS: ' || l_header_rec_out.header_id);
      DBMS_OUTPUT.PUT_LINE('header.order_source_id IS: ' || l_header_rec_out.order_source_id);
      DBMS_OUTPUT.PUT_LINE('header.flow_status_code IS: ' || l_header_rec_out.flow_status_code);
end if;

/*****************DISPLAY ERROR MSGS*************************************/
if (l_debug_level > 0) then
      FOR i IN 1 .. l_msg_count LOOP
      Oe_Msg_Pub.get(
      p_msg_index => i
      ,p_encoded => Fnd_Api.G_FALSE
      ,p_data => l_data
      ,p_msg_index_out => l_msg_index);

      DBMS_OUTPUT.PUT_LINE('message is: ' || l_data);
      DBMS_OUTPUT.PUT_LINE('message index is: ' || l_msg_index);
      END LOOP;
end if;
if (l_debug_level > 0) then
      DBMS_OUTPUT.PUT_LINE('Debug = ' || OE_DEBUG_PUB.G_DEBUG);
      DBMS_OUTPUT.PUT_LINE('Debug Level = ' || to_char(OE_DEBUG_PUB.G_DEBUG_LEVEL));
      DBMS_OUTPUT.PUT_LINE('Debug File = ' || OE_DEBUG_PUB.G_DIR||'/'||OE_DEBUG_PUB.G_FILE);
      DBMS_OUTPUT.PUT_LINE('****************************************************');

      OE_DEBUG_PUB.DEBUG_OFF;
end if;

END;
/

Re: is there is API to create sales order [message #429985 is a reply to message #429919] Fri, 06 November 2009 12:39 Go to previous message
alaa_fouad2004
Messages: 64
Registered: January 2009
Member
Dear Sir
i adjust your code to my case to be

CREATE OR REPLACE procedure APPS.cc_sales_order_api2 as
                              
l_api_version_number NUMBER := 1;
l_return_status VARCHAR2(2000);
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);

/*****************PARAMETERS****************************************************/
l_debug_level number := 1;   -- OM DEBUG LEVEL (MAX 5)
l_org number := 204;         -- OPERATING UNIT
l_user number := 1013455;       -- USER
l_resp number := 21623;      -- RESPONSIBLILTY
l_appl number := 660;        -- ORDER MANAGEMENT

/*****************INPUT VARIABLES FOR PROCESS_ORDER API*************************/
l_header_rec oe_order_pub.header_rec_type;
l_line_tbl oe_order_pub.line_tbl_type;
l_action_request_tbl oe_order_pub.Request_Tbl_Type;

/*****************OUT VARIABLES FOR PROCESS_ORDER API***************************/
l_header_rec_out oe_order_pub.header_rec_type;
l_header_val_rec_out oe_order_pub.header_val_rec_type;
l_header_adj_tbl_out oe_order_pub.header_adj_tbl_type;
l_header_adj_val_tbl_out oe_order_pub.header_adj_val_tbl_type;
l_header_price_att_tbl_out oe_order_pub.header_price_att_tbl_type;
l_header_adj_att_tbl_out oe_order_pub.header_adj_att_tbl_type;
l_header_adj_assoc_tbl_out oe_order_pub.header_adj_assoc_tbl_type;
l_header_scredit_tbl_out oe_order_pub.header_scredit_tbl_type;
l_header_scredit_val_tbl_out oe_order_pub.header_scredit_val_tbl_type;
l_line_tbl_out oe_order_pub.line_tbl_type;
l_line_val_tbl_out oe_order_pub.line_val_tbl_type;
l_line_adj_tbl_out oe_order_pub.line_adj_tbl_type;
l_line_adj_val_tbl_out oe_order_pub.line_adj_val_tbl_type;
l_line_price_att_tbl_out oe_order_pub.line_price_att_tbl_type;
l_line_adj_att_tbl_out oe_order_pub.line_adj_att_tbl_type;
l_line_adj_assoc_tbl_out oe_order_pub.line_adj_assoc_tbl_type;
l_line_scredit_tbl_out oe_order_pub.line_scredit_tbl_type;
l_line_scredit_val_tbl_out oe_order_pub.line_scredit_val_tbl_type;
l_lot_serial_tbl_out oe_order_pub.lot_serial_tbl_type;
l_lot_serial_val_tbl_out oe_order_pub.lot_serial_val_tbl_type;
l_action_request_tbl_out oe_order_pub.request_tbl_type;

l_msg_index NUMBER;
l_data VARCHAR2(2000);
l_loop_count NUMBER;
l_debug_file VARCHAR2(200);

-- book API vars
b_return_status VARCHAR2(200);
b_msg_count NUMBER;
b_msg_data VARCHAR2(2000);

BEGIN

dbms_application_info.set_client_info(l_org);

/*****************INITIALIZE DEBUG INFO*************************************/
mo_global.init('ONT');
if (l_debug_level > 0) then
      l_debug_file := OE_DEBUG_PUB.Set_Debug_Mode('FILE');
      oe_debug_pub.initialize;
      oe_debug_pub.setdebuglevel(l_debug_level);
      Oe_Msg_Pub.initialize;
end if;

/*****************INITIALIZE ENVIRONMENT*************************************/
fnd_global.apps_initialize(l_user, l_resp, l_appl); -- pass in user_id, responsibility_id, and application_id

/*****************INITIALIZE HEADER RECORD******************************/
l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
/*****************POPULATE REQUIRED ATTRIBUTES **********************************/

l_header_rec.operation := OE_GLOBALS.G_OPR_CREATE;
l_header_rec.order_type_id := 1000;
l_header_rec.sold_to_org_id := 1007;
l_header_rec.ship_to_org_id := 1031;
l_header_rec.sold_from_org_id := 204;
l_header_rec.ship_from_org_id := 1884;
l_header_rec.org_id := 204;
l_header_rec.price_list_id := 1000;
l_header_rec.pricing_date := SYSDATE;
l_header_rec.transactional_curr_code := 'USD';
l_header_rec.flow_status_code := 'ENTERED';
--l_header_rec.cust_po_number := '06112009-08';
l_header_rec.order_source_id := 1046 ;
--l_header_rec.attribute1   := 'ABC';
 

/*****************INITIALIZE ACTION REQUEST RECORD*************************************/

l_action_request_tbl(1) := OE_ORDER_PUB.G_MISS_REQUEST_REC;
l_action_request_tbl(1).request_type := oe_globals.g_book_order;
l_action_request_tbl(1).entity_code := oe_globals.g_entity_header;


/*****************INITIALIZE LINE RECORD********************************/

l_line_tbl(1) := OE_ORDER_PUB.G_MISS_LINE_REC;
l_line_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
l_line_tbl(1).inventory_item_id := 4630 ;
l_line_tbl(1).ordered_quantity := 1;
l_line_tbl(1).ship_to_org_id := 1031 ;
l_line_tbl(1).tax_code := 'Location';--'STANDARD RATE' ;

/*****************CALLTO PROCESS ORDER API*********************************/
dbms_output.put_line('Calling API');

OE_Order_PUB.Process_Order( p_api_version_number => l_api_version_number,
p_header_rec => l_header_rec,
p_line_tbl => l_line_tbl,
p_action_request_tbl => l_action_request_tbl, 
--OUT variables
x_header_rec => l_header_rec_out,
x_header_val_rec => l_header_val_rec_out,
x_header_adj_tbl => l_header_adj_tbl_out,
x_header_adj_val_tbl => l_header_adj_val_tbl_out,
x_header_price_att_tbl => l_header_price_att_tbl_out,
x_header_adj_att_tbl => l_header_adj_att_tbl_out,
x_header_adj_assoc_tbl => l_header_adj_assoc_tbl_out,
x_header_scredit_tbl => l_header_scredit_tbl_out,
x_header_scredit_val_tbl => l_header_scredit_val_tbl_out,
x_line_tbl => l_line_tbl_out,
x_line_val_tbl => l_line_val_tbl_out,
x_line_adj_tbl => l_line_adj_tbl_out,
x_line_adj_val_tbl => l_line_adj_val_tbl_out,
x_line_price_att_tbl => l_line_price_att_tbl_out,
x_line_adj_att_tbl => l_line_adj_att_tbl_out,
x_line_adj_assoc_tbl => l_line_adj_assoc_tbl_out,
x_line_scredit_tbl => l_line_scredit_tbl_out,
x_line_scredit_val_tbl => l_line_scredit_val_tbl_out,
x_lot_serial_tbl => l_lot_serial_tbl_out,
x_lot_serial_val_tbl => l_lot_serial_val_tbl_out,
x_action_request_tbl => l_action_request_tbl_out,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
commit;
/*****************CHECK RETURN STATUS***********************************/

if l_return_status = FND_API.G_RET_STS_SUCCESS then
dbms_output.put_line('Return status is success ');
dbms_output.put_line('debug level '||l_debug_level);
      if (l_debug_level > 0) then
              dbms_output.put_line('success');
      end if;
      commit;
else
dbms_output.put_line('Return status failure ');
      if (l_debug_level > 0) then
              dbms_output.put_line('failure');
      end if;
      rollback;
end if;

/*****************DISPLAY RETURN STATUS FLAGS******************************/
if (l_debug_level > 0) then
      DBMS_OUTPUT.PUT_LINE('process ORDER ret status IS: ' || l_return_status);
      DBMS_OUTPUT.PUT_LINE('process ORDER msg data IS: ' || l_msg_data);
      DBMS_OUTPUT.PUT_LINE('process ORDER msg COUNT IS: ' || l_msg_count);
      DBMS_OUTPUT.PUT_LINE('header.order_number IS: ' || to_char(l_header_rec_out.order_number));
      DBMS_OUTPUT.PUT_LINE('header.return_status IS: ' || l_header_rec_out.return_status);
      DBMS_OUTPUT.PUT_LINE('header.booked_flag IS: ' || l_header_rec_out.booked_flag);
      DBMS_OUTPUT.PUT_LINE('header.header_id IS: ' || l_header_rec_out.header_id);
      DBMS_OUTPUT.PUT_LINE('header.order_source_id IS: ' || l_header_rec_out.order_source_id);
      DBMS_OUTPUT.PUT_LINE('header.flow_status_code IS: ' || l_header_rec_out.flow_status_code);
end if;

/*****************DISPLAY ERROR MSGS*************************************/
if (l_debug_level > 0) then
      FOR i IN 1 .. l_msg_count LOOP
      Oe_Msg_Pub.get(
      p_msg_index => i
      ,p_encoded => Fnd_Api.G_FALSE
      ,p_data => l_data
      ,p_msg_index_out => l_msg_index);

      DBMS_OUTPUT.PUT_LINE('message is: ' || l_data);
      DBMS_OUTPUT.PUT_LINE('message index is: ' || l_msg_index);
      END LOOP;
end if;
if (l_debug_level > 0) then
      DBMS_OUTPUT.PUT_LINE('Debug = ' || OE_DEBUG_PUB.G_DEBUG);
      DBMS_OUTPUT.PUT_LINE('Debug Level = ' || to_char(OE_DEBUG_PUB.G_DEBUG_LEVEL));
      DBMS_OUTPUT.PUT_LINE('Debug File = ' || OE_DEBUG_PUB.G_DIR||'/'||OE_DEBUG_PUB.G_FILE);
      DBMS_OUTPUT.PUT_LINE('****************************************************');

      OE_DEBUG_PUB.DEBUG_OFF;
end if;

END;
/



when i run it give me this output

Quote:

Calling API
Return status is success
debug level 1
success
process ORDER ret status IS: S
process ORDER msg data IS:
process ORDER msg COUNT IS: 5
header.order_number IS: 66404
header.return_status IS: S
header.booked_flag IS: N
header.header_id IS: 190542
header.order_source_id IS: 1046
header.flow_status_code IS: ENTERED
message is: Could not find a source to schedule the line. Please specify a warehouse on the line or define Sourcing Rules for the Item.
message index is: 1
message is: One of the group attributes failed your scheduling attempt.

You tried to perform a scheduling action on a schedule group (ATO Configuration, Ship Complete Configuration, ,Ship Set or Arrival Set) and since one of the group members failed it caused the entire group to fail.

message index is: 2
message is: Failed to insert the line into the set. The line could not be scheduled on the set attributes and could not schedule the whole set on some alternative date.
message index is: 3
message is: Could not find a source to schedule the line. Please specify a warehouse on the line or define Sourcing Rules for the Item.
message index is: 4
message is: Order has been booked.
message index is: 5
Debug = F
Debug Level = 1
Debug File = /dbfiles/applcsf/log/l5030617.dbg
****************************************************

note that the sales order created with its line .

please can I ask you another question about the splitting the line of the sales order using API.

if you never mine i will send to you the code which i wrote which there is a problem in it

Thanks to much

Alaa fouad

[Updated on: Fri, 06 November 2009 14:26]

Report message to a moderator

Previous Topic: Customer conversion
Next Topic: I WANT TO CREATE PURCHASE REQUISITION USING API
Goto Forum:
  


Current Time: Mon Dec 05 18:58:02 CST 2016

Total time taken to generate the page: 0.08378 seconds