keepbt.prg

通过VFP编程的方式来统计指定数据库中的有关数据

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: KEEPBT.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 LNSELE00 = SELECT()
 DM = IIF(TYPE('SHORTNAME') = 'C',SHORTNAME,'')
 IF TYPE('DATEEND') <> 'C'
    DATEEND0 = DATE()
    DATEEND = DTOC(DATE())
    IF DAY(DATE()) = 1
       DATEEND0 = DATE() - 1
       DATEEND = DTOC(DATE() - 1)
    ENDIF 
 ENDIF 
 WAIT WINDOW NOWAIT TIMEOUT 60 '正在进行数据计算......'
 LCDATE = DATEEND
  USEDBFJP()
 SELECT B , MODEL , STR(F1)  F1 , STR(F)  F , D , L , 1  O WHERE  ;
      (MF = ' ' .OR. CCRQ > LCDATE) AND JCRQ <= LCDATE ORDER BY 1 , 2 , 3 , 4 , 5 INTO CURSOR JPXH  ;
      FROM JP
 IF _TALLY = 0
    SELECT JP
    USE 
    SELECT JPXH
    USE 
    = MESSAGEBOX('B类商品库存数为零！    ',64,'信息')
    RETURN 
 ENDIF 
 SELECT JP
 USE 
 SELECT JPXH
 COUNT TO NN
 IF NN > 0
    SUM TO NNP L
    DATETIME = DATETIME()
    REPORT FORM KEEPBT PREVIEW NOCONSOLE
    REPORT FORM KEEPBT TO PRINTER PROMPT NOCONSOLE
 ELSE 
    = MESSAGEBOX('B类商品库存数为零！    ',64,'信息')
 ENDIF 
 USE 
 SELECT (LNSELE00)
 RETURN 
*