《分管机关部门业务副职领导》由会员分享,可在线阅读,更多相关《分管机关部门业务副职领导(7页珍藏版)》请在金锄头文库上搜索。
1、SET STATUS OFFSET ECHO OFFSET TALK OFFSET SAFETY OFF CLEAR ALL CLOSE DATABASES SELECT 1USE ygb & 员工表SELECT 2USE bkkhz & 部门对应考核组SELECT 3USE bmgwqzjs & 部门职务等级权限已计算后的SELECT 4USE ygkhbZAPgo topSELECT 1GO topDO WHILE NOT EOF()rec1 = recno()SCATTER TO memoSELECT 3LOCATE FOR 部门名称 = a.bmmc AND 职务等级 = a.gang
2、weiIF FOUND()SELECT 2LOCATE FOR 部门名称 = a.bmmcSELECT 3IF NOT EMPTY(主管领导) IF AT(;,b-主管领导)0 szbmf=b-主管领导DO while AT(;,szbmf)0SELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH LEFT(szbmf,AT(;,szbmf)-1),考核组 WITH 主管领导,权重 WITH c.主管领导 szbmf = SUBSTR(szbmf,AT(;,szbmf)+1)ENDDOELSESELECT 4APPEND BLANKGATHER
3、 FROM memoreplace 考核人 WITH b.主管领导,考核组 WITH 主管领导,权重 WITH c.主管领导ENDIFSELECT 3ENDIFIF NOT EMPTY(分管副职)SELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH b.分管副职,考核组 WITH 分管副职,权重 WITH c.分管副职SELECT 3ENDIFIF NOT EMPTY(业务副职)SELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH b.业务副职,考核组 WITH 分管机关部门业务副职领导,权
4、重 WITH c.业务副职SELECT 3ENDIFIF NOT EMPTY(所在部门正)SELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH b.所在部门正,考核组 WITH 所在部门正职,权重 WITH c.所在部门正SELECT 3ENDIFIF NOT EMPTY(其他部门正) IF AT(;,b-其他部门正)0 szbmf=b-其他部门正DO while AT(;,szbmf)0SELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH LEFT(szbmf,AT(;,szbmf)-1)
5、,考核组 WITH 其他部门正职,权重 WITH c.其他部门正 szbmf = SUBSTR(szbmf,AT(;,szbmf)+1)ENDDOELSESELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH b.其他部门正,考核组 WITH 其他部门正职,权重 WITH c.其他部门正ENDIFSELECT 3ENDIFIF NOT EMPTY(所在部门副) IF AT(;,b-所在部门副)0 szbmf=b-所在部门副DO while AT(;,szbmf)0SELECT 4APPEND BLANKGATHER FROM memorepla
6、ce 考核人 WITH LEFT(szbmf,AT(;,szbmf)-1),考核组 WITH 所在部门副职,权重 WITH c.所在部门副 szbmf = SUBSTR(szbmf,AT(;,szbmf)+1)ENDDOELSESELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH b.所在部门副,考核组 WITH 所在部门副职,权重 WITH c.所在部门副ENDIFSELECT 3ENDIFSELECT 1bmnigcheng=bmmcGO topLOCATE FOR bmmc = m.bmnigchengDO WHILE NOT EOF(
7、) AND bmmc = m.bmnigchengIF ALLTRIM(gangwei)=FSELECT 4APPEND BLANKGATHER FROM memoreplace 考核人 WITH a-ygname,考核组 WITH 所在部门员工,权重 WITH c.所在部门员ENDIFSELECT 1SKIPENDDOELSE WAIT windows 出错:+a.bmmc +a.gangwei nowait ENDIFSELECT 1GO rec1SKIPENDDOCLOSE DATABASESCLOSE ALLCLEAR ALLRETURNSET SAFETY OFFSET STATUS
8、 offSET TALK OFFCLEAR ALLCLOSE DATABASES SELECT 1USE bmgwqzCOPY TO bmgwqzjsUSE bmgwqzjsSELECT 2USE bkkhzSELECT 3USE ygbSELECT 1GO topDO WHILE NOT EOF()rec1=RECNO()SELECT 2LOCATE FOR 部门名称 = a- 部门名称IF FOUND()IF AT(;,主管领导)0tt=OCCURS(;,主管领导)SELECT 1replace 主管领导 WITH 主管领导/ttSELECT 2ENDIFIF AT(;,分管副职)0tt=
9、OCCURS(;,分管副职)SELECT 1replace 分管副职 WITH 分管副职/ttSELECT 2ENDIFIF AT(;,业务副职)0tt=OCCURS(;,业务副职)SELECT 1replace 业务副职 WITH 业务副职/ttSELECT 2ENDIFIF a-其他部门正 = 99IF AT(;,其他部门正)0tt=OCCURS(;,其他部门正)SELECT 1replace 其他部门正 WITH 所在部门正/(tt+1)replace 所在部门正 WITH 其他部门正SELECT 2ELSEIF NOT empty(其他部门正) & 只有一个人SELECT 1repla
10、ce 其他部门正 WITH 所在部门正/2replace 所在部门正 WITH 其他部门正SELECT 2ENDIFENDIFELSEIF AT(;,其他部门正)0tt=OCCURS(;,其他部门正)SELECT 1replace 其他部门正 WITH 其他部门正/ttSELECT 2ENDIFENDIFSELECT 3COUNT FOR bmmc = a-部门名称 and gangwei = F to bmygs & 部门员工人数SELECT 2replace 所在部门员 WITH bmygsIF a-所在部门员 = 99IF AT(;,所在部门副)0tt=OCCURS(;,所在部门副)SE
11、LECT 1replace 所在部门副 WITH 所在部门副/(tt+bmygs)replace 所在部门员 WITH 所在部门副ELSEIF NOT empty(所在部门副) &有一个副职时SELECT 1replace 所在部门副 WITH 所在部门副/(1+bmygs)replace 所在部门员 WITH 所在部门副ENDIFENDIFELSEIF AT(;,所在部门副)0tt=OCCURS(;,所在部门副)SELECT 1replace 所在部门副 WITH 所在部门副/ttreplace 所在部门员 WITH 所在部门员/bmygsELSESELECT 1replace 所在部门员 WITH 所在部门员/bmygsENDIFENDIFENDIFSELECT 1GO rec1SKIPENDDOCLOSE databaseCLEAR ALLRETURN