dxzdk.prg

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

*代销商销售表打开模块
*程序名：dxbdk
*程序员：
*开发日期：1997.12.10
*最后修改日期：
*修改记录

*变量说明
*cxnr:查询内容
*jehj:金额合计
*jhdghs:打开销售表的代销商
*jhdrqn:打开销售表日期年
*jhdrqy:打开销售表日期月
*qd:确定是否进入

private all except p_*

clear typeahead
do dksjk with 'dxxsz','dxxsz'
set order to tag rq
do dksjk with 'dxs','dxs'
do dksjk with 'ysk','ysk'
do dksjk with 'spk','spk'
do dksjk with 'fkfs','fkfs'

select dxxsz
do jrz with p_gzrrxm,'进入代销销售帐管理。'
set message to '代销销售帐管理'

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

do form dxzdk1 name dxzdk1 linked

if qd
  select dxxsz
  if qn
    set filter to alltrim(代销商)==alltrim(jhdghs) .and. year(日期)=jhdrqn
   else
    set filter to alltrim(代销商)==alltrim(jhdghs) .and. year(日期)=jhdrqn .and. month(日期)=jhdrqy
  endif
  cxnr=space(20)
  
  do form dxzdk name dxzdk linked
  
  select dxxsz
  set filter to
endif

do jrz with p_gzrrxm,'退出销售帐管理。'
set message to ''