原创

[FineReport]实现用户自定义查询月考勤记录

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://david.blog.csdn.net/article/details/53836068
员工一定是非常关心自己的考勤记录,在很多企业的做法是,如果由于特殊原因:忘带卡,刷卡异常等,是可以通过考勤异常单据向HR申请补卡。
之前我也做过考情记录查询,但是界面不够友好。如何提供一个界面友好,随时可以查询考勤记录呢?

主要思路:
(1)抓取考勤记录表
(2)自定义生成整月日历:包含(上下班)
(3)根据公司HR规则,区别旷工,迟到,早退等
(4)同时计算出第几周与星期几
(5)利用fr工具来实现日历格式,并且采用条件属性对状态进行颜色标识

SQL:

declare @date as varchar(10) --当月第一天日期
declare @ldate as varchar(8) --上月日期
declare @maxday as varchar(8) --当月最大日期
declare @day as varchar(10)

set @date='${dateym}'+'-01'
set @day=@date
set @ldate=CONVERT(varchar(100),dateadd(dd,-day(@date),@date), 112)  
set @maxday=CONVERT(varchar(100),case when dateadd(d,-1,dateadd(m,1,dateadd(d,-day(@date)+1,@date)))-dateadd(d,-1,dateadd(m,1,dateadd(d,-day(@ldate)+1,@ldate)))>0 then dateadd(d,-1,dateadd(m,1,dateadd(d,-day(@date)+1,@date))) else dateadd(d,-1,dateadd(m,1,dateadd(d,-day(@ldate)+1,@ldate)))end, 112) 


declare @StartDate DATETIME =@date
declare @EndDate DATETIME =@maxday

SELECT * INTO #T1 FROM (
select convert(char(10),dateadd(day,number,@StartDate),111)  as 日期,'上班卡' as 上下班 
from master.dbo.spt_values  where type ='P'
and number <=DATEDIFF(day, @StartDate,   @EndDate)
union all
select convert(char(10),dateadd(day,number,@StartDate),111)  as 日期,'下班卡' as 上下班 
from master.dbo.spt_values  where type ='P'
and number <=DATEDIFF(day, @StartDate,   @EndDate)
) TT
;


with cet as(
select  convert(char(10),CARD_DATE,111) 日期, CONVERT(varchar(100), card_time, 24) 时间,   
        case when  LEFT(CONVERT(varchar(100), card_time, 24),2)<'08'  then '上班卡'
             when  LEFT(CONVERT(varchar(100), card_time, 24),2)>='08' 
                   and LEFT(CONVERT(varchar(100), card_time, 24),2)<'12'    then '上班卡' 
             when  LEFT(CONVERT(varchar(100), card_time, 24),2)>='12' 
                   and LEFT(CONVERT(varchar(100), card_time, 24),2)<'17'    then '下班卡'   
        ELSE '下班卡' END AS 上下班

from  k_card  inner join A01 on k_card.a0188=A01.a0188
where  convert(char(6),CARD_DATE,112)=convert(char(6),@StartDate,112)
and  A0190='${txtworkno}'
)
/*
SELECT A.日期,A.上下班+':'+A.时间 +' 状态:'+case when LEFT(A.时间,2)<'08'  then '正常'
             when  LEFT(A.时间,2)>='08' and 
                   LEFT(A.时间,2)<'12'    then '迟到' 
             when  LEFT(A.时间,2)>='12'  and 
                   LEFT(A.时间,2)<'17'    then '早退'   
        ELSE '正常' END AS 状态,A.上下班  
*/
 SELECT A.日期,A.上下班+':'+A.时间 +' 状态:'+case when LEFT(A.时间,5)<='08:01'   then '正常'
             when  LEFT(A.时间,5)>'08:01' and 
                   LEFT(A.时间,2)<'12'    then '迟到' 
             when  LEFT(A.时间,2)>='12'  and 
                   LEFT(A.时间,5)<'17:00'    then '早退'   
        ELSE '正常' END AS 状态,A.上下班       
        INTO #T2


FROM (
select 日期,上下班,min(时间) as 时间 from cet

group by 日期,上下班
)A
ORDER BY A.日期 ASC , A.上下班 ASC 

/*
SELECT B.日期,LEFT(TEMP,LEN(TEMP)-1) as 状态 INTO #T3 FROM (
SELECT 日期,
(SELECT 状态+',' FROM #T2 
  WHERE 日期=A.日期 
  FOR XML PATH('')) AS TEMP
FROM #T2 A 
GROUP BY 日期
) B
*/

SELECT #T1.日期 ,
case when #T1.日期<convert(char(10),getdate(),111) and datepart(weekday, #T1.日期)-1 not in (6,0) and #T2.状态 is null  then '旷工' 
else #T2.状态 end as 状态,
datepart(week,Dateadd(day,-1,#T1.日期)) 第几周,datepart(weekday, #T1.日期)-1 星期几  
FROM #T1 LEFT JOIN #T2 ON #T1.日期=#T2.日期   AND #T1.上下班=#T2.上下班
order by #T1.日期 asc, #T1.上下班 ASC 


DROP TABLE #T1
DROP TABLE #T2
--DROP TABLE #T3

二、报表设计
这里写图片描述
三、效果预览
这里写图片描述

文章最后发布于: 2016-12-23 10:13:07
展开阅读全文
0 个人打赏
私信求帮助

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 鲸 设计师: meimeiellie

分享到微信朋友圈

×

扫一扫,手机浏览