qhqd.prg

进销存源码

*缺货清单查询
*程序名：qhqd
*程序员：庄稼
*开发日期：1997.11.24
*最后修改日期：
*修改记录

*变量说明
*dhxx:对话信息
*jls:记录数

private all except p_*

do dksjk with 'ckzz','ckzz'
set filter to 余额<库存下限
count to jls
if jls=0
  dhxx='没有缺货清单记录，不能打开！'
  do form dhk
 else
  do jrz with p_gzrrxm,'进入缺货清单查询'
  do form qhqd name qhqd linked
  do jrz with p_gzrrxm,'退出缺货清单查询'
endif
set filter to