Oracle EBS AR 更新客户
时间：2021-07-01 10:21:17
帮助过：34人阅读
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_id
FROM 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;
Oracle EBS AR 更新客户
标签：nts init type v2p erro 客户 not obj creat
