select fts_voucher_b.interestdate,

       fts_voucher_b.summary,

       bd_accsubj.dispname,

       fts_voucher_b.debitamount  借方,

       fts_voucher_b.creditamount 贷方,

       bd_accid.accidcode,

       bd_accid.accidname,

       gl_freevalue.valuecode,

       gl_freevalue.valuename

  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

 order by fts_voucher_b.interestdate

就是这个红色加粗的，希望在触发器完成。

 

研究到现在，发现三张表查询之后:new不能传递

 

create or replace trigger add_js

  before insert on fts_voucher_b  

  for each row

declare

  -- local variables here

  pk_voucherid char(20);

  pk_accidcode char(6);

  pk_valuecode char(6);

  

  cursor basjob(id char) is

  select

       fts_voucher_b.pk_voucher_b,

       bd_accid.accidcode,

       gl_freevalue.valuecode

  from fts_voucher_b, gl_freevalue, bd_accid

 where 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 fts_voucher_b.pk_voucher_b=id

   and nvl(fts_voucher_b.dr, 0) = 0;

begin

  open basjob(:new.pk_voucher_b);

  loop

 

    fetch basjob

      into pk_voucherid,pk_accidcode,pk_valuecode;

    exit when basjob%notfound;

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

  end loop;

  close basjob;

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

  if pk_accidcode<>pk_valuecode then

    begin

       raise_application_error(-20001, '已从网银付款，不能修改名称，请取消！');

    end;

  end if;

end add_js;

 

再次更新：如果能通过审核结算凭证的时候触发就行了，可是查询fts_checkvoucher是空，omg

2.24 凌晨0:32更新，完成ultimate：

 

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,

                              '审核的结算凭证账户和客商不一致，请修改！');

    end;

  end if;

end CHECK_VOUCHER;

 

2.24上午9:14更新结算凭号：

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

11:40 更新第二中写法：

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;

2.27号更新错误提示的样式：

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

ps：这里空格必须增加在‘’之中，否则系统虽然执行不报错，但是空格并没有起作用。

3.15更新：

今天太诡异了，审核没有报错，可是我在日结的时候居然报错，并且是结算凭证号76，可是今天的结算凭证根本没有76，然后我查询所有76号的凭证，发现有十几个，果然在2010年有一个总部和北京公司账户和客商对不上的。

奇怪，诡异，这个触发器怎么检查那么久远的东西？

没关系，稍微更新一下触发器就行了：

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 fts_voucher_b.interestdate>'2010-12-31'

               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;