单据审批流程的sql如何写

caoyuezj

2,如何判断所有审批已经全了
关于这个,首先在f_spyj里面把所有'|bmbegin|部门|bmend|'中的部门取出来形成一个总的字符串,同时在tbnote_check_order里,把所有部门形成一行,两个字符串作比较,如果一致就表示已经全了,如何做?

fanfan1980

一行可能有多個|linebegin|, |lineend| 是嗎？

caoyuezj

这里的一行指的是一个部门的审批信息,字符数没有限制的,就是说一个部门的审批信息用linebegin和lineend括起来了,就把它理解成一对{}就行了

caoyuezj

一行就是一对括号的意思,并不是一行文字,一对括号中可能是一行也可能是多行,一行中可能也有多对括号

艾丽茜思

学习

caoyuezj

create table tbnote_check_order
(
f_djlxbm  varchar(3)        Not Null,               --单据类型编码
f_xh  int               Not Null,               --序号
f_bmbm   varchar(15)      Not Null,               --部门编码
f_must  int               Not Null,               --必须(0否1是)
Constraint tbnote_check_order_key Primary Key(f_djlxbm,f_xh)
)
就是不同的单据有不同的审批业务流程,上面我只是要求一种单据的业务流程,难道这么难写吗?

fanfan1980

表結構有間題

toogun

/*
设计思路:先得到tbnote_check_order中全部必须审核的部门的数目,然后在对审批信息进行解码,遇到部门字符时进行判断是不是必须审核部门,
        如果条件成立,则表示所有的审核流程中的其中一个已经满足,循环结束可得知审批信息中所包含的必须审核部门数目是否等于tbnote_check_order
        中规定的数目
参数说明:
@vDjlxbm
  表示要进行审核的单据类型
@vSpInfo
  传入的审批信息字符串
返回参数:
@iIsOver
  0表示没有
  1表示全部通过
  2表示没有审批流程
*/
create procedure p_SpIsOver(@vDjlxbm varchar(3),@vSpInfo varchar(8000),@iIsOver int output)
as
begin
     declare @s as varchar(8000)
     declare @i as int
     declare @j as int
     declare @len as int
     declare @bm as varchar(30)
     select @i=count(f_bmbm) from tbnote_check_order where f_djlxbm=@vDjlxbm and f_must=1
     if @i>0
     begin      
       set @len=len(@vSpInfo)
       if @len=0  
       begin
         set @iIsOver=0
         return
       end
       else
       begin
         while @len>1
         begin
            if substring(right(@vSpInfo,@len),1,len('|bmbegin|'))='|bmbegin|'
            begin
              set @bm=substring(@vSpInfo,len(@vSpInfo)-@len+len('|bmbegin|')+1,charindex('|bmend|',right(@vSpInfo,@len))-len('|bmbegin|')-1)
              select @j=count(f_bmbm) from tbnote_check_order where f_djlxbm=@vDjlxbm and f_must=1 and f_bmbm=@bm
              if @j=1 set @i=@i-1
            end
            set @len=@len-1  
         end
         if @i=0 set @iIsOver=1
         else set @iIsOver=0
       end
     end
     else
     begin
       set @iIsOver=2
       return
     end     
end

toogun

--测试环境

create table tbnote_check_order
(
f_djlxbm  varchar(3)        Not Null,               --单据类型编码
f_xh  int               Not Null,               --序号
f_bmbm   varchar(15)      Not Null,               --部门编码
f_must  int               Not Null,               --必须(0否1是)
Constraint tbnote_check_order_key Primary Key(f_djlxbm,f_xh)
)

insert into tbnote_check_order
select 'abc',1,'001',1 union all
select 'abc',2,'002',0 union all
select 'abc',3,'004',1

declare @c int
exec p_SpIsOver 'abc','|linebegin|haha2007-1-1|bmbegin|001|bmend|hehe123|ygbmbegin|001|ygbmend|sdjklsd|lineend|',@c out
select @c

--result
0

declare @c int
exec p_SpIsOver 'abc','|linebegin|haha2007-1-1|bmbegin|001|bmend|hehe123|ygbmbegin|001|ygbmend|sdjklsd|lineend|
|linebegin|haha2007-2-1|bmbegin|004|bmend|hehe123|ygbmbegin|001|ygbmend|sdjkfddfdfssfdlsd|lineend|
',@c out
select @c
--result
1

declare @c int
exec p_SpIsOver 'abc','|linebegin|haha2007-1-1|bmbegin|001|bmend|hehe123|ygbmbegin|001|ygbmend|sdjklsd|lineend|
|linebegin|haha2007-2-1|bmbegin|002|bmend|hehe123|ygbmbegin|001|ygbmend|sdjkfddfdfssfdlsd|lineend|
',@c out
select @c
--result
0

declare @c int
exec p_SpIsOver 'abc','|linebegin|haha2007-1-1|bmbegin|001|bmend|hehe123|ygbmbegin|001|ygbmend|sdjklsd|lineend|
|linebegin|haha2007-2-1|bmbegin|002|bmend|hehe123|ygbmbegin|001|ygbmend|sdjkfddfdfssfdlsd|lineend|
|linebegin|haha2007-2-1|bmbegin|004|bmend|hehe123|ygbmbegin|001|ygbmend|sdjkfddfdfssfdlsd|lineend|
',@c out
select @c
--result
1

toogun

declare @c int
exec p_SpIsOver 'aaa','|linebegin|haha2007-1-1|bmbegin|001|bmend|hehe123|ygbmbegin|001|ygbmend|sdjklsd|lineend|',@c out
select @c
--result
2