最近業務需要翻閱了很多關於游標遍歷使用的帖子 總結一下 直接上代碼吧
BEGIN
/**
凈值=固定資產原值-累計折舊
累計折舊=月折舊額*已計提月份
月折舊額=(固定資產原價-(固定資產原價*3%的殘值率))/預計使用月限
(10000-(10000*3%))/360=26.94
**/
/**更新凈值,累計折舊,月折舊額,已計提月份**/
DECLARE myid VARCHAR(100); -- id
DECLARE myybyz INT; -- 原幣原值
DECLARE mykssyrq VARCHAR(36); -- 開始使用日期
DECLARE mysyyx INT; -- 使用月限
DECLARE yjtyf INT; -- 已計提月份
DECLARE yzje DECIMAL(16,2); -- 月折舊額
DECLARE ljzj DECIMAL(16,2); -- 累計折舊
DECLARE jz DECIMAL(16,2); -- 累計折舊
DECLARE a INT;
DECLARE b INT;
DECLARE c INT;
DECLARE d INT;
DECLARE done INT DEFAULT 0; -- 標記默認為0
DECLARE lists CURSOR FOR SELECT ID,YBYZ,KSSYRQ,SYYX FROM BO_EU_BPM_SWKZJB; -- 游標
DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1; -- 沒有下一條數據 修改標記為1
OPEN lists;
FETCH NEXT FROM lists INTO myid,myybyz,mykssyrq,mysyyx;
WHILE (done<>1) DO
BEGIN
SELECT year(NOW()) INTO a;
SELECT year(mykssyrq) INTO b;
SELECT month(NOW()) INTO c;
SELECT month(mykssyrq) INTO d;
SELECT (a-b)*12+(c-d)-1 INTO yjtyf ; -- 已計提月份
SELECT round((myybyz-(myybyz*0.03))/mysyyx,2) INTO yzje; -- 月折舊額
IF (yjtyf >= mysyyx)
THEN
UPDATE BO_EU_BPM_SWKZJB SET JZ=0,LJZJ=myybyz,YZJE=yzje,YJTYF=yjtyf WHERE ID = myid; -- 更新數據庫
ELSE
SELECT yzje*yjtyf INTO ljzj; -- 累計折舊
SELECT myybyz-ljzj INTO jz; -- 凈值
UPDATE BO_EU_BPM_SWKZJB SET JZ=jz,LJZJ=ljzj,YZJE=yzje,YJTYF=yjtyf WHERE ID = myid; -- 更新數據庫
END IF;
END;
FETCH NEXT FROM lists INTO myid,myybyz,mykssyrq,mysyyx;
END WHILE;
CLOSE lists;
END
IN `bindid_in` char(36) --輸入參數
BEGIN
/**根據LBBM 查詢表中最大的 ZCBM
找到后加+1 賦值進去
如果沒有 則 LBBM+0001 在賦值進去
根據類別查編碼找財務庫最大的編碼+1 更新到財務庫和實物庫**/
DECLARE cwid VARCHAR(36); -- id
DECLARE swid VARCHAR(36); -- id
DECLARE mylbbm VARCHAR(36); -- 類別編碼
DECLARE myzcbm VARCHAR(36); -- 資產編碼
DECLARE nmyzcbm VARCHAR(36);-- 資產編碼+1
DECLARE done INT DEFAULT 0; -- 標記默認為0
DECLARE lists CURSOR FOR select ID,LBBM from BO_EU_BPM_CWKPZJB WHERE YY_ID= bindid_in; -- 游標(財務表)
DECLARE lists1 CURSOR FOR select ID from BO_EU_BPM_SWKZJB WHERE YY_ID= bindid_in; -- 游標(實物表)
DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1; -- 沒有下一條數據 修改標記為1
OPEN lists;
OPEN lists1;
FETCH NEXT FROM lists INTO cwid,mylbbm;
FETCH NEXT FROM lists1 INTO swid;
WHILE (done<>1) DO
BEGIN
SELECT MAX(ZCBM) INTO myzcbm FROM BO_EU_BPM_CWKPZJB WHERE LBBM = mylbbm;
IF myzcbm =''
THEN
SELECT CONCAT(mylbbm,'0000') INTO myzcbm;
SELECT (CAST(myzcbm AS SIGNED)+1)+'' INTO nmyzcbm;
UPDATE BO_EU_BPM_CWKPZJB set ZCBM = nmyzcbm,SWZCBM = CONCAT(nmyzcbm,'001') WHERE ID = cwid;
UPDATE BO_EU_BPM_SWKZJB set ZCBM = nmyzcbm,SWZCBM = CONCAT(nmyzcbm,'001') WHERE ID = swid;
ELSE
SELECT (CAST(myzcbm AS SIGNED)+1)+'' INTO nmyzcbm;
UPDATE BO_EU_BPM_CWKPZJB set ZCBM = nmyzcbm,SWZCBM = CONCAT(nmyzcbm,'001') WHERE ID = cwid;
UPDATE BO_EU_BPM_SWKZJB set ZCBM = nmyzcbm,SWZCBM = CONCAT(nmyzcbm,'001') WHERE ID = swid;
END IF;
END;
FETCH NEXT FROM lists INTO cwid,mylbbm;
FETCH NEXT FROM lists1 INTO swid;
END WHILE;
CLOSE lists;
CLOSE lists1;
END
/*雙游標while循環遍歷if嵌套真實案例*/
此文僅供參考學習,順便留個痕跡,方便查閱,如有不足,還請多多指教.
