更新工艺路线资源 - 数据库编程

, 'YYYY-MM-DD hh24:mi:ss' ); --Actually the issue again was effectivity date, for Resource update I was supplying effectivity date l_op_resource_tbl (j).op_start_effective_date which was not exact match as in Application. --Picked up correct effectivity date and it worked fine. --l_op_resource_tbl(l_cnt).resource_code := 'THL'; /*-- operation 2 l_cnt := l_cnt + 1; l_operation_tbl(l_cnt).assembly_item_name := 'lcy_test_item01'; l_operation_tbl(l_cnt).organization_code := 'M1'; l_operation_tbl(l_cnt).alternate_routing_code := NULL; l_operation_tbl(l_cnt).operation_sequence_number := '20'; l_operation_tbl(l_cnt).operation_type := 1; l_operation_tbl(l_cnt).start_effective_date := SYSDATE; -- to_date('16-JUL-2010 19:30:39','DD-MON-YY HH24:MI:SS'); -- should match timestamp for UPDATE l_operation_tbl(l_cnt).standard_operation_code := 'SFPK'; l_operation_tbl(l_cnt).yield := 1.0; l_operation_tbl(l_cnt).transaction_type := 'CREATE';*/
-- initialize error stack for logging errors error_handler.initialize;
-- call API to create / update routing dbms_output.put_line('=======================================================' ); dbms_output.put_line( 'Calling Bom_Rtg_Pub.Process_Rtg API' );
bom_rtg_pub.process_rtg(p_bo_identifier => 'RTG', p_api_version_number => '1.0', p_init_msg_list => TRUE, p_rtg_header_rec => l_rtg_header_rec, p_rtg_revision_tbl => l_rtg_revision_tbl, p_operation_tbl => l_operation_tbl, p_op_resource_tbl => l_op_resource_tbl, p_sub_resource_tbl => l_sub_resource_tbl, p_op_network_tbl => l_op_network_tbl, x_rtg_header_rec => x_rtg_header_rec, x_rtg_revision_tbl => x_rtg_revision_tbl, x_operation_tbl => x_operation_tbl, x_op_resource_tbl => x_op_resource_tbl, x_sub_resource_tbl => x_sub_resource_tbl, x_op_network_tbl => x_op_network_tbl, x_return_status => l_return_status, x_msg_count => l_msg_count, p_debug => 'N', p_output_dir => '/usr/tmp/', p_debug_filename => 'rtg_bo_debug.log');

dbms_output.put_line('=======================================================' ); dbms_output.put_line( 'Return Status: ' || l_return_status);
IF (l_return_status <> fnd_api.g_ret_sts_success) THEN dbms_output.put_line( 'x_msg_count:' || l_msg_count); error_handler.get_message_list(x_message_list => x_message_list); dbms_output.put_line( 'Error Message Count :' || x_message_list.count); FOR i IN 1 .. x_message_list.count LOOP dbms_output.put_line(to_char(i) || ':' || x_message_list(i) .entity_index || ':' || x_message_list(i) .table_name); dbms_output.put_line(to_char(i) || ':' || x_message_list(i) .message_text); END LOOP ; END IF; dbms_output.put_line('=======================================================' );
EXCEPTION WHEN OTHERS THEN dbms_output.put_line( 'Exception Occured :'); dbms_output.put_line( SQLCODE || ':' || SQLERRM); dbms_output.put_line('=======================================================' ); RAISE; END;

更新工艺路线资源(二)