OPM Batch release Code SET serveroutput on DECLARE l_batch_header gme_batch_header%ROWTYPE; gme_batch_header%ROWTYPE; x_message_count NUMBER; NUMBER ; x_message_list VARCHAR2 (2000 2000); ); l_exception_material_tbl gme_common_pvt. gme_common_pvt .exceptions_tab; exceptions_tab; x_return_status VARCHAR2 (10 10); ); x_batch_header gme_batch_header%ROWTYPE; gme_batch_header%ROWTYPE; v_st_date DATE; DATE ; v_com_date DATE; DATE ; l_msg_index_out NUMBER; NUMBER ; BEGIN SELECT plan_start_date plan_start_date, , plan_cmplt_date INTO v_st_date, v_st_date, v_com_date FROM gme_batch_header WHERE batch_no = 3000046 3000046; ; fnd_global. fnd_global .apps_initialize (user_id => 1490 1490, , resp_id => 50764 50764, , resp_appl_id => 553 ); l_batch_header. l_batch_header.batch_type := 0; l_batch_header. l_batch_header.batch_no := :=3000046 3000046; ; l_batch_header. l_batch_header.plan_start_date := v_st_date; v_st_date; l_batch_header. l_batch_header.plan_cmplt_date := v_com_date; v_com_date; l_batch_header. l_batch_header.update_inventory_ind update_inventory_ind:= := 'Y' 'Y'; ; l_batch_header. l_batch_header.recipe_validity_rule_id recipe_validity_rule_id:= :=172 172; ; --L_BATCH_HEADER.WIP_WHSE_CODE:=V_WHSE_CODE; l_batch_header. l_batch_header.actual_start_date := SYSDATE; gme_api_pub. gme_api_pub .release_batch (p_api_version => p_validation_level => p_init_msg_list => p_commti => x_message_count => x_message_list => x_return_status => p_batch_header_rec => p_org_code => p_ignore_exception => p_validate_flexfields => x_batch_header_rec => x_exception_material_tbl => l_exception_material_tbl ); COMMTI; IF x_return_status = FND_API FND_API. .g_ret_sts_success THEN Released'); dbms_output.put_line ('Batch Released'); --l_batch_header.batch_id:=3000065; --- SAVE THE CHANGES ---gme_api_pub.save_batch( --p_batch_header => l_batch_header, --x_return_status => x_return_status, --p_commti =>fnd_api.g_true);
2.0, 2.0, 100, 100 , fnd_api. fnd_api .g_false, g_false, fnd_api. fnd_api .g_false, g_false, x_message_count, x_message_count , x_message_list, x_message_list, x_return_status, x_return_status , l_batch_header, l_batch_header, 'VCP', 'VCP' , fnd_api. fnd_api .g_false, g_false, fnd_api. fnd_api .g_false, g_false, x_batch_header, x_batch_header,
gme_api_pub. gme_api_pub .save_batch( save_batch( p_header_id =>22001 => 22001 ,p_table =>2 => 2 ,p_commti => fnd_api fnd_api. .g_false ,x_return_status => x_return_status --Bug#5584699 Changed the datatype from boolean to varchar2. ,p_clear_qty_cache => fnd_api fnd_api. .g_true); g_true); else failed'); dbms_output.put_line ('Batch Release failed'); IF x_message_count = 1 THEN 'Error:'||x_message_list ||x_message_list); ); DBMS_OUTPUT.PUT_LINE ('Error:' ELSE FOR i IN 1.. ..x_message_count x_message_count LOOP FND_MSG_PUB.get FND_MSG_PUB .get (p_msg_index => i ,p_data => X_message_list ,p_msg_index_out => l_msg_index_out l_msg_index_out); ); '||x_message_list); ); DBMS_OUTPUT.PUT_LINE ('Error: '||x_message_list END LOOP; end if; end if; EXCEPTION WHEN OTHERS THEN '||TO_CHAR( TO_CHAR(SQLCODE)||': ||': '|| '||SQLERRM); SQLERRM); dbms_output.put_line ('Error '|| RAISE; END;
OPM BATCH Complete Batch Script set serveroutput on; -- request Create Cost Adjustment From AP Invoice declare l_status VARCHAR2 (10 10); ); l_return_status VARCHAR2 (1):= fnd_api fnd_api. .g_ret_sts_success g_ret_sts_success; ; l_count NUMBER ; l_record_count NUMBER (10 10):= ):= 0; l_loop_cnt NUMBER (10 10):= ):= 0; l_dummy_cnt NUMBER (10 10):= ):= 0; l_data VARCHAR2 (2000 2000); ); l_msg_index_out NUMBER; NUMBER ; l_in_batch_header_rec gme_batch_header%ROWTYPE; gme_batch_header%ROWTYPE; l_batch_header_rec gme_batch_header%ROWTYPE; gme_batch_header%ROWTYPE; l_exception_material_tbl gme_common_pvt. gme_common_pvt .exceptions_tab; exceptions_tab; x number number; ; BEGIN fnd_global. fnd_global .apps_initialize (user_id => 1490 1490, , resp_id => 50764 50764, , resp_appl_id => 553 ); l_in_batch_header_rec.batch_type:= l_in_batch_header_rec. batch_type:= 0; l_in_batch_header_rec. l_in_batch_header_rec .batch_id:= batch_id:='36001' '36001'; ; --batch_id l_in_batch_header_rec. l_in_batch_header_rec .update_inventory_ind update_inventory_ind:= :='Y' 'Y'; ; l_in_batch_header_rec. l_in_batch_header_rec .actual_start_date := SYSDATE;
--l_in_batch_header_rec.batch_id:=84039; --l_in_batch_header_rec.ACTUAL_START_DATE:='19-NOV-2011';
gme_api_pub. gme_api_pub .complete_batch( complete_batch( p_api_version => 2.0 ,p_validation_level =>gme_common_pvt => gme_common_pvt. .g_max_errors ,p_init_msg_list => fnd_api fnd_api. .g_false ,p_commti => fnd_api fnd_api. .g_false ,x_message_count => l_count ,x_message_list => l_data ,x_return_status => l_status ,p_batch_header_rec => l_in_batch_header_rec ,p_org_code => 'VCP' ,p_ignore_exception => fnd_api fnd_api. .g_false ,p_validate_flexfields => fnd_api fnd_api. .g_false ,x_batch_header_rec => l_batch_header_rec ,x_exception_material_tbl => l_exception_material_tbl ); commit; DBMS_OUTPUT.put_line ('status: ' || l_status || ' msg Count ' || l_count); l_count); FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT,'status: ' || l_status || ' msg Count ' || l_count); l_count);
IF l_status = 'S' THEN COMMTI; -- DBMS_OUTPUT.put_line ('success!!'); --delete get_ins_test_tmp;delete adj_api_tmp; --update get_ins_test_tmp set st=1; --where ; commti; ELSE IF l_count = 1 THEN l_data); DBMS_OUTPUT.put_line ('Error:' || l_data); FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT,'Error:' || l_data); l_data);
ELSE DBMS_OUTPUT.put_line ( || || || );
'status: ' l_status ' Error Count ' l_count
FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT, 'status: ' || l_status || ' Error Count ' || l_count ); FOR i IN 1 .. 5 LOOP fnd_msg_pub.get fnd_msg_pub .get (p_msg_index p_data p_encoded
=> i, => l_data, l_data, => fnd_api fnd_api. .g_false, g_false,
p_msg_index_out => l_msg_index_out ); l_data, 1, 255 255)); )); DBMS_OUTPUT.put_line ('Error: ' || SUBSTR (l_data, FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT,'Error: ' || SUBSTR (l_data, l_data, 1, 255 255)); )); END LOOP; END IF; END IF; exception when others then null; end ; /
After Completion it has to be
done
serveroutput on; declare x_message_count number number; ; x_message_list varchar2 varchar2( (200 200); ); x_return_status varchar2 varchar2( (100 100); ); x_mmt_rec mtl_material_transactions%ROWTYPE; mtl_material_transactions%ROWTYPE; x_mmln_tbl gme_common_pvt gme_common_pvt. .mtl_trans_lots_num_tbl mtl_trans_lots_num_tbl; ; l_mmti_rec mtl_transactions_interface%ROWTYPE; mtl_transactions_interface%ROWTYPE; l_mmli_tbl gme_common_pvt gme_common_pvt. .mtl_trans_lots_inter_tbl mtl_trans_lots_inter_tbl; ; begin fnd_global. fnd_global .apps_initialize (user_id => 1490 1490, , resp_id => 50764 50764, , resp_appl_id => 553 ); l_mmti_rec. l_mmti_rec.source_code:= source_code:='TEST' 'TEST'; ; l_mmti_rec. l_mmti_rec.source_header_id source_header_id:= :=2 2; l_mmti_rec. l_mmti_rec.source_line_id:= source_line_id:=2 2; l_mmti_rec. l_mmti_rec.process_flag:= process_flag:=3 3; l_mmti_rec. l_mmti_rec.lock_flag:= lock_flag:=2 2; l_mmti_rec. l_mmti_rec.transaction_mode transaction_mode:= :=3 3; l_mmti_rec. l_mmti_rec.last_update_date last_update_date:=SYSDATE; :=SYSDATE; l_mmti_rec. l_mmti_rec.last_updated_by last_updated_by:= :=fnd_global fnd_global. .user_id; user_id; l_mmti_rec. l_mmti_rec.creation_date:=SYSDATE; creation_date:=SYSDATE; l_mmti_rec. l_mmti_rec.created_by:= created_by:=fnd_global fnd_global. .user_id; user_id; l_mmti_rec. l_mmti_rec.organization_id organization_id:= :=423 423; ; l_mmti_rec. l_mmti_rec.inventory_item_id inventory_item_id:= :=43006 43006; ; l_mmti_rec. l_mmti_rec.inventory_item:= inventory_item:='G011009300105M' 'G011009300105M'; ; l_mmti_rec. l_mmti_rec.transaction_quantity transaction_quantity:= :=1 1; l_mmti_rec. l_mmti_rec.transaction_uom transaction_uom:= :='ECH' 'ECH'; ; l_mmti_rec. l_mmti_rec.primary_quantity primary_quantity:= :=1 1; l_mmti_rec. l_mmti_rec.secondary_transaction_quantity secondary_transaction_quantity:= :=22 22; ; l_mmti_rec. l_mmti_rec.secondary_uom_code secondary_uom_code:= :='GRM' 'GRM'; ; l_mmti_rec. l_mmti_rec.transaction_date transaction_date:=sysdate; :=sysdate; l_mmti_rec. l_mmti_rec.SUBINVENTORY_CODE SUBINVENTORY_CODE:= :='Corp_FG' 'Corp_FG'; ; l_mmti_rec. l_mmti_rec.transaction_type_id transaction_type_id:= :=44 44; ;--44; l_mmti_rec. l_mmti_rec.transaction_action_id transaction_action_id:= :=31 31; ;--31; l_mmti_rec. l_mmti_rec.transaction_source_type_id transaction_source_type_id:= :=5 5; l_mmti_rec. l_mmti_rec.transaction_interface_id transaction_interface_id:= :=10001 10001; ; l_mmli_tbl( l_mmli_tbl(1). ).LOT_NUMBER LOT_NUMBER:= :='MAH1456' 'MAH1456'; ; l_mmli_tbl( l_mmli_tbl(1). ).transaction_quantity transaction_quantity:= :=1 1; l_mmli_tbl( l_mmli_tbl(1). ).secondary_transaction_quantity secondary_transaction_quantity:= :=22 22; ; set
l_mmli_tbl( l_mmli_tbl(1). ).last_update_date last_update_date:=SYSDATE; :=SYSDATE; l_mmli_tbl( l_mmli_tbl(1). ).last_updated_by last_updated_by:= :=fnd_global fnd_global. .user_id; user_id; l_mmli_tbl( l_mmli_tbl(1). ).creation_date creation_date:=SYSDATE; :=SYSDATE; l_mmli_tbl( l_mmli_tbl(1). ).created_by created_by:= :=fnd_global fnd_global. .user_id; user_id;
gme_api_pub.create_material_txn ( gme_api_pub. p_api_version => 2.0 ,p_validation_level => 1000 ,p_init_msg_list => fnd_api fnd_api. .g_true ,p_commit => fnd_api fnd_api. .g_true ,x_message_count => x_message_count ,x_message_list => x_message_list ,x_return_status => x_return_status ,p_org_code =>'VCP' => 'VCP' ,p_mmti_rec => l_mmti_rec ,p_mmli_tbl => l_mmli_tbl ,p_batch_no =>3000100 => 3000100 ,p_line_no =>1 => 1 ,p_line_type =>1 => 1 ,p_create_lot =>'T' => 'T' ,p_generate_lot =>'F' => 'F' ,p_generate_parent_lot => =>'F' 'F' ,x_mmt_rec =>x_mmt_rec => x_mmt_rec ,x_mmln_tbl => =>x_mmln_tbl x_mmln_tbl); ); DBMS_OUTPUT.put_line ('status: ' || x_return_status || ' msg Count ' || x_message_count ); FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT,'status: ' || x_return_status || ' msg Count ' || x_message_count );
IF x_return_status = 'S' THEN COMMIT; 'success!!'); ); DBMS_OUTPUT.put_line ('success!!' ELSE IF x_message_count = 1 THEN x_message_list); DBMS_OUTPUT.put_line ('Error:' || x_message_list); FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT,'Error:' || x_message_list); x_message_list); ELSE DBMS_OUTPUT.put_line ( || || || );
'status: ' x_return_status ' Error Count ' x_message_count
FND_FILE. FND_FILE .PUT_LINE( PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT, 'status: ' || x_return_status || ' Error Count ' || x_message_count );
x_message_list, 1, 255 255)); )); DBMS_OUTPUT.put_line ('Error: ' || SUBSTR (x_message_list, FND_FILE.PUT_LINE( FND_FILE. PUT_LINE(FND_FILE FND_FILE. .OUTPUT, OUTPUT,'Error: ' || SUBSTR (x_message_list, x_message_list, 1, 255)); 255 )); END IF; END IF; exception when others then null; end ;
Developed by R.B.Reddy
