dxrjz.prg

来自「vfp的进销存系统」· PRG 代码 · 共 48 行

*代销商仓库日记帐打开模块
*程序名：dxkrjz
*程序员：
*开发日期：1997.12.23
*最后修改日期：
*修改记录

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

private all except p_*

do dksjk with 'dxs','dxs'

qd=.t.
jhdrqn=year(date())
jhdrqy=month(date())
select dxs
go top
jhdghs=代销商

do form chddk1 name chddk1 linked

if qd
  do dksjk with 'dxkrjz','dxkrjz'
  set filter to year(日期)=jhdrqn .and. month(日期)=jhdrqy .and. alltrim(代销商)==alltrim(jhdghs)
  count to jls

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