看来需要继续研究结算中心账户客商触发器了|OK||更新if else用法|

itpub和csdn上面的求助原文：

oracle数据库是用在我们公司用友NC财务软件上，NC版本是5.02。
我是公司的NC的系统管理员。
我们使用了资金管理系统，需要使用一个功能是填制结算凭证，如下图：

上图红色方框标示的是需要特别注意的，系统的要求必须“账户”和“客商辅助”必须一致，也就是这里的“账户”是北京公司，那么后面的“客商辅助”也必须选择北京公司，否则会出现账务和系统上的麻烦。
    备注：我们公司对同一个分公司，账户和客商是同一个编码，比如北京公司，账户和客商编码都是010201，上海公司都是010301.
     
    我经过查看后台数据库，在填制结算凭证的时候，影响到的是两个表，分包是结算分录fts_voucher_b，结算凭证fts_voucher，这两个表通过字段pk_voucher关联。
    上图中的“账户”和“客商辅助”是存在fts_voucher_b中，但是不是直接的代码，比如010201，而是两个pk代码值。
   经过几天的研究，我打算通过触发器完成这个账户和客商一致的问题，可是上面也说到，在填制结算凭证，后台存入fts_voucher_b中的是pk值，必须要凭证保存到数据库之后才能查询到不一致的情况。
   查询结算分录账户和客商不一致的情况，我sql如下：

select

       bd_accid.accidcode,

       gl_freevalue.valuecode

  from fts_voucher_b, bd_accsubj, gl_freevalue, bd_accid

where fts_voucher_b.pk_subject = bd_accsubj.pk_accsubj

   and fts_voucher_b.pk_ass = gl_freevalue.freevalueid

   and fts_voucher_b.dr = '0'

   and fts_voucher_b.pk_corp = '1162'

   and fts_voucher_b.pk_account = bd_accid.pk_accid

   and length(gl_freevalue.valuecode) = '6'

   and substr(gl_freevalue.valuecode, 0, 1) = '0'

   and bd_accid.accidcode != gl_freevalue.valuecode

复制代码
    这里为了将账户和客商的pk值转化为数字代码（上面备注说到的北京公司010201），通过了4个表的关联查询。
   之后触发器把上面的代码作为了游标，触发器如下：
 

create or replace trigger CHECK_VOUCHER

before insert or update on fts_voucher  

  for each row

declare

  -- local variables here

  pk_bas char(20);

  accode char(6);

  vcode char(6);

cursor basjob(id char) is

    select fts_voucher_b.pk_voucher,bd_accid.accidcode, gl_freevalue.valuecode

      from fts_voucher_b,bd_accid, gl_freevalue

     where fts_voucher_b.pk_voucher = id

       and     fts_voucher_b.pk_ass = gl_freevalue.freevalueid

               and fts_voucher_b.pk_account = bd_accid.pk_accid

               and length(gl_freevalue.valuecode) = '6'

               and substr(gl_freevalue.valuecode, 0, 1) = '0';

begin

  open basjob(:new.pk_voucher);

  loop

fetch basjob

      into pk_bas, accode , vcode;

    exit when basjob%notfound;

    --raise_application_error(-20001,pk_accidcode||'hhh');

  end loop;

  close basjob;

  if pk_bas is not null then

    if accode<>vcode then

begin

raise_application_error(-20001,'结算凭证号'||:new.cent_typeid||'账户和客商不一致，请修改！');

    end;

  end if;

  end if;

end CHECK_VOUCHER;

   

复制代码

     解释：触发器是写在了表结算凭证fts_voucher上而不是写在结算分录fts_voucher_b上，因为上面提到凭证没有保存的时候是不会相应游标里面的sql。 这里借用了fts_voucher和fts_voucher_b共同有一个同样的值pk_voucher。触发器是在审核结算凭证的时候引起触发（审核的时候fts_voucher会有新值传入）
    目前，这个触发器已经完成了如果填制的结算凭证账户和客商不一致引起触发报错不给审核额通过。
   但是很快发现了问题，就是审核发现错误之后，让制单人回到填制结算凭证那里修改账户和客商保存一致，保存的时候同意会报错，不能保存。
   基本的原因是知道的，在修改结算凭证的时候，pk_voucher并没有变动，错误的结算凭证还在fts_voucher_b里面，系统在保存之前和过程中还是识别的这个没有改的错误的结算凭证，因此即使修改了也是不让保存。
   目前我只要让同事删除这个结算凭证，重新制单。
   
   有几点疑问：
   1，这个问题还有解决的可能性吗？就是触发器在触发报错之后，制单人可以直接原有基础上修改而不用删除重新制单。
   2，可否使用after触发器，让在保存之后报错，这时候触发器直接写在fts_voucher_b上？
   3，是不是我的触发器写的不够好，还有其他的优化？
   如果方便，可以加我qq344529501，谢谢！
   
下面是搞定的sql，感谢一位高手

create or replace trigger fts_v_b

  before insert or update on   fts_voucher_b

  for each row

declare

  -- local variables here

  accode char(6);

  vcode char(6);

  vRowsCount number;

begin

select nvl(count(*),0) into vRowsCount from fts_voucher_b, gl_freevalue, bd_accid

             where  gl_freevalue.freevalueid=:new.pk_ass

               and  bd_accid.pk_accid=:new.pk_account

               and length(gl_freevalue.valuecode) = '6'

               and substr(gl_freevalue.valuecode, 0, 1) = '0';

if vRowsCount > 0 then

   select distinct bd_accid.accidcode,  gl_freevalue.valuecode into accode,vcode

   from fts_voucher_b, gl_freevalue, bd_accid

             where  gl_freevalue.freevalueid=:new.pk_ass

               and  bd_accid.pk_accid=:new.pk_account

               and length(gl_freevalue.valuecode) = '6'

               and substr(gl_freevalue.valuecode, 0, 1) = '0';  

else

    return;

end if;

if  accode<>vcode   then

       raise_application_error(-20001,'结算凭证账户'||accode||'和客商'||vcode|| '不一致!');

end if;  

end  fts_v_b;

复制代码

本以为触发器已经完美。

create or replace trigger CHECK_VOUCHER

  before insert or update on fts_voucher  

  for each row

declare

  -- local variables here

  pk_bas char(20);

 

  cursor basjob(id char) is

    select pk_voucher

      from fts_voucher_b

     where pk_voucher = id

       and pk_voucher in

           (select fts_voucher_b.pk_voucher

              from fts_voucher_b, gl_freevalue, bd_accid

             where fts_voucher_b.pk_ass = gl_freevalue.freevalueid

               and fts_voucher_b.pk_account = bd_accid.pk_accid

               and length(gl_freevalue.valuecode) = '6'

               and substr(gl_freevalue.valuecode, 0, 1) = '0'

               and bd_accid.accidcode <> gl_freevalue.valuecode);

 

begin

  open basjob(:new.pk_voucher);

  loop

  

    fetch basjob

      into pk_bas;

    exit when basjob%notfound;

    --raise_application_error(-20001,pk_accidcode||'hhh');

  end loop;

  close basjob;

 

  if pk_bas is not null then

    begin

      raise_application_error(-20001,

                              '结算凭证'|| :new.cent_typeid ||'账户和客商不一致，请删除，之后重新填写结算凭证！');

    end;

  end if;

end CHECK_VOUCHER;

可是今天孙娜填写了一个错误的结算凭证，就是账户和客商不一致，审核的时候报错。
但是孙娜在结算凭证那里改正这个错误的凭证，之后报错却同样的触发了这个trigger。
后来临时的解决办法是删除这个结算凭证，重新手工填写。

基本的原因是知道的，在修改结算凭证的时候，pk_voucher并没有变动，因为之前的结算凭证还在fts_voucher_b里面，系统在保存之前和过程中还是识别的这个没有改的错误的结算凭证，因此即使修改了也是不让保存。
怎么解决呢
但是奇怪啊，我明明写的是before insert or update on fts_voucher  ，修改结算凭证是针对fts_voucher_b的，为什么这里会触发呢

4.1 23:13更新：after触发器试一下
4.3 1:34 update:

create or replace trigger CHECK_VOUCHER
 before insert or update on fts_voucher

  for each row
declare

  -- local variables here

  pk_bas char(20);

  accode char(6);
  vcode char(6);

  cursor basjob(id char) is
    select fts_voucher_b.pk_voucher,bd_accid.accidcode, gl_freevalue.valuecode
      from fts_voucher_b,bd_accid, gl_freevalue
     where fts_voucher_b.pk_voucher = id

       and     fts_voucher_b.pk_ass = gl_freevalue.freevalueid
               and fts_voucher_b.pk_account = bd_accid.pk_accid
               and length(gl_freevalue.valuecode) = '6'
               and substr(gl_freevalue.valuecode, 0, 1) = '0';    

 begin
  open basjob(:new.pk_voucher);
  loop
    fetch basjob
      into pk_bas, accode , vcode;

    exit when basjob%notfound;

    --raise_application_error(-20001,pk_accidcode||'hhh');
   end loop;
  close basjob; 

  if pk_bas is not null then

    if accode<>vcode then

    begin

      raise_application_error(-20001,:new.pk_voucher||:old.pk_voucher||'结算凭证号：'||:new.cent_typeid||'的账户'||accode||

      '和客商辅助'||vcode||'不一致，请修改！');

  update fts_voucher set pk_voucher='1162N51000000001'||substr(:new.pk_voucher,17,4)

  where pk_voucher=:old.pk_voucher;

  update fts_voucher_b set pk_voucher='1162N51000000001'||substr(:new.pk_voucher,17,4)

  where pk_voucher=:old.pk_voucher;

    end;
  end if;

  end if;
end CHECK_VOUCHER;

4.6 0:34 更新 ，明天继续问一路

create or replace trigger fts_v_b

  before insert OR update on   fts_voucher_b

  for each row

 

begin

 select bd_accid.accidcode,  gl_freevalue.valuecode from fts_voucher_b, gl_freevalue, bd_accid

             where :new.pk_ass = gl_freevalue.freevalueid

               and :new.pk_account= bd_accid.pk_accid

               and length(gl_freevalue.valuecode) = '6'

               and substr(gl_freevalue.valuecode, 0, 1) = '0'

  if bd_accid.accidcode<>gl_freevalue.valuecode

   then aise_application_error(-20001,

                              '结算凭证'||'账户和客商不一致，请删除，之后重新填写结算凭证！');

  end;

  end if;

 

end fts_v_b;

更新4.6 13：38

create or replace trigger fts_v_b
  before insert or update on   fts_voucher_b
  for each row 
declare
  -- local variables here
    pk_bas char(20);
 
begin
 select distinct :new.pk_voucher into pk_bas
 from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode) = '6'
               and substr(gl_freevalue.valuecode, 0, 1) = '0'
               and bd_accid.accidcode != gl_freevalue.valuecode;   
  if  pk_bas is not null  then 
       raise_application_error(-20001,'结算凭证账户和客商不一致!');
  
  
   
 end if;  
 end  fts_v_b;

第二种：

create or replace trigger fts_v_b
  before insert or update on   fts_voucher_b
  for each row 
declare
  -- local variables here
    accode char(6);
  vcode char(6);
begin
 select distinct bd_accid.accidcode,  gl_freevalue.valuecode into accode,vcode 
 from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode)='6'
               and substr(gl_freevalue.valuecode,0,1)='0';   
  if nvl(accode,'')<>nvl(vcode,'')   then 
       raise_application_error(-20001,'结算凭证账户'||accode||'和客商'||vcode|| '不一致!');
 end if;  

 end  fts_v_b;

2012.4.6 14:15更新：

create or replace trigger fts_v_b
  before insert or update on   fts_voucher_b
  for each row 
declare
  -- local variables here
  accode char(6);
  vcode char(6);
  vRowsCount number;
begin
 select nvl(count(*),0) into vRowsCount from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode) = '6'
               and substr(gl_freevalue.valuecode, 0, 1) = '0';
 
 if vRowsCount > 0 then
   select distinct bd_accid.accidcode,  gl_freevalue.valuecode into accode,vcode 
   from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode) = '6'
               and substr(gl_freevalue.valuecode, 0, 1) = '0';  
 else
    return;
 end if;
 
 if  accode<>vcode   then 
       raise_application_error(-20001,'次结算凭证账户'||accode||'和客商'||vcode|| '不一致，请修改！');
  
 end if;  
 end  fts_v_b;

上面的vRowsCount > 0是判断数据存在的。
感谢把触发器说透的作者，在今天他一个中午的陪伴下，完成了。

4.6 18:28更新，这样也行。在accode<>vocde之前先增加 if accode=vcode (实测前后没有影响)

create or replace trigger FTS2
  before insert or update on   fts_voucher_b
  for each row
declare
  -- local variables here
    accode char(6);
  vcode char(6);
begin
  
 select distinct bd_accid.accidcode,  gl_freevalue.valuecode into accode,vcode
 from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode)='6'
               and substr(gl_freevalue.valuecode,0,1)='0';   
               
  if accode=vcode then   
       RETURN;
       END IF;        
               
  if accode<>vcode then
       raise_application_error(-20001,'此结算凭证账户：'||accode||'和客商辅助：'||vcode|| '不一致，请修改!');
 end if;  

 end FTS2;

18:43 更新，使用 else if

create or replace trigger FTS2
  before insert or update on   fts_voucher_b
  for each row
declare
  -- local variables here
    accode char(6);
  vcode char(6);
begin
  
 select distinct bd_accid.accidcode,  gl_freevalue.valuecode into accode,vcode
 from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode)='6'
               and substr(gl_freevalue.valuecode,0,1)='0';   
               
 if accode=vcode then   
       RETURN;           
               
 else if accode<>vcode then
       raise_application_error(-20001,'此结算凭证账户：'||accode||'和客商辅助：'||vcode|| '不一致，请修改!');
 end if;  
 end if;
 end FTS2;

4.9 9:09更新

刚刚杨洋做了一笔资金下拨，两家的，结果保存的时候报错。

改用eric hu的触发器之后解决。

今天有时间研究两个客商为什么不行

4.9 14:23更新：中午测试了一下，发现不使用count*数量变量的触发器下面，如果结算凭证分录里面都是涉及到1003，也就是有客商和账户的，没有问题，但是只要有一行是其他科目，没有账户和客商辅助，就不能保存，触发器提示没有数据。

更新了一下eric hu的sql，更容易看懂（可以看出accode<>vcode受到前面 vRowsCount > 0的影响，否则accode和vcode就没有传值）

create or replace trigger fts_v_b
  before insert or update on   fts_voucher_b
  for each row 
declare
  -- local variables here
  accode char(6);
  vcode char(6);
  vRowsCount number;
begin
 select nvl(count(*),0) into vRowsCount from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode) = '6'
               and substr(gl_freevalue.valuecode, 0, 1) = '0';
 
 if vRowsCount > 0 then
   select distinct bd_accid.accidcode,  gl_freevalue.valuecode into accode,vcode 
   from fts_voucher_b, gl_freevalue, bd_accid
             where  gl_freevalue.freevalueid=:new.pk_ass
               and  bd_accid.pk_accid=:new.pk_account
               and length(gl_freevalue.valuecode) = '6'
               and substr(gl_freevalue.valuecode, 0, 1) = '0';  
               
         if  accode<>vcode   then 
    raise_application_error(-20001,'此结算凭证账户：'||accode||'和客商辅助：'||vcode|| '不一致，请修改！');
  
 end if;  
 else
    return;
 end if;
 end  fts_v_b;

 2012.4.13 14：42 更新exception用法，这样可以不用那个数量变量了（exception必须要放在最后）

create or replace trigger FTS2
  before insert or update on   fts_voucher_b
  for each row
declare
  -- local variables here
  accode char(6);
  vcode  char(6);
begin

  select distinct bd_accid.accidcode, gl_freevalue.valuecode
    into accode, vcode
    from fts_voucher_b, gl_freevalue, bd_accid
   where gl_freevalue.freevalueid = :new.pk_ass
     and bd_accid.pk_accid = :new.pk_account
     and length(gl_freevalue.valuecode) = '6'
     and substr(gl_freevalue.valuecode, 0, 1) = '0';

  
  if accode = vcode then
    return;
  end if;
  if accode <> vcode then raise_application_error(-20001,'次结算凭证账户'||accode||'和客商'||vcode|| '不一致，请修改！');
  end if;

 exception
  when no_data_found then  
    return;
end FTS2;

 2012.6.21更新

下面是if else的用法，简化了一些sql

create or replace trigger FTS2
  before insert or update on   fts_voucher_b
  for each row
declare
  -- local variables here
  accode char(6);
  vcode  char(6);
begin

  select distinct bd_accid.accidcode, gl_freevalue.valuecode
    into accode, vcode
    from fts_voucher_b, gl_freevalue, bd_accid
   where gl_freevalue.freevalueid = :new.pk_ass
     and bd_accid.pk_accid = :new.pk_account
     and length(gl_freevalue.valuecode) = '6'
     and substr(gl_freevalue.valuecode, 0, 1) = '0';

  
  if accode = vcode then
    return;
 else
    raise_application_error(-20001,'次结算凭证账户'||accode||'和客商'||vcode|| '不一致，请修改！');
  end if;

 exception
  when no_data_found then  
    return;
end FTS2;

更新4.14 22:50，看看一周前略显幼稚的写法，不过思路已经成型：

create or replace trigger fts_v_b

  before insert OR update on   fts_voucher_b

  for each row

 

begin

 select bd_accid.accidcode,  gl_freevalue.valuecode from fts_voucher_b, gl_freevalue, bd_accid

             where :new.pk_ass = gl_freevalue.freevalueid

               and :new.pk_account= bd_accid.pk_accid

               and length(gl_freevalue.valuecode) = '6'

               and substr(gl_freevalue.valuecode, 0, 1) = '0'

  if bd_accid.accidcode<>gl_freevalue.valuecode

   then aise_application_error(-20001,

                              '结算凭证'||'账户和客商不一致，请删除，之后重新填写结算凭证！');

  end;

  end if;

end fts_v_b;