xstj.prg

vfp的进销存系统

*销售统计模块
*程序名：xstj
*程序员：
*开发日期：
*最后修改日期：
*修改记录

*变量说明
*jehj:金额合计
*jzrq:统计的结束日期
*qd:确定是否进入
*qsrq统计的起始日期
*slhj:数量合计
*slzd:最多的数量
*slzs:最少的数量

parameters ghs
private all except p_*

qd=.t.
qsrq=date()
jzrq=date()
pxfs=1
sx=1
do form xstjfs name xstjfs linked

if qd
  dhxx1='正在统计数据，请稍候...'
  do form xxts name xxts
  
  do jrz with p_gzrrxm,'进入销售统计'
  
  do dksjk with 'xsrjz','xsrjz'
  set order to tag gg
  
  do gbsjk with 'xstj'
  select xsrjz
  total on 规格 to _xstj for 日期>=qsrq .and. 日期<=jzrq
  do dksjk with '_xstj','xstj'
*  index on 金额 tag '金额' of '_xstjje'
  
*  calculate max(数量),min(数量) to slzd,slzs
*  replace all 摘要 with ''
*  locate for 数量=slzd .or. 数量=slzs
*  do while found()
*    if 数量=slzd
*      replace 摘要 with '数量最多'
*     else
*      replace 摘要 with '数量最少'
*    endif
*    continue
*  enddo

  *排序
  do case
    case pxfs=1
      if sx=1
        sort on 数量 to _xstj2 descending
       else
        sort on 数量 to _xstj2 ascending
      endif
    case pxfs=2
      if sx=1
        sort on 金额 to _xstj2 descending
       else
        sort on 金额 to _xstj2 ascending
      endif
  endcase
  zap
  append from _xstj2
  
  *合计  
  sum 金额,数量 to jehj,slhj
  append blank
  replace 品名 with '       合    计',金额 with jehj,数量 with slhj
  
  xxts.release
  dhxx='查看后是否打印？'
  qd=.t.
  do form sfdhk
  report form xstj preview
  if qd
    report form xstj to printer noconsole
  endif
  
  select xsrjz
  set order to 0
  
  do jrz with p_gzrrxm,'退出销售统计'
endif