按时间汇总项目计划的人员工时

发布 2019-07-09 23:48:00 阅读 2430

为了管理人员能对项目计划所安排的工时能有量化的查询,并根据人员每天的工作量进行新的项目任务安排编此程序:

项目计划表如下:

**考虑了连班,周末加班以及做任务处理的各时间段的固定时间安排。应用效果很好。提高了项目计划员的效率。

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_')

delete file gs_

endifselect 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_ 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_预计结束时间)>=shijian_试验员=user_cl

go top

if !eof()

gongsi=0

if dow(shijian_renwu)=

set filter to ttod(预计开始时间)<=shijian_预计结束时间)>=shijian_试验员=user_周末加班=.t.

go top

endifdo while !eof()

if 周末加班=.t.

gongsi=gongsi+val(资源占用率)*实际工时/(ttod(预计结束时间)-ttod(预计开始时间)+1)

elsezhoumo=0

start_sj=ttod(预计结束时间)

end_sj=ttod(预计开始时间)

loop_sj=start_sj

do while loop_sj<=end_sj

if dow(loop_sj)=

zhoumo=zhoumo+1

endifloop_sj=loop_sj+1

enddogongsi=gongsi+val(资源占用率)*实际工时/(ttod(预计结束时间)-ttod(预计开始时间)+1-zhoumo)

endifif shijian_renwu=ttod(预计开始时间)

gongsi=gongsi+准备时长。

endifif shijian_renwu=ttod(预计结束时间)

gongsi=gongsi+试验后处理。

endifselect qmtc_syjh_d

skipenddo

select gs_biao

locate for 日期=shijian_renwu

replace &user_cl with gongsi

endifshijian_renwu=shijian_renwu+1

enddoselect qmtc_xtgl

skipenddo

select gs_biao

go top

gs_biao'

dynamicbackcolor","iif(dow(日期)=日期)=1,rgb(0,128,0),rgb(128,255,255))"column")

按时间顺序写景作文

按时间顺序写景作文范文。学校的花坛美级了。春天的脚步已临近。小草悄悄的探出了可爱的小脑袋,随着一阵阵温暖的春风舒服的伸了个懒腰,瞅着大地上的一切。春姑娘悄悄的走进校园,托起一个个可爱的小花苞。夏天的气息又留在了我们的校园里。使一朵朵花儿都开了,百花争艳,争先恐后的显示着自己纤细的腰枝。阳光撒在一朵不...

写景作文按时间顺序写景的作文

写景作文 按时间顺序写景的作文。篇一 小区的四季作文 小区的四季美极了。春天到了,许多花开了,有粉红的桃花,雪白的梨花,金色的迎春花 美丽极了!小区里的树都长出了嫩芽,它们给小区带来了勃勃生机。夏天到了,知了在树上拼命地叫着 太热了,太热了!青蛙蹲在荷叶这个大舞台上,准备开演唱会,荷叶圆圆的像大圆盘...

七年级上历史 按时间顺序

七年级上按时间顺序 第一单元。距今约一百七十万年 元谋人。距今约七十万年 二十万年 北京人距今约三万年 山顶洞人距今约七千年 河姆渡人距今约五六千年 半坡人。距今约四五千年 大汶口原始居民。距今约四五千年 炎帝和皇帝,是黄河流域著名的部落首领。公元前2070年 禹建立夏潮,这是我国世上第一个王朝,原...