xszzdlr.prg

vfp的进销存系统

parameters lrfs

qd=.t.
do case
  case lrfs=1
    if .not. file('上报数据.arj')
      dhxx='没有上报数据（上报数据.arj），不能录入！'
      qd=.f.
    endif
  case lrfs=2
    dhxx='请插入上报数据软盘！'
    do form dhk
    if .not. file('a:\上报数据.arj')
      dhxx='没有上报数据（上报数据.arj），不能录入！'
      qd=.f.
     else
      copy file a:\上报数据.arj to 上报数据.arj
    endif
endcase

if qd
  !arj e -y 上报数据
  
  restore from zmdmc additive
  do dksjk with 'dxs','dxs'
  locate for trim(代销商)==trim(zmd_mc)
  
  if .not. found()
    dhxx='代销商库中没有“'+trim(zmd_mc)+'”，不能录入上报数据！'
    do form dhk
   else
    do dksjk with 'dxxsz','dxxsz'
    locate for trim(代销商)==trim(zmd_mc) .and.日期>=zmd_qsrq .and. 日期<=zmd_jsrq .and. 审核入库='是'
    if found()
      dhxx=dtoc(zmd_qsrq)+'--'+dtoc(zmd_jsrq)+chr(13)+'该日期内的数据已有审核入库的，不能再次录入！'
      do form dhk
     else

      delete for trim(代销商)==trim(zmd_mc) .and.日期>=zmd_qsrq .and. 日期<=zmd_jsrq
      pack

      append from zmdxsz
      replace 代销商 with trim(zmd_mc),;
        审核入库 with '否';
        for trim(代销商)==''
    endif
  endif

 else
  do form dhk
endif