dy_bmhzb.prg

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

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


 MENUFLAG = .T.
 CLOSE TABLE
  use &bmhzb
 DIMENSION FF( 10 , 16 )
  n=Afields(ff,'&bmhzb')   
 USE 
 FLAG = .F.
 FOR I = 1 TO N
 IF UPPER(ALLTRIM(FF(I,1))) = 'ZZ'
    FLAG = .T.
    EXIT 
 ENDIF 
 ENDFOR 
 SFGZ = SFGZ1
 IF  .NOT. FLAG
  alter table &bmhzb  add column zc N(10,2) default 0.00
  alter table &bmhzb 	add column zz N(10,2) default 0.00
  alter table &bmhzb 	add column xj N(10,2) default 0.00
 ENDIF 
  =dbsetprop('&bmhzb..zc','field','caption','转存银行')
  =dbsetprop('&bmhzb..zz','field','caption','转账')
  =dbsetprop('&bmhzb..xj','field','caption','邮寄工资和现金')
 CLOSE TABLE ALL
 WAIT WINDOW AT 10 , 30 NOWAIT TIMEOUT 2 '正在生成部门汇总表，请稍候...'
 USE (BMHZB)
 ZAP 
 USE IN 0 (GZB)
 SELECT (GZB)
 INDEX ON BMH TAG BMH
 SET ORDER TO bmh
 TOTAL ON BMH TO bmgz
 SELECT (BMHZB)
 APPEND FROM bmgz
 USE IN 0 (BMB)
 SELECT (BMB)
 INDEX ON BMH TAG BMH
 SELECT (BMHZB)
  set rela to bmh into &bmb
  repl all bmmc with &bmb..bmmc
 GO TOP
 DO WHILE  .NOT. EOF()
 SELECT (GZB)
  count to rs for bmh=&bmhzb..bmh
  sum &sfgz to zc1 for bmh=&bmhzb..bmh and alltrim(fs)='转存银行'
  sum &sfgz to zz1 for bmh=&bmhzb..bmh and alltrim(fs)='转账'
  sum &sfgz to xj1 for bmh=&bmhzb..bmh and (alltrim(fs)='邮寄工资' or alltrim(fs)='现金')
 SELECT (BMHZB)
 REPLACE BMRS WITH RS , ZC WITH ZC1 , ZZ WITH ZZ1 , XJ WITH XJ1
 SKIP 
 ENDDO 
 SET RELATION TO
 CLOSE TABLE
 DELETE File bmgz.dbf
 USE (BMHZB)
 COPY TO gztmp DATABASE gzk WITH CDX SDF
 USE 
 USE gztmp ORDER bmh
 DO FORM f_dybmhz
 RETURN 
*