NC客商bd_custbank不可修改账号、名称但可修改默认银行并更新分子公司trigger

create or replace trigger S_UPDATE_CUSTBANK
  before  update on  bd_custbank
  for each row
declare
  -- local variables here
   pk_bas char(20);

  cursor basjob(id char) is
    select pk_custbank
      from ncv5.bd_custbank /*目标数据库表*/
     where pk_custbank = id
       and nvl(dr, 0) = 0;
begin
   /*判断数据是否在目标数据库存在*/
  open basjob(:new.pk_custbank);

  loop

    fetch basjob
      into pk_bas;

    exit when basjob%notfound;

  end loop;
  close basjob;
  /******************************/

  if pk_bas is not null then
   if 
    :new.account<>:old.account or
    :new.accname<>:old.accname or
    :new.memo<>:old.memo then
  raise_application_error(-20001, '请点击客商开户银行修改，此处不可修改！');
  else
     begin
      update ncv5.bd_custbank /*目标数据库表*/
         set pk_custbank = :new.pk_custbank,
             pk_cubasdoc = :new.pk_cubasdoc,
             accname     = :new.accname,
             account     = :new.account,
             accaddr     = :new.accaddr,
             defflag     = :new.defflag,
             memo        = :new.memo,
             pk_accbank  = :new.pk_accbank,
             pk_corp     = :new.pk_corp,
             pk_currtype = :new.pk_currtype,
             ts          = :new.ts,
             dr          = :new.dr
       where pk_custbank = :new.pk_custbank;
    end;

  end if;
    end if;
end S_UPDATE_CUSTBANK;