Oracle EBS AR 更新客户
标签：nts init type v2p erro 客户 not obj creat
Oracle EBS AR 更新客户
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;