行业应用

开发平台：

VFP

check_folio.prg：源码内容

							* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CHECK_FOLIO.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 DO USETABLE WITH 'Thisday'
 GO TOP
 DO WHILE  .NOT. EOF()
 _NAME = ALLTRIM(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'
 SELECT THISDAY
 GO TOP
 DO WHILE  .NOT. EOF()
 _ID1 = ID
 _SK1 = SK
 _CJ1 = CJ
 _XY1 = XY
 _JS1 = JS
 _ZHIN1 = ZHIN
 _ZHOUT1 = ZHOUT
 SELECT FOLIO
 SUM FOR ACCOUNT = _ID1 AND TYPE = '收款' TO _SK2 CHARGE
 SUM FOR ACCOUNT = _ID1 AND TYPE = '菜金' TO _CJ2 CHARGE
 SUM FOR ACCOUNT = _ID1 AND TYPE = '香烟' TO _XY2 CHARGE
 SUM FOR ACCOUNT = _ID1 AND TYPE = '酒水' TO _JS2 CHARGE
 SUM FOR ACCOUNT = _ID1 AND TYPE = '转进' TO _ZHIN2 CHARGE
 SUM FOR ACCOUNT = _ID1 AND TYPE = '转出' TO _ZHOUT2 CHARGE
 IF  .NOT. (_SK1 = _SK2 AND _CJ1 = _CJ2 AND _XY1 = _XY2 AND _JS1 = _JS2 AND _ZHIN1 = _ZHIN2 AND  ;
_ZHOUT1 = _ZHOUT2)
  MESSAGEBOX('Thisday 中帐号为 ' + ALLTRIM(STR(_ID1)) + ' 的帐与 Folio 中不符，请检查！',16,'错误')
 ENDIF 
 SELECT THISDAY
 SKIP 
 ENDDO 
*

						