gen_yh.prg

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

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


 MENUFLAG = .T.
 RESULT = SFGZ1
  select yhzh,zgxm,&result from &gzb into	table yhtmp where alltrim(fs)='转存银行'
 CLOSE TABLE
 USE yhzc
 ZAP 
 USE IN 0 yhtmp
 SELECT YHTMP
 GO 1
 DO WHILE  .NOT. EOF()
  if &result>0
 SELECT YHZC
 APPEND BLANK
 IF LEN(ALLTRIM(YHTMP.YHZH)) = 0
 REPLACE ACCOUNT WITH SPACE(20)
 ELSE 
 REPLACE ACCOUNT WITH YHTMP.YHZH
 ENDIF 
  repl name with alltrim(yhtmp.zgxm),je with yhtmp.&result
 ENDIF 
 SELECT YHTMP
 SKIP 
 ENDDO 
 SELECT YHZC
  copy to &pathname.\YinHeng type foxplus
 USE 
 SELECT YHTMP
 USE 
 DELETE File yhtmp.dbf
 ANS =  ;
      MESSAGEBOX('打印银行代发工资报表？' + CHR(13) + CHR(13) + CHR(13),292,'选择')
 IF ANS = 6
 = MESSAGEBOX('请装入窄行打印纸到打印机。' + CHR(13) + CHR(13),64,'注意')
 USE yinheng
 REPORT FORM rpt_yhbb TO PRINTER NOCONSOLE
 USE 
 ENDIF 
 = MESSAGEBOX('    生成用于转存银行的磁盘文件位于  ' + PATHNAME +  ;
'  文件夹，文件名是YinHeng.DBF。' +  ;
CHR(13) +  ;
CHR(13) +  ;
'    请退出本工资管理系统，利用“我的电脑”或“Windows资源管理器”将此文件复制到银行转储程序' +  ;
'所在的文件夹，然后执行银行转储程序。','提示')
 MENUFLAG = .F.
 RETURN 
*