ckrjz.prg

进销存源码

*仓库日记帐打开模块
*程序名：ckrjz
*程序员：庄稼
*开发日期：1997.12.19
*最后修改日期：
*修改记录

*变量说明
*cxnr:查询内容
*jctg:检查通过，是否具备输入的条件
*jls:有效记录数
*qd:确定
*rqn:日期年份
*rqy:日期月份

private all except p_*

rqn=year(date())
rqy=month(date())
qd=.t.
do form rqxz

if qd
  do dksjk with 'ckrjz','ckrjz'
  set filter to year(日期)=rqn .and. month(日期)=rqy
  set order to rq
  count to jls

  if jls>0
    cxnr=space(20)
    set message to '仓库日记帐打开'
    do jrz with p_gzrrxm,'打开仓库日记帐查看'
    do form ckrjz name ckrjz linked
    do jrz with p_gzrrxm,'退出仓库日记帐查看'
    set message to
   else
    dhxx='本月没有数据！'
    do form dhk
  endif
  
  select ckrjz
  set filter to
endif