perror.prg

一个非常好用的财务软件源程序

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


 PARAMETER ERR_NO , ERR_MSG , ERR_MSG1 , ERR_PRO , ERR_LINE
 DO CASE 
    BERR = .T.
 CASE ERR_NO = 1961
    RETURN 
 CASE ERR_NO = 1705
    IF BDYHTEST
       BYHSM = BYHSM + 1
       RETURN 
    ENDIF 
    IF MESSAGEBOX('文件暂时被其他用户使用，是否稍候再试？',33,'提示信息') = 1
       RETRY  
    ELSE 
       CLOSE DATABASES ALL
       QUIT 
    ENDIF 
 OTHERWISE 
    DO FORM serror WITH ERR_NO , ERR_MSG , ERR_MSG1 , ERR_PRO , ERR_LINE
 ENDCASE 
*