Oracle EBS AR 更新客戶
阿新 • • 發佈:2018-11-23
DECLARE l_return_status VARCHAR2(300); l_msg_count NUMBER; l_msg_data VARCHAR2(300); l_rec_type hz_cust_account_v2pub.cust_account_rec_type;CURSOR cur IS SELECT party.party_name, cust.account_number, cust.creation_date, party.tax_reference, cust.cust_account_idFROM hz_cust_accounts cust, hz_parties party WHERE cust.party_id = party.party_id AND cust.account_number NOT IN ('10005693', -- '10005184', -- '10005084', -- '10005049', -- '10005330', -- '10005259', -- '10005617', '10005157'); BEGIN FOR rec IN cur LOOP l_rec_type.cust_account_id := rec.cust_account_id; l_rec_type.account_name := rec.party_name || '(作廢)'; -- l_rec_type.cust_account_id := rec.CUST_ACCOUNT_ID; hz_cust_account_v2pub.update_cust_account(p_init_msg_list => fnd_api.g_false, p_cust_account_rec => l_rec_type, p_object_version_number => 2.0, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data); IF l_return_status <> 'S' THEN dbms_output.put_line('E:' || cux_util.dump_error_stack); RAISE; END IF; END LOOP; END;