cd.mpr

这是一个工资管理程序

stor gzbfk to nam
sele b
use gzda
copy to &nam
use
close data
case nanswer = 7
endcase


*       *********************************************************
*       *                                                         
*       * _1F80SCFUC  ON SELECTION BAR 3 OF POPUP 报表输出        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   28             
*       * Called By:  ON SELECTION BAR 3 OF POPUP 报表输出        
*       * Prompt:     单位汇总                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scfuc
use hzk
inde on dwbm to hzsy


cmessagetitle = '打印工资单汇总'
cmessagetext = '请打开打印机，装好B4纸！'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
report form dwhzbb.frx to print noconsole
=messagebox("单位工资汇总单打印完毕！",64,"提示窗口")
case nanswer = 7
endcase
close data


*       *********************************************************
*       *                                                         
*       * _1F80SCFUG  ON SELECTION BAR 4 OF POPUP 报表输出        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   29             
*       * Called By:  ON SELECTION BAR 4 OF POPUP 报表输出        
*       * Prompt:     总汇总单                                    
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scfug
STOR 0 to p1,p2,p3,p4,p5
STOR 0 to b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,k

sele a
use hzk01
sele b
use hzk
	sum KZRS to k
	sum JBGZ to p1
	sum JNGZ to p2
	sum GWGZ to p3
	sum GLGZ to p4
	sum JSGZ to b1
	sum SCJ to b2
	sum DXJ to b3
	sum JBJD to b4
	sum SGJT to b5
	sum YBJT to b6
	sum JHJJT to b7
	sum BZRJT to b8
	sum JCJ to b9
	sum BLGZ to b10
	sum FGBT to b11
	sum BTGZ to b12
	sum YFGZ to b13
	sum YLBX to b14
	sum SYBX to b15
	sum ZFJJ to b16
	sum DF to b17
	sum SDS to b18
	sum SFGZ to b19
	sum BZ to ZFJJ
sele a
	REPL KZRS with k
	REPL JBGZ with p1
	REPL JNGZ with p2
	REPL GWGZ with p3
	REPL GLGZ with p4
	REPL JSGZ with b1
	REPL SCJ with b2
	REPL DXJ with b3
	REPL JBJD with b4
	REPL SGJT with b5
	REPL YBJT with b6
	REPL JHJJT with b7
	REPL BZRJT with b8
	REPL JCJ with b9
	REPL BLGZ with b10
	REPL FGBT with b11
	REPL BTGZ with b12
	REPL YFGZ with b13
	REPL YLBX with b14
	REPL SYBX with b15
	REPL ZFJJ with b16
	REPL DF with b17
	REPL SDS with b18
	REPL SFGZ with b19
	REPL BZ with ZFJJ

cmessagetitle = '打印总汇总单'
cmessagetext = '请打开打印机，装好B4纸！'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
report form hzd.frx to print noconsole
=messagebox("汇总单打印完毕！",64,"提示窗口")
case nanswer = 7
endcase
close data


*       *********************************************************
*       *                                                         
*       * _1F80SCFUK  ON SELECTION BAR 6 OF POPUP 报表输出        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   31             
*       * Called By:  ON SELECTION BAR 6 OF POPUP 报表输出        
*       * Prompt:     倒班补贴汇总                                
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scfuk
use dbhzk
inde on dwbm to gzdasy


cmessagetitle = '打印倒班补贴汇总'
cmessagetext = '请打开打印机，装好A4或B4纸！'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
report form dbhzbb.frx to print noconsole
=messagebox("倒班饭票汇总单打印完毕！",64,"提示窗口")
case nanswer = 7
endcase
close data


*       *********************************************************
*       *                                                         
*       * _1F80SCFUV  ON SELECTION BAR 5 OF POPUP 倒班饭管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   38             
*       * Called By:  ON SELECTION BAR 5 OF POPUP 倒班饭管理      
*       * Prompt:     倒班饭上报                                  
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scfuv
cmessagetitle = '准备上报倒班饭数据'
cmessagetext = '请在A：驱中插入磁盘，继续否？'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
use dbbt
copy to A:dbbt
use
close data
case nanswer = 7
endcase


*       *********************************************************
*       *                                                         
*       * _1F80SCFUZ  ON SELECTION BAR 6 OF POPUP 倒班饭管理      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   39             
*       * Called By:  ON SELECTION BAR 6 OF POPUP 倒班饭管理      
*       * Prompt:     倒班饭传入                                  
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scfuz
cmessagetitle = '准备从软盘中上传倒班饭数据库'
cmessagetext = '请在A：驱中插入磁盘，继续否？'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
copy A:dbbt.dbf
case nanswer = 7
endcase