check_folio.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 45 行

***  检查帐目的正确性  ***
do usetable with "Thisday"
go top
do while .not.eof()
   _name=allt(name)
   if cj+js+xy=hj or hj=xj+xyk+qz-zhin+zhout and checkout=.t.
      set message to "检查“"+_name+"”时，正确！"
   else
      set message to "检查“"+_name+"”时，错误！"
      messagebox("检查到“"+_name+"”时，发现帐目不对，请人工检查！",48,"警告")
   endif
skip
enddo   
do usetable with "folio"
sele thisday
go top
do while .not.eof()
   _id1=id
   _sk1=sk
   _cj1=cj
   _xy1=xy
   _js1=js
   _zhin1=zhin
   _zhout1=zhout
   sele folio
      sum charge to _sk2 for account=_id1 and type="收款"
      sum charge to _cj2 for account=_id1 and type="菜金"
      sum charge to _xy2 for account=_id1 and type="香烟"
      sum charge to _js2 for account=_id1 and type="酒水"
      sum charge to _zhin2 for account=_id1 and type="转进"
      sum charge to _zhout2 for account=_id1 and type="转出"
   if !(_sk1=_sk2 and ;
      _cj1=_cj2 and ;
      _xy1=_xy2 and ;
      _js1=_js2 and ;
      _zhin1=_zhin2 and ;
      _zhout1=_zhout2 )
      messagebox("Thisday 中帐号为 "+allt(str(_id1))+" 的帐与 Folio 中不符，请检查！",16,"错误")
   endif
      
sele thisday
skip
enddo