篇一:按时间汇总项目计划的人员工时
按时间汇总项目计划的人员工时
为了管理人员能对项目计划所安排的工时能有量化的查询,并根据人员每天的工作量进行新的项目任务安排编此程序:
项目计划表如下:
代码考虑了连班,周末加班以及做任务处理的各时间段的固定时间安排。应用效果很好。提高了项目计划员的效率。
**********************************
Public GONGSI,USER_CL,SHIJIAN_RENWU
GONGSI=0
JHKSSJ=Ttod(XM_KSSJ)
JHJSSJ=Ttod(XM_JSSJ)
IF jhkssj>jhjssj
MESSAGEBOX(结束时间必须大于开始时间,请重新指定!)
RETURN
ENDIF
tianshu=JHJSSJ-JHKSSJ+1
If File('GS_BIAO.dbf')
Thisform.PAGEframe1.PAGE5.GRID1.RecordSource=''
delete file GS_BIAO.dbf
Endif
Select QMTC_XTGL
Go Top
Count For 用户名称!="".And.试验员=.T. To RENSHU
Dimension USER_CL(RENSHU)
Go Top
Create TABLE gs_biao FREE (日期 D(8))
Select gs_biao
For i=0 To tianshu-1
Append Blank
Replace 日期 With JHKSSJ+i
Endfor
Go Top
Select QMTC_XTGL
Set Filter To 用户名称!="".And.试验员=.T.
Go Top
Do While !Eof()
USER_CL=Alltrim(用户名称)
Alter Table gs_biao.Dbf Add (USER_CL) N(6,2)
SHIJIAN_RENWU=JHKSSJ
Do While SHIJIAN_RENWU<=JHJSSJ
Select QMTC_SYJH_D
Set Filter To
Set Filter To Ttod(预计开始时间)<=SHIJIAN_RENWU.And.Ttod(预计结束时间)>=SHIJIAN_RENWU.And.试验员=USER_CL
Go Top
If !Eof()
GONGSI=0
IF DOW(SHIJIAN_RENWU)=1.OR.DOW(SHIJIAN_RENWU)=7
Set Filter To Ttod(预计开始时间)<=SHIJIAN_RENWU.And.Ttod(预计结束时
间)>=SHIJIAN_RENWU.And.试验员=USER_CL.AND.周末加班=.T.
GO TOP
ENDIF
Do While !Eof()
If 周末加班=.T.
GONGSI=GONGSI+Val(资源占用率)*实际工时/(Ttod(预计结束时间)-Ttod(预计开始时间)+1)
间)+1-ZHOUMO)
Else ZHOUMO=0 START_SJ=Ttod(预计结束时间) END_SJ=Ttod(预计开始时间) LOOP_SJ=START_SJ Do While LOOP_SJ<=END_SJIf Dow(LOOP_SJ)=1.Or.Dow(LOOP_SJ)=7 ZHOUMO=ZHOUMO+1EndifLOOP_SJ=LOOP_SJ+1 Enddo GONGSI=GONGSI+Val(资源占用率)*实际工时/(Ttod(预计结束时间)-Ttod(预计开始时Endif
If SHIJIAN_RENWU=Ttod(预计开始时间)
GONGSI=GONGSI+准备时长
Endif
If SHIJIAN_RENWU=Ttod(预计结束时间)
GONGSI=GONGSI+试验后处理
Endif
Select QMTC_SYJH_D
Skip
Enddo
Select gs_biao
Locate For 日期=SHIJIAN_RENWU
Replace &USER_CL With GONGSI
Endif
SHIJIAN_RENWU=SHIJIAN_RENWU+1
Enddo
Select QMTC_XTGL
Skip
Enddo
SELECT GS_BIAO
GO TOP
Thisform.PAGEframe1.PAGE5.GRID1.RecordSource='GS_BIAO'
THISFORM.PAGEframe1.PAGE5.Grid1.Visible=.T.
Thisform.PAGEframe1.PAGE5.GRID1.DeleteMark=.F.
Thisform.PAGEframe1.PAGE5.GRID1.AutoFit
Thisform.PAGEframe1.PAGE5.GRID1.ReadOnly=.T.
Thisform.PAGEframe1.PAGE5.GRID1.FontSize =11
THISFORM.pageframe1.page5.GRID1.setall("dynamicbackcolor","iif(DOW(日期)=7.OR.DOW(日期)=1,rgb(0,128,0),rgb(128,255,255))","column")
**********************************
篇二:Android项目计划书
使用权限
在此文档中签字后,将约定森纵教育项目组与中北大学客户之间的调研内容确定。
本文档将保存最终签字版本。
制作人:
审核人:
Android项目组 日期: 2010/12/13
时允田 SUNZONE Android项目组 日期: 2010/12/13
在文档签字后将确定森纵教育与中北大学软件学院业务范围。
签字:
签字 日期:
修订记录
i.
项目概要:
此次Android个人桌面小工具开发主要目的是使个人手机用户界面得到更好的应用,通过此工具可以更方便的打开譬如日记本、随身旅游查询、星座查询,丰富手机界面,提高行动效率。
1. 客户名 董理/时允田 2.实行期间
项目的总实行期间:2010.12.13—2010.12.31
3.项目目的及期待效果
通过该桌面应用小工具的成功,提高了手机桌面应用,丰富了手机界面,安装此小工具的用户能够更加方便随时记录身边事情和个人心情,传至网络与大家齐分享;亦可查询星座休闲娱乐;更方便查询各个地区的旅游景点,高效出行,节省时间,让生活更加时尚,简洁,效率。 4.项目开发范围定义
此次Android项目范围定义为多功能日记本、旅游出行查询、星座查询
等三个小工具应用。
5. 项目投入总工时:3周 ii.
项目组织
1. 组织图
篇三:工时系统建设计划表
信息化事业部工时系统建设演进计划表
第一阶段:
1、工时记录功能 1. 1 功能简介:
第一阶段此功能主要实现厂家开发的需求,在系统中记录每天工作内容,并以此作为每个需求点实际花费的工时计算依据。 1.2 计划实施时间:
2015年7月1日上线并已使用。 第二阶段:
2、需求报告审批功能 2. 1 功能简介:
第二阶段拓展功能,此功能主要为替代目前纸质的需求报告审批流程,在系统中实现需求报告的提交、审批等功能,目前针对审批人的配置进行优化。 2.2 计划实施时间:
2015年9月29日初步完成,预计10月12日上线。 第三阶段:
3、项目进度展现功能 3.1 功能简介:
第三阶段拓展功能,此功能主要为目前部门实施的所有项目进度的展现,员工可以登录查看监控项目立项、可研、设计、采购、
合同、上线、初验、终验、暂估、送审、竣工决算全周期流程,依此可以督促当前环节处理人,为效推进项目实施进度有更清晰明了的管控平台。 3.2 计划实施时间:
预计2015年10月15日开始实施开发 第四阶段:
到货签收流程
第五阶段:
本地二次推广培训管理模块
第六阶段:
部门月度考核系统模块 第七阶段:
4、部门合同展现 4.1 功能简介:
第四阶段拓展功能,此功能主要为员工及时查找了解项目工程、成本维保等合同内容,以便提高建设中心在日常工作中对合作方支撑工作的要求、考核机制落地更严更细,提供了及时查询了解合同明细的平台。4.2 计划实施时间:
预计2015年11月1日开始实施开发 第八阶段:
5、成本使用情况展现 5.1 功能简介:
第五阶段拓展功能,此功能主要为部门成本预算使用情况按中心、按专业、按财务科目每月进行更新罗列展现,部门员工可随时登陆查看成本使用情况,使部门成本更加透明化,做到一方管控、全员皆知,从而能够合理、有效、灵活利用成本费用。
5.2 计划实施时间:
预计2015年11月10日开始实施开发 第九阶段:
6、部门风采展现
6.1 功能简介:
第六阶段拓展功能,此功能主要为部门在日常工作生活中组织开展的部门会议、风趣活动时拍摄的视频、照片进行上载,展现记录整个团队在成长进步中的点点滴滴,为持续发展建设成为一支更加凝聚、活泼、向上的IT团队提供风采风貌的展现平台。
6.2 计划实施时间:
预计2015年11月20日开始实施开发