dy_zfyear.prg

来自「本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工」· PRG 代码 · 共 61 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: DY_ZFYEAR.PRG
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 MENUFLAG = .T.
 PRIVATE RESULT
 RESULT = SFGZ2
  use &gzb
  copy fiel gjjzh,bmh,zgbh,zgxm,&result to zftmp
 USE zftmp
 M = 1
 DO WHILE M < VAL(MM)
 IF M < 10
 YM1 = YY + '0' + ALLTRIM(STR(M))
 ELSE 
 YM1 = YY + ALLTRIM(STR(M))
 ENDIF 
 GZB1 = 'gz' + YM1
  if file('&gzb1..dbf')
  appe from &gzb1
 ENDIF 
 M = M + 1
 ENDDO 
 INDEX ON BMH + ZGBH TAG BMZGH
 TOTAL ON BMH + ZGBH TO zftmp2
 USE 
  select gjjzh,a.bmh,bmmc,zgbh,zgxm,&result from &bmb a INNER JOIN zftmp2 b  ON a.bmh=b.bmh INTO TABLE zfyear    
 CLOSE TABLE
 SELECT ZFYEAR
 USE 
 SELECT ZFTMP2
 USE 
 ADD TABLE zfyear
 ALTER TABLE zfyear ADD COLUMN ZFJJ N ( 11 , 2 )
 SELECT ZFYEAR
  repl all zfjj with &result
 CLOSE TABLE
  alter table zfyear drop column &result
 CLOSE TABLE
 = DBSETPROP('zfyear.gjjzh','field','caption','公积金账号')
 = DBSETPROP('zfyear.bmh','field','caption','部门编号')
 = DBSETPROP('zfyear.bmmc','field','caption','部门名称')
 = DBSETPROP('zfyear.zgbh','field','caption','职工编号')
 = DBSETPROP('zfyear.zgxm','field','caption','姓名')
 = DBSETPROP('zfyear.zfjj','field','caption','住房公积金')
 USE zfyear
 SORT ON BMH , ZGBH TO gztmp4
 ZAP 
 APPEND FROM gztmp4
 INDEX ON BMH + ZGBH TAG BMZGH
 USE 
 DELETE File zftmp2.dbf
 DELETE File zftmp2.cdx
 DELETE File zftmp.dbf
 DELETE File zftmp.cdx
 DELETE File gztmp4.dbf
 DO FORM f_dyzfhy
 RETURN 
*