首页 > 代码库 > 更新客户信息
更新客户信息
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_module; -- l_cust_account_rec.tax_header_level_flag := rec.tax_header_level_flag; ----add by Jake.Yu@2012-11-29--- -- l_cust_account_rec.tax_rounding_rule := rec.tax_rounding_rule; ----add by Jake.Yu@2012-11-29--- p_customer_rec.cust_account_id := rec_h.customer_id; SELECT l.party_id INTO l_party_id FROM hz_cust_accounts l WHERE l.cust_account_id = rec_h.customer_id; p_customer_rec.party_id := l_party_id; /* p_customer_rec.category_code :=; -- 客户类别 p_customer_rec.related_party :=; -- 关联方标识 p_customer_rec.party_number:=;*/ cux_ar_customer_infor_pkg.sys_update_customer(p_customer_rec => p_customer_rec, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data =http://www.mamicode.com/> l_msg_data);>更新客户信息
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。