dxtjsl.prg

vfp的进销存系统

do dksjk with 'chd','chd'
do dksjk with 'dxxsz','dxxsz'
do dksjk with 'dxkzz','dxkzz'

do dksjk with 'dxs','dxs'
go top
dxs=代销商
qd=.t.
pxfs=1
sx=1
do form dxtjslfs name dxtjslfs
if dxs='全部专卖店'
  set order to dxs
endif

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

if qd
  dhxx1='正在统计数据，请稍候...'
  do form xxts name xxts
  
  do jrz with p_gzrrxm,'进入代销商数据统计（数量）'
  
  select 0
  create table _dxtj free;
    (品名 c(20),;
    规格 c(20),;
    进货 n(7,0),;
    销售 n(7,0),;
    库存 n(7,0))

  *统计进货
  do gbsjk with '_lstjk'
  select chd
  if dxs='全部专卖店'
    set relation to 代销商 into dxs
  endif
  set order to gg
  if dxs='全部专卖店'
    total on 规格 to _lstjk for upper(dxs.代码)='Z' .and.日期>=qsrq .and. 日期<=jzrq
   else
    total on 规格 to _lstjk for trim(代销商)==trim(dxs) .and.日期>=qsrq .and. 日期<=jzrq
  endif
  do dksjk with '_lstjk','_lstjk'
  scan
    select _dxtj
    append blank
    replace 品名 with _lstjk.品名,;
      规格 with _lstjk.规格,;
      进货 with _lstjk.数量
    select _lstjk
  endscan
  select chd
  set order to
  set relation to
  
  *统计销售
  do gbsjk with '_lstjk'
  select dxxsz
  if dxs='全部专卖店'
    set relation to 代销商 into dxs
  endif
  set order to gg
  if dxs='全部专卖店'
    total on 规格 to _lstjk for upper(dxs.代码)='Z' .and.日期>=qsrq .and. 日期<=jzrq
   else
    total on 规格 to _lstjk for trim(代销商)==trim(dxs) .and.日期>=qsrq .and. 日期<=jzrq
  endif
  do dksjk with '_lstjk','_lstjk'
  scan
    select _dxtj
    locate for trim(品名)==trim(_lstjk.品名) .and. trim(规格)==trim(_lstjk.规格)
    if found()
      replace 销售 with _lstjk.数量
     else
      append blank
      replace 品名 with _lstjk.品名,;
        规格 with _lstjk.规格,;
        销售 with _lstjk.数量
    endif
    select _lstjk
  endscan
  select dxxsz
  set order to
  set relation to
  
  *库存统计
  select dxkzz
  if dxs='全部专卖店'
    set relation to 代销商 into dxs
    set filter to upper(dxs.代码)='Z'
   else
    set filter to trim(代销商)==trim(dxs)
  endif
  scan
    select _dxtj
    locate for trim(品名)==trim(dxkzz.品名) .and. trim(规格)==trim(dxkzz.规格)
    if found()
      replace 库存 with dxkzz.余额
     else
      append blank
      replace 品名 with dxkzz.品名,;
        规格 with dxkzz.规格,;
        库存 with dxkzz.余额
    endif
  endscan
  select dxkzz
  set filter to
  set relation to
  
  *排序
  do gbsjk with '_dxtj2'
  select _dxtj
  do case
    case pxfs=1
      if sx=1
        sort on 进货 to _dxtj2 descending
       else
        sort on 进货 to _dxtj2 ascending
      endif
    case pxfs=2
      if sx=1
        sort on 销售 to _dxtj2 descending
       else
        sort on 销售 to _dxtj2 ascending
      endif
    case pxfs=3
      if sx=1
        sort on 库存 to _dxtj2 descending
       else
        sort on 库存 to _dxtj2 ascending
      endif
  endcase

  *进入查看
  select _dxtj
  zap
  append from _dxtj2
  xxts.release
  qd=.t.
  dhxx='是否在查看后打印？'
  do form sfdhk
  report form dxtjsl preview
  if qd
    report form dxtjsl to printer noconsol
  endif
  
  do jrz with p_gzrrxm,'退出代销商数据统计（数量）'
endif

select dxs
set order to 0