1
Qihan 发布于 阅读:251
AFTER UPDATE ON uf_htglseyy
FOR EACH ROW
DECLARE
vtxrqtyn NUMBER;
vtxrq DATE;
vrqsz NUMBER;
BEGIN
-- 用于避免重复查询的逻辑封装成一个过程
FOR rec IN (
SELECT rqsz, txrqtyn, rqlx
FROM uf_htlx l
WHERE l.htxx = :NEW.ID AND l.rqlx IN (0, 1, 2, 3)
) LOOP
-- 根据 rqlx 的值选择处理的字段
IF rec.rqlx = 0 AND :OLD.qdrq <> :NEW.qdrq THEN
vrqsz := NVL(rec.rqsz, 0); -- 使用 NVL 确保 vrqsz 不为 NULL
vtxrqtyn := NVL(rec.txrqtyn, 0); -- 使用 NVL 确保 vtxrqtyn 不为 NULL
IF vtxrqtyn = 0 THEN
vtxrq := ADD_DAYS(:NEW.qdrq, vrqsz);
ELSIF vtxrqtyn = 1 THEN
vtxrq := ADD_MONTHS(:NEW.qdrq, vrqsz);
ELSIF vtxrqtyn = 2 THEN
vtxrq := ADD_MONTHS(:NEW.qdrq, vrqsz * 12);
END IF;
UPDATE uf_htlx l
SET l.txrq = vtxrq
WHERE l.htxx = :NEW.ID AND l.rqlx = 0;
ELSIF rec.rqlx = 1 AND :OLD.cyrq <> :NEW.cyrq THEN
vrqsz := NVL(rec.rqsz, 0);
vtxrqtyn := NVL(rec.txrqtyn, 0);
IF vtxrqtyn = 0 THEN
vtxrq := ADD_DAYS(:NEW.cyrq, vrqsz);
ELSIF vtxrqtyn = 1 THEN
vtxrq := ADD_MONTHS(:NEW.cyrq, vrqsz);
ELSIF vtxrqtyn = 2 THEN
vtxrq := ADD_MONTHS(:NEW.cyrq, vrqsz * 12);
END IF;
UPDATE uf_htlx l
SET l.txrq = vtxrq
WHERE l.htxx = :NEW.ID AND l.rqlx = 1;
ELSIF rec.rqlx = 2 AND :OLD.zqysrq <> :NEW.zqysrq THEN
vrqsz := NVL(rec.rqsz, 0);
vtxrqtyn := NVL(rec.txrqtyn, 0);
IF vtxrqtyn = 0 THEN
vtxrq := ADD_DAYS(:NEW.zqysrq, vrqsz);
ELSIF vtxrqtyn = 1 THEN
vtxrq := ADD_MONTHS(:NEW.zqysrq, vrqsz);
ELSIF vtxrqtyn = 2 THEN
vtxrq := ADD_MONTHS(:NEW.zqysrq, vrqsz * 12);
END IF;
UPDATE uf_htlx l
SET l.txrq = vtxrq
WHERE l.htxx = :NEW.ID AND l.rqlx = 2;
ELSIF rec.rqlx = 3 AND :OLD.ysrq <> :NEW.ysrq THEN
vrqsz := NVL(rec.rqsz, 0);
vtxrqtyn := NVL(rec.txrqtyn, 0);
IF vtxrqtyn = 0 THEN
vtxrq := ADD_DAYS(:NEW.ysrq, vrqsz);
ELSIF vtxrqtyn = 1 THEN
vtxrq := ADD_MONTHS(:NEW.ysrq, vrqsz);
ELSIF vtxrqtyn = 2 THEN
vtxrq := ADD_MONTHS(:NEW.ysrq, vrqsz * 12);
END IF;
UPDATE uf_htlx l
SET l.txrq = vtxrq
WHERE l.htxx = :NEW.ID AND l.rqlx = 3;
END IF;
END LOOP;
END;
TO_NUMBER
com.gqh.sph.msg.MobileSMSService
sysadmin账号首次登录密码:XL~6:h}i
http://17.0.1.11:8080/sms/send/
默认用户名和密码为sysadmin/Weaver#2012!@#
x86_64系统请选择:
升级包:福建中医药大学附属第二人民医院FJZYYDXFSDERMYYecology20241107-001.zip
下载地址:https://www.e-cology.com.cn/sp/cm/apply/docs/UpgradePack?uuid=5e6663bb-a233-4277-a1df-11a52312eb63&wea_link_keep_freepass=1
下载密码:WklaIf
升级内容:非标申请1、058 HR同步2、073 公文管理3、089 移动门户4、081 统一待办中心集成5、066 移动引擎6、063 车辆管理7、046 建模引擎8、020 字段联动9、117 移动平台配置中心10、014 主从帐号11、123 数据中心12、100 统一认证中心13、032 公文交换14、118 OFD文件转换15、048 微搜3.016、101 统一待办推送设置17、005 集成登录接口18、103 督查督办19、102 公文交换中心
升级包:福建中医药大学附属第二人民医院FJZYYDXFSDERMYYecology20241107-002.zip
下载地址:https://www.e-cology.com.cn/sp/cm/apply/docs/UpgradePack?uuid=36863bda-778a-4b54-8a40-3066d8bc339c&wea_link_keep_freepass=1
下载密码:AdJTyH
升级内容:E9补丁:KB900240701升至KB900241002
推荐阅读: