t_yxhj.prg

进销存源码

*设置临时运行环境
set talk off
set century on
set safety off
public p_gzrrxm,p_cxlj
p_gzrrxm='庄稼'

*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
  CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
  IF CXZF='\'
    CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,'')
    EXIT
  ENDIF
ENDFOR
SET DEFAULT TO &CXLJ
p_cxlj=cxlj