更新客户信息

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