壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2623|回复: 4

ORACLE ERP程式調整

[复制链接]
发表于 2007/4/11 18:47:44 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
各位大俠可否幫忙解決以下問題, 謝謝啦!!
以下程式測試ok, 但需要 添加兩個條件 1.user被修改DEPT後 希望在收到此MAIL通知 時間都在每天早上8點
2.修改 BEGIN下的內容讓其在mail中以橫向顯示如下  
ID NO   NAME  ADRESS   NEW DEPT    OLD DEPT
123      王雷    江蘇     HA5100        SB1400   

create or replace trigger TDD021
BEFORE  DELETE  OR UPDATE
ON dds15
REFERENCING NEW AS NEW OLD AS OLD
FOR EACH ROW
declare

        V_DBNAME            VARCHAR2(5);

        V_ddm22            ddm22%ROWTYPE;
PROCEDURE        ER_SEND_MAIL                IS
        V_DB_NAME  VARCHAR2(10);
BEGIN
        select name into V_DB_NAME from v$database;

        V_Ddm22.RECEIVER                        :=        'ZHU_HUIJUAN@calcomp.com.cn';
              V_DDM22.SUBJECT                :=        '變更通知';
              V_DDM22.CONTENT                :=        'Dear USER:  '||chr(10)||chr(10)||chr(10)||
              'ID NO ¦:NEW.ID_NO:'||chr(10)||
              'NAME:'||:NEW.NAME||chr(10)||
             'ADRESS:'||:NEW.ADRESS||chr(10)||
             'DEPT:'||:NEW.DEPT||chr(10)||
             'DEPT:'||:OLD.DEPT||chr(10)||
                        
             'If you have any question ,please contact with us!';
           
                
                    INSERT        INTO                DDM22                (RECEIVER,SUBJECT,CONTENT,LAST_UPD,UID1)
                 VALUES
                           (V_DDM22.RECEIVER,V_DDM22.SUBJECT,V_DDM22.CONTENT,SYSDATE,USER);
                     
                  
END                ER_SEND_MAIL;




BEGIN
         SELECT NAME INTO V_DBNAME FROM V$DATABASE;


         IF updating                                                     then
      IF     :NEW.SOURCE_CD='R' AND :OLD.DEPT  LIKE 'H%' AND :NEW.PURCHASER NOT LIKE 'S%' THEN
               

                   ER_SEND_MAIL;
                   END IF;
         END IF;
END ;
发表于 2007/4/11 19:27:44 | 显示全部楼层
请把建表的SQl以附件的方式贴到论坛。
否则解决不了你的问题。
 楼主| 发表于 2007/4/12 07:32:10 | 显示全部楼层
這是一個難題啊,我用公司網絡限制權限了,不能下載也不能上傳啊! 抓狂
发表于 2007/4/12 10:42:00 | 显示全部楼层
那就趁回家的时候上传一下吧,你们公司挺有趣,这样做ORACLE的附件功能不知道会不会受影响
 楼主| 发表于 2007/4/12 18:39:33 | 显示全部楼层
住公司呢......
公司還有更有趣的呢,你還沒見識過.......
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/30 16:37 , Processed in 0.015076 second(s), 14 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表