--使用游标补充报审信息
DECLARE
CURSOR c_my IS select id,SERIAL_NO from pfwxt_stc.T_SH_PROD_TRUST_ACCT WHERE PROD_AUDIT_STATUS ='AUDIT';
my_rec c_my%ROWTYPE;
BEGIN
OPEN c_my;
LOOP
FETCH c_my INTO my_rec;
EXIT WHEN c_my%NOTFOUND;
UPDATE STD_MERCHANT_REGISTER_PROCESS t set t."DATA" =regexp_replace(t."DATA",'000093',my_rec.SERIAL_NO) where t.NODE ='200' AND TRUST_NUMBER =my_rec.SERIAL_NO;
UPDATE STD_MERCHANT_REGISTER_PROCESS t set t."DATA" =regexp_replace(t."DATA",'510',my_rec.id) where t.NODE ='200' AND TRUST_NUMBER =my_rec.SERIAL_NO;
END LOOP;
CLOSE c_my;
END;
--使用游标补充tcmpid
DECLARE
-- CURSOR c_my IS select rownum as l_accoid,id from STD_TRUST_BANKCARD_INFO WHERE ACCT_ID IS NULL; --使用行号补充tcmpid
CURSOR c_my IS select b.l_accoid ,a.id from STD_TRUST_BANKCARD_INFO a,tcmp.taccount_bankinfo@DBLINK_TCMP b WHERE a.BANK_ACCT =b.C_BANKACCO AND a.ACCT_ID IS NULL; --使用dblink补充tcmpid
my_rec c_my%ROWTYPE;
BEGIN
OPEN c_my;
LOOP
FETCH c_my INTO my_rec;
EXIT WHEN c_my%NOTFOUND;
UPDATE STD_TRUST_BANKCARD_INFO SET ACCT_ID =my_rec.l_accoid WHERE ID =my_rec.id;
END LOOP;
CLOSE c_my;
END;
--使用游标补充支付单号
DECLARE
CURSOR c_my IS select rownum,trans_no from STD_TRANS_APPLY_ORDER WHERE BIZ_TYPE IN('CONSUME','RECHARGE')AND substr(ORDER_BEGIN_TIME,1,10)='2023-06-25';
my_rec c_my%ROWTYPE;
BEGIN
OPEN c_my;
LOOP
FETCH c_my INTO my_rec;
EXIT WHEN c_my%NOTFOUND;
UPDATE STD_TRANS_APPLY_ORDER SET OUT_PAY_NO =my_rec.rownum WHERE trans_no =my_rec.trans_no;
END LOOP;
CLOSE c_my;