更新客户配置文件

DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile hz_customer_profile_v2pub.cust_profile_amt_rec_type; l_profile_amt_id NUMBER; l_profile_id NUMBER; l_return_status1 VARCHAR2(30); l_msg_count1 NUMBER; l_msg_data1 VARCHAR2(2000); l_return_status2 VARCHAR2(30); l_msg_count2 NUMBER; l_msg_data2 VARCHAR2(2000); l_object_version_number NUMBER; BEGIN /* alter session set NLS_LANGUAGE = 'AMERICAN' ;*/ mo_global.init('AR'); fnd_global.apps_initialize(user_id => 1250, resp_id => 50719, resp_appl_id => 20005); l_rec_profile_t.cust_account_profile_id := 1040; l_rec_profile_t.cust_account_id := 1042; --CXY-TEST0028660 /* l_rec_profile_t.status := 'A'; l_rec_profile_t.collector_id := NULL; l_rec_profile_t.credit_analyst_id := NULL; l_rec_profile_t.credit_checking := NULL; l_rec_profile_t.next_credit_review_date := NULL; l_rec_profile_t.tolerance := NULL; l_rec_profile_t.discount_terms := NULL; l_rec_profile_t.dunning_letters := NULL; l_rec_profile_t.interest_charges := NULL; l_rec_profile_t.send_statements := NULL; l_rec_profile_t.credit_balance_statements := NULL;*/ l_rec_profile_t.credit_hold := 'N'; /*l_rec_profile_t.profile_class_id := NULL; l_rec_profile_t.site_use_id := 420072; --BILL_TO l_rec_profile_t.credit_rating := NULL; l_rec_profile_t.risk_code := NULL; l_rec_profile_t.standard_terms := NULL; l_rec_profile_t.override_terms := NULL; l_rec_profile_t.dunning_letter_set_id := NULL; l_rec_profile_t.interest_period_days := NULL; l_rec_profile_t.payment_grace_days := NULL; l_rec_profile_t.discount_grace_days := NULL; l_rec_profile_t.statement_cycle_id := NULL; l_rec_profile_t.account_status := NULL; l_rec_profile_t.percent_collectable := NULL; l_rec_profile_t.autocash_hierarchy_id := NULL; l_rec_profile_t.auto_rec_incl_disputed_flag := NULL; l_rec_profile_t.tax_printing_option := NULL; l_rec_profile_t.charge_on_finance_charge_flag := NULL; l_rec_profile_t.grouping_rule_id := NULL; l_rec_profile_t.clearing_days := NULL; l_rec_profile_t.cons_inv_flag := NULL; l_rec_profile_t.cons_inv_type := NULL; l_rec_profile_t.autocash_hierarchy_id_for_adr := NULL; l_rec_profile_t.lockbox_matching_option := NULL; l_rec_profile_t.created_by_module := 'BLC'; l_rec_profile_t.application_id := NULL; l_rec_profile_t.review_cycle := NULL; l_rec_profile_t.last_credit_review_date := NULL; l_rec_profile_t.party_id := NULL; l_rec_profile_t.credit_classification := NULL; l_rec_profile_t.cons_bill_level := NULL; l_rec_profile_t.late_charge_calculation_trx := NULL; l_rec_profile_t.credit_items_flag := NULL; l_rec_profile_t.disputed_transactions_flag := NULL; l_rec_profile_t.late_charge_type := NULL; l_rec_profile_t.late_charge_term_id := NULL; l_rec_profile_t.interest_calculation_period := NULL; l_rec_profile_t.hold_charged_invoices_flag := NULL; l_rec_profile_t.message_text_id := NULL; l_rec_profile_t.multiple_interest_rates_flag := NULL; l_rec_profile_t.charge_begin_date := NULL; l_rec_profile_t.automatch_set_id := NULL;*/ l_object_version_number := 5;--此值需为当前此配置文件的值，API里验证以下 /* IF NOT ((p_object_version_number IS NULL AND l_object_version_number IS NULL) OR (p_object_version_number IS NOT NULL AND l_object_version_number IS NOT NULL AND p_object_version_number = l_object_version_number)) THEN fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED'); fnd_message.set_token('TABLE', 'hz_customer_profiles'); fnd_msg_pub.add; RAISE fnd_api.g_exc_error; 由于另外一用户已更新了表 hz_customer_profiles 中的记录，因此没法锁定该记录。 END IF;*/ hz_customer_profile_v2pub.update_customer_profile(p_init_msg_list => fnd_api.g_false, p_customer_profile_rec => l_rec_profile_t, p_object_version_number => l_object_version_number, x_return_status => l_return_status1, x_msg_count => l_msg_count1, x_msg_data => l_msg_data1); FOR i IN 1 .. l_msg_count1 LOOP l_msg_data1 := fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F'); END LOOP; --FOR i IN 1 .. x_msg_count LOOP dbms_output.put_line('x_return_status1:' || l_return_status1); dbms_output.put_line('l_msg_count1:' || l_msg_count1); dbms_output.put_line('l_msg_data1:' || l_msg_data1); dbms_output.put_line('l_profile_amt_id:' || l_profile_amt_id); EXCEPTION WHEN OTHERS THEN dbms_output.put_line('x_return_status:' || SQLERRM); END;