dxchxh.prg

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

qsrq=date()
jzrq=date()
qd=.t.
do form qzrq name qzrq

if qd
  do dksjk with 'spk','spk'
  do form ggxz name ggxz
endif

if qd
  gg=spk.规格
  do gbsjk with '_chxh'
  do dksjk with 'chd','chd'
  set order to dxs
  total on 代销商 to _chxh for 日期>=qsrq .and. 日期<=jzrq .and. 规格=gg
  report form chxh preview
endif