changestru_2.prg

来自「系统主要由考勤机和考勤软件两部分组成」· PRG 代码 · 共 25 行

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


 LOCAL LERR , OLDERR
 OLDERR = ON('error')
 ON ERROR lerr=.t.
 IF FILE('oldrsgz.dbf')
    IF FILE('rsgz.dbf')
       IF  .NOT. USED('rsgz')
          USE IN 0 rsgz
       ENDIF 
       SELECT RSGZ
       APPEND FROM oldrsgz
       IF USED('oldrsgz')
          USE IN OLDRSGZ
       ENDIF 
       DELETE File oldrsgz.dbf
       DELETE File oldrsgz.fpt
    ENDIF 
 ENDIF 
  ON error &olderr
*