changestru_1.prg

系统主要由考勤机和考勤软件两部分组成

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CHANGESTRU_1.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 LOCAL LERR , OLDERR
 OLDERR = ON('error')
 ON ERROR lerr=.t.
 IF FILE('rsgz.dbf')
    IF  .NOT. USED('rsgz')
       USE IN 0 rsgz
    ENDIF 
    SELECT RSGZ
    IF FSIZE('合同签定日') = 0
       USE IN RSGZ
       RENAME rsgz.dbf TO oldrsgz.dbf
       RENAME rsgz.cdx TO oldrsgz.cdx
    ENDIF 
 ENDIF 
  on error &olderr
*