dxchxh.prg

vfp的进销存系统

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