OA电子表单设计-年假申请单-数据验证

OA从年初上线到现在已经过去半年了，时光飞逝。

上月底，行政文员找到我，说最近有新来的部门文员填《年假申请单》时，有乱填的情况，让我想办法处理。

我一查还真是，这文员是个男的，同一天给同一个人居然填了7张单据。被主管×回了4张，还√了3张。

于是，我给行政文员出主意，要不流程第一关设置成你审批，单据填写正常，才到各自主管审批，否则你就×回去重填，行政文员当时同意了，反正纸质也是她审批。

第二天，情况发生了变化，行政经理不同意第一关由文员审批这样的做法，啥原因也没说，好吧，听官大的，只能从程序的角度想办法去避免这样的错误发生了。

于是，有了下面的SQL代码：

declare @date char(8), -- 入职日期
        @today char(8),-- 服务器当天日期
        @year_yn int,  -- 初始年限（不判断是否满年）
        @year int,     -- 实际年假年限
        @start_date char(8), -- 年假起始日期
        @end_date char(8),   -- 年假终止日期
        @day int             -- 年假天数
set @date='20111212'
set @today =  convert(char(8),getdate(),112)
set @year_yn = convert(int,left (@today,4)) - convert(int,left(@date,4))
set @year = (select  case when right (@today,4) >= right(@date,4) then @year_yn else @year_yn-1 end)
set @start_date = convert(char(4),(convert(int, left(@date,4)) + @year -1))  + right(@date,4)
set @end_date =  convert(char(4),(convert(int, left(@date,4)) + @year))  + right(@date,4)
--年假说明,5年以下5天，5-9年 7天，10年以上10天
set @day = (select case when @year<=4 then 5 when @year >4 and @year <10 then 7 when @year >=10 then 10 end )
print @date
print @year
print @start_date
print @end_date
print @day

--result
20111212   → 入职日期
2          → 初始年限
20121212   → 年假起始日期
20131212   → 年假结束日期
5          → 年假天数

由于OA开窗取数据MIMJ程序不支持以上的T-SQL语句，于是第一反应是写个SQL表值函数，于是有了下面的函数代码：

CREATE function InTime (@workTime Varchar(20),@serverToday char(8))
returns @temptable table(date1 char(8),date2 char(8),dayCount int)
as
begin      

declare @date Varchar(20), -- 入职日期
        @today char(8),-- 服务器当天日期
        @year_yn int,  -- 初始年限（不判断是否满年）
        @year int,     -- 实际年假年限
        @start_date char(8), -- 年假起始日期
        @end_date char(8),   -- 年假终止日期
        @day int             -- 年假天数
set @date=@workTime
set @today = @serverToday
set @year_yn = convert(int,left (@today,4)) - convert(int,left(@date,4))
set @year = (select  case when right (@today,4) >= right(@date,4) then @year_yn else @year_yn-1 end)
set @start_date = convert(char(4),(convert(int, left(@date,4)) + @year))  + right(@date,4)
set @end_date = convert(char(4),(convert(int, left(@date,4)) + @year -1))  + right(@date,4)
--年假说明,5年以下5天，5-9年 7天，10年以上10天
set @day = (select case when @year<=4 then 5 when @year >4 and @year <10 then 7 when @year >=10 then 10 end )
insert into @temptable  select  @start_date,@end_date,@day
return
end

注：为什么函数要加2个参数，一个【入职日期】参数不就可以了么，因为SQL表值函数不支持动态数据。

觉得这个函数有2个参数还是不好使，算了，还是换存储过程吧，于是有了下面的存储过程代码：

create proc worktime
@workTime Varchar(20)
as
declare @date Varchar(20), -- 入职日期
        @today char(8),-- 服务器当天日期
        @year_yn int,  -- 初始年限（不判断是否满年）
        @year int,     -- 实际年假年限
        @start_date char(8), -- 年假起始日期
        @end_date char(8),   -- 年假终止日期
        @day int             -- 年假天数
set @date=@workTime
set @today = convert(char(8),getdate(),112)
set @year_yn = convert(int,left (@today,4)) - convert(int,left(@date,4))
set @year = (select  case when right (@today,4) >= right(@date,4) then @year_yn else @year_yn-1 end)
set @start_date = convert(char(4),(convert(int, left(@date,4)) + @year))  + right(@date,4)
set @end_date = convert(char(4),(convert(int, left(@date,4)) + @year -1))  + right(@date,4)
--年假说明,5年以下5天，5-9年 7天，10年以上10天
set @day = (select case when @year<=4 then 5 when @year >4 and @year <10 then 7 when @year >=10 then 10 end )
select  @start_date 起始日期,@end_date 终止日期,@day 年假天数

想了想存储过程也不好使，如果领导要看所有人的年假明细表，那么岂不是又要折腾，于是，有了下面视图代码：

create view userworktime
as
select 工号 a,姓名 b,入职日 c,起始日 d,结束日 e,case when 实际年限>0 then 年假天数 else 0 end  f,
isnull(天数汇总,0) g,case when 实际年限>0 then 年假天数 else 0 end -isnull(天数汇总,0) h
from
(
select * ,convert(char(4),(convert(int, left(入职日,4)) + 实际年限 -1))  + right(入职日,4) 起始日,
          convert(char(4),(convert(int, left(入职日,4)) + 实际年限))  + right(入职日,4) 结束日,
          case when 实际年限<=4 then 5 when 实际年限 >4 and 实际年限 <10 then 7 when 实际年限 >=10 then 10 end 年假天数
from
(
select *,case when right (系统日,4) >= right(入职日,4) then 初始年限 else 初始年限-1 end 实际年限
from
(
select *,convert(int,left (系统日,4)) - convert(int,left(入职日,4)) 初始年限
from
(
select EmpNO 工号,EmpName 姓名,convert(char(8),WorkTime,112) 入职日,convert(char(8),getdate(),112) 系统日
from DoorSV.IMSDB.dbo.Employee
WHERE WorkTime <>''
) aaa
) bbb
) ccc

) ddd
left join (
select 编号,年假起始日期,年假终止日期,sum(本次天数) 天数汇总
from
(
select newopenquery1 编号,newopenquery1C 姓名,datetime1 入职日期,text4 年假天数,text1 已请天数,datetime5 请假起,datetime6 请假止,text6 本次天数,datetime2 年假起始日期,
datetime3 年假终止日期,CASE WHEN resda021='1' THEN '未完成' WHEN resda021='2' THEN '同意' WHEN resda021='3' THEN '不同意' WHEN resda021='4' THEN '已抽单'  END 签核结果
from hr07
join resda on resda002=hr07002 and resda001='HR07'
where resda021='2' and text6<>0
) xxx
group by 编号,年假起始日期,年假终止日期
) yyy on  编号=工号  COLLATE Chinese_PRC_CI_AS and 起始日 = 年假起始日期  COLLATE Chinese_PRC_CI_AS and  结束日 = 年假终止日期  COLLATE Chinese_PRC_CI_AS

最终结果：

SQL代码确认好之后，修改MIMJ开窗和HR07_MIMJ.aspx 取值关联,再加入JavaScript验证代码，大功告成。

总结：设计电子表单原则——数据管控(只读，数值范围)和历史数据交互是非常重要的，应遵循ERP流程和程序设计思路，“严谨、规范、科学、效率”。