oracle数据库不同数据库的数据同步的行级触发器

 

TRIGGER TOLOADER_HDTOPORTINFO
AFTER DELETE OR INSERT OR UPDATE ON HDTOPORTINFO
FOR EACH ROW
DECLARE 
  logid integer;
  contentstr varchar(4000);
BEGIN
  
    if inserting then
        insert into HDTOPORTINFO@LINK_CFD1_TO_CFDERP_2015(ID,OP_DATE,CAR_DATE,QUANTITY,USER_TEL_NAME,PACT_NO,CARAMOUNT) values(:NEW.ID,:NEW.OP_DATE,:NEW.CAR_DATE,:NEW.QUANTITY,:NEW.USER_TEL_NAME,:NEW.PACT_NO,:NEW.CARAMOUNT);
    elsif updating then
        update HDTOPORTINFO@LINK_CFD1_TO_CFDERP_2015 set ID=:NEW.ID,OP_DATE=:NEW.OP_DATE,CAR_DATE=:NEW.CAR_DATE,QUANTITY=:NEW.QUANTITY,USER_TEL_NAME=:NEW.USER_TEL_NAME,PACT_NO=:NEW.PACT_NO,CARAMOUNT=:NEW.CARAMOUNT where id=:OLD.id;
    elsif deleting then
        delete from HDTOPORTINFO@LINK_CFD1_TO_CFDERP_2015 where id=:OLD.id;
    end if;
     exception
        when others then
          SELECT WEBLOG_SEQ.NEXTVAL INTO logid FROM SYS.DUAL;
          if inserting then
              contentstr := 'insert into HDTOPORTINFO@LINK_CFD1_TO_CFDERP_2015(ID,OP_DATE,CAR_DATE,QUANTITY,USER_TEL_NAME,PACT_NO,CARAMOUNT) values( '||:NEW.ID||','||:NEW.OP_DATE||','||:NEW.CAR_DATE||','||:NEW.QUANTITY||','||:NEW.USER_TEL_NAME||','||:NEW.PACT_NO||','||:NEW.CARAMOUNT||')';
          elsif updating then
              contentstr := 'update HDTOPORTINFO@LINK_CFD1_TO_CFDERP_2015 set  ID='||:NEW.ID||',OP_DATE='||:NEW.OP_DATE||',CAR_DATE='||:NEW.CAR_DATE||',QUANTITY='||:NEW.QUANTITY||',USER_TEL_NAME='||:NEW.USER_TEL_NAME||',PACT_NO='||:NEW.PACT_NO||',CARAMOUNT='||:NEW.CARAMOUNT||' where id=:OLD.id';
          elsif deleting then
              contentstr := 'delete from HDTOPORTINFO@LINK_CFD1_TO_CFDERP_2015 where id=:OLD.id';
          end if; 
          insert into weblog (id,context) values (logid,contentstr);
END;