单据被占用时，停止执行程序

装运单被锁定后，不执行审核的按钮程序，用以下代码实现。

被用在JM0831中。

############################

#NMAE:TIM
#DATE:20140514
#NOTE:若订单锁定不执行后续代码
#SN
############################
Infbox 'TIM'
        SYMBOLE2 = "SDH"+[F:SDH]SDHNUM
        Lock = SYMBOLE2
        If fstat
           GERR=1 : GMESSAGE= [F:SDH]SDHNUM - ":"-mess(10,100,1)
           OK=0   : Return 
        Endif
#EN
############################