DECLARE
CURSOR cur_h IS
SELECT h.*
FROM ar_customers h
WHERE h.customer_name /*'—XD';*/
LIKE '%—XD';
p_customer_rec cux_ar_cust_accounts_v%ROWTYPE;
l_return_status VARCHAR2(30);
l_msg_count NUMBER;
l_msg_data VARCHAR2(3000);
l_party_id NUMBER;
l_name VARCHAR2(3000);
/*FROM CUX_AR_CUSTOMERS_BILL_ALL*/
BEGIN
FOR rec_h IN cur_h LOOP
SELECT REPLACE(rec_h.customer_name, '—', '-') INTO l_name FROM dual;
p_customer_rec.party_name := l_name; -- 客户名称
/*p_customer_rec.party_number:=;
p_customer_rec.tax_reference:=; -- 纳税登记编号
p_customer_rec.account_number:=; --客户账号
-- l_cust_account_rec.customer_type := 'R'; --p_customer_rec.; -- 账户类型:'R' 外部
p_customer_rec.customer_class_code:=; -- 账户分类: 'FWDW' 服务单位
p_customer_rec.sales
更新客户信息
最新推荐文章于 2021-06-04 00:32:47 发布
这段PL/SQL代码展示了如何使用游标遍历`AR_CUSTOMERS`表中以'—XD'为部分名称的客户记录,将名称中的'—'替换为'-',并更新到相关客户信息表中。过程涉及`cux_ar_customer_infor_pkg`包的系统更新函数,但缺少一些变量赋值和注释中提到的表查询。
摘要由CSDN通过智能技术生成