zzgzzkb.prg

来自「包括了6个VFP程序设计实例」· PRG 代码 · 共 74 行

PUBLIC BBM           && 报表名
BBM="ZZGZZKB.FRX"
IF USED("RSXX")
   SELE RSXX
   ELSE
     SELE 0
     USE ..\DATA\RSXX ALIAS RSXX
ENDIF
IF USED("ZGGZ")
   SELE ZGGZ
   ELSE
     SELE 0
     USE ..\DATA\ZGGZ ALIAS ZGGZ
ENDIF
IF USED("CXSTRU")
   SELE CXSTRU
   ELSE
     SELE 0
     USE CXSTRU.SYS ALIAS CXSTRU EXCL
ENDIF
ZAP
APPE FROM CXRSXX.SYS
DO TYCX WITH "RSXX.DBF","RSXX",.F.
SELE RSXX
SET ORDER TO 编号
IF EMPTY(CXTJ)
	SELECT Rsxx.人员编码, Rsxx.编号, Rsxx.姓名, Rsxx.性别, Rsxx.工作性质,;
	  Rsxx.出生日期, Rsxx.工作时间, Zggz.职务工资, Zggz.活工资, Zggz.保留津贴,;
	  Zggz.教护工资, Zggz.教护津贴, Zggz.其他工资, 00 AS YM ;
	 FROM  rsgl!rsxx LEFT OUTER JOIN rsgl!zggz ;
	   ON  Rsxx.编号 = Zggz.编号 ;
	   INTO DBF ZGHMC.DBF ;
	 ORDER BY Rsxx.工作时间 
   ELSE
	SELECT DIST Rsxx.人员编码, Rsxx.编号, Rsxx.姓名, Rsxx.性别, Rsxx.工作性质,;
	  Rsxx.出生日期, Rsxx.工作时间, Zggz.职务工资, Zggz.活工资, Zggz.保留津贴,;
	  Zggz.教护工资, Zggz.教护津贴, Zggz.其他工资, 00 AS YM ;
	 FROM  rsgl!rsxx LEFT OUTER JOIN rsgl!zggz ;
	   ON  Rsxx.编号 = Zggz.编号;
	 WHERE &CXTJ ORDER BY Rsxx.工作时间 INTO DBF ZGHMC.DBF
ENDIF
IF USED("ZGHMC")
   SELE ZGHMC
   ELSE
     SELE 0
     USE ZGHMC ALIAS ZGHMC
ENDIF
COUNT TO ZJL
IF ZJL<=0
   =MESSAGEBOX("无可打印数据!",0+16,"提示信息")
   USE IN RSXX
   USE IN ZGHMC
   RETURN
ENDIF
STORE 1 TO P1,P2,P3
YJL=20
ZYM=0000
_PAGENO=1
_PEPAGE=9999
_PWAIT=.F.

DO FORM HMCPRINT
IF USED("RSXX")
   USE IN RSXX
ENDIF
IF USED("ZGGZ")
   USE IN ZGGZ
ENDIF
IF USED("ZGHMC")
   USE IN ZGHMC
ENDIF
*ERASE BXHMC.DBF
RETURN