更新客户信息

最新推荐文章于 2021-04-09 02:41:54 发布

原创

最新推荐文章于 2021-04-09 02:41:54 发布 · 2.1k 阅读

2 ·

CC 4.0 BY-SA版权

这段PL/SQL代码展示了如何使用游标遍历`AR_CUSTOMERS`表中以'—XD'为部分名称的客户记录，将名称中的'—'替换为'-'，并更新到相关客户信息表中。过程涉及`cux_ar_customer_infor_pkg`包的系统更新函数，但缺少一些变量赋值和注释中提到的表查询。

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_channel_code:=; -- 销售渠道*/
      -- l_cust_account_rec.created_by_module       := c_created_by