BOM*创建工艺路线
--工艺路线
1 DECLARE 2 -- API input variables 3 l_operation_tbl bom_rtg_pub.operation_tbl_type := bom_rtg_pub.g_miss_operation_tbl; 4 l_rtg_header_rec bom_rtg_pub.rtg_header_rec_type := bom_rtg_pub.g_miss_rtg_header_rec; 5 l_rtg_revision_tbl bom_rtg_pub.rtg_revision_tbl_type := bom_rtg_pub.g_miss_rtg_revision_tbl; 6 l_op_resource_tbl bom_rtg_pub.op_resource_tbl_type := bom_rtg_pub.g_miss_op_resource_tbl; 7 l_sub_resource_tbl bom_rtg_pub.sub_resource_tbl_type := bom_rtg_pub.g_miss_sub_resource_tbl; 8 l_op_network_tbl bom_rtg_pub.op_network_tbl_type := bom_rtg_pub.g_miss_op_network_tbl; 9 10 -- API output variables 11 x_rtg_header_rec bom_rtg_pub.rtg_header_rec_type; -- routing header record 12 x_rtg_revision_tbl bom_rtg_pub.rtg_revision_tbl_type; -- routing revisions 13 x_operation_tbl bom_rtg_pub.operation_tbl_type; -- routing operations 14 x_op_resource_tbl bom_rtg_pub.op_resource_tbl_type; -- oepration resources 15 x_sub_resource_tbl bom_rtg_pub.sub_resource_tbl_type; -- sub operation resources 16 x_op_network_tbl bom_rtg_pub.op_network_tbl_type; -- operation networks 17 x_message_list error_handler.error_tbl_type; 18 19 -- Other API variables 20 l_return_status VARCHAR2(1) := NULL; 21 l_msg_count NUMBER := 0; 22 l_cnt NUMBER := 1; 23 24 -- WHO columns 25 l_user_id NUMBER := -1; 26 l_resp_id NUMBER := -1; 27 l_application_id NUMBER := -1; 28 l_row_cnt NUMBER := 1; 29 l_user_name VARCHAR2(30) := 'HAND_CW'; 30 31 BEGIN 32 33 FOR c IN (SELECT t.* 34 FROM cux.cux_update_routing_temp t 35 WHERE 1 = 1 36 AND t.p_session_id = '2016091901') 37 LOOP 38 39 /*-- Get the user_id 40 SELECT user_id 41 INTO l_user_id 42 FROM fnd_user 43 WHERE user_name = l_user_name; 44 45 -- Get the application_id and responsibility_id 46 l_application_id := 702; 47 l_resp_id := 50723;*/ 48 49 -- Initialize applications information 50 fnd_global.apps_initialize(1510, 51 50761, 52 401); 53 -- dbms_output.put_line('Initialized applications context: ' || l_user_id || ' ' || l_resp_id || ' ' || l_application_id); 54 55 -- Create the routing header 56 l_rtg_header_rec.assembly_item_name := '102021101011000007'; 57 l_rtg_header_rec.organization_code := 'A01'; 58 l_rtg_header_rec.alternate_routing_code := NULL; 59 l_rtg_header_rec.transaction_type := 'UPDATE'; 60 61 62 63 l_operation_tbl(l_cnt).assembly_item_name := '102021101011000007'; 64 l_operation_tbl(l_cnt).organization_code := 'A01'; 65 l_operation_tbl(l_cnt).alternate_routing_code := NULL; 66 --l_operation_tbl(l_cnt).department_code := 'AR'; 67 l_operation_tbl(l_cnt).operation_sequence_number := '20'; 68 l_operation_tbl(l_cnt).operation_type := 1; 69 l_operation_tbl(l_cnt).start_effective_date := SYSDATE; 70 l_operation_tbl(l_cnt).standard_operation_code := c.p_operation_code; 71 l_operation_tbl(l_cnt).transaction_type := 'UPDATE'; 72 73 --l_operation_tbl(l_cnt).option_dependent_flag := c.p_option_dependent_flag; 74 l_operation_tbl(l_cnt).count_point_type := c.p_count_point_flag; 75 -- l_operation_tbl(l_cnt).count_point_type := c.p_autocharge_flag; 76 l_operation_tbl(l_cnt).backflush_flag := c.p_backflush_flag; 77 l_operation_tbl(l_cnt).attribute1 := c.p_attribute1; 78 l_operation_tbl(l_cnt).attribute2 := c.p_attribute2; 79 l_operation_tbl(l_cnt).attribute3 := c.p_attribute3; 80 l_operation_tbl(l_cnt).attribute4 := c.p_attribute4; 81 l_operation_tbl(l_cnt).attribute5 := c.p_attribute5; 82 l_operation_tbl(l_cnt).attribute6 := c.p_attribute6; 83 l_operation_tbl(l_cnt).attribute7 := c.p_attribute7; 84 l_operation_tbl(l_cnt).attribute8 := c.p_attribute8; 85 l_operation_tbl(l_cnt).attribute9 := c.p_attribute9; 86 l_operation_tbl(l_cnt).attribute10 := c.p_attribute10; 87 l_operation_tbl(l_cnt).attribute11 := c.p_attribute11; 88 l_operation_tbl(l_cnt).attribute12 := c.p_attribute12; 89 l_operation_tbl(l_cnt).attribute13 := c.p_attribute13; 90 l_operation_tbl(l_cnt).attribute14 := c.p_attribute14; 91 l_operation_tbl(l_cnt).attribute15 := c.p_attribute15; 92 93 /* 94 l_op_resource_tbl(l_cnt).assembly_item_name := '102021101011000007'; 95 l_op_resource_tbl(l_cnt).organization_code := 'A01'; 96 l_op_resource_tbl(l_cnt).alternate_routing_code := NULL; 97 l_op_resource_tbl(l_cnt).operation_sequence_number := '20'; 98 l_op_resource_tbl(l_cnt).usage_rate_or_amount := 3; 99 l_op_resource_tbl(l_cnt).transaction_type := 'UPDATE'; 100 l_op_resource_tbl(l_cnt).resource_sequence_number := '10'; 101 l_op_resource_tbl(l_cnt).op_start_effective_date := to_date( '2014/5/29 18:58:26', 102 'YYYY-MM-DD hh24:mi:ss' );*/ 103 104 dbms_output.put_line('======================================================='); 105 dbms_output.put_line('Calling Bom_Rtg_Pub.Process_Rtg API'); 106 107 bom_rtg_pub.process_rtg(p_bo_identifier => 'RTG', 108 p_api_version_number => '1.0', 109 p_init_msg_list => TRUE, 110 p_rtg_header_rec => l_rtg_header_rec, 111 p_rtg_revision_tbl => l_rtg_revision_tbl, 112 p_operation_tbl => l_operation_tbl, 113 p_op_resource_tbl => l_op_resource_tbl, 114 p_sub_resource_tbl => l_sub_resource_tbl, 115 p_op_network_tbl => l_op_network_tbl, 116 x_rtg_header_rec => x_rtg_header_rec, 117 x_rtg_revision_tbl => x_rtg_revision_tbl, 118 x_operation_tbl => x_operation_tbl, 119 x_op_resource_tbl => x_op_resource_tbl, 120 x_sub_resource_tbl => x_sub_resource_tbl, 121 x_op_network_tbl => x_op_network_tbl, 122 x_return_status => l_return_status, 123 x_msg_count => l_msg_count, 124 p_debug => 'N', 125 p_output_dir => '/usr/tmp/', 126 p_debug_filename => 'rtg_bo_debug.log'); 127 128 dbms_output.put_line('======================================================='); 129 dbms_output.put_line('Return Status: ' || l_return_status); 130 131 IF (l_return_status <> fnd_api.g_ret_sts_success) THEN 132 dbms_output.put_line('x_msg_count:' || l_msg_count); 133 134 error_handler.get_message_list(x_message_list => x_message_list); 135 dbms_output.put_line('Error Message Count :' || x_message_list.count); 136 FOR i IN 1 .. x_message_list.count 137 LOOP 138 dbms_output.put_line(to_char(i) || ':' || x_message_list(i).entity_index || ':' || x_message_list(i).table_name); 139 dbms_output.put_line(to_char(i) || ':' || x_message_list(i).message_text); 140 END LOOP; 141 END IF; 142 dbms_output.put_line('======================================================='); 143 144 l_cnt := l_cnt + 1; 145 END LOOP; 146 147 EXCEPTION 148 WHEN OTHERS THEN 149 dbms_output.put_line('Exception Occured :'); 150 dbms_output.put_line(SQLCODE || ':' || SQLERRM); 151 dbms_output.put_line('======================================================='); 152 RAISE; 153 END;
--标准工序
没有相关标准api
