keepa.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: KEEPA.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
  USEDBFJJ()
 SELECT B , C , D , F1 , PJ , COUN( * )  O WHERE  ;
      (MF = ' ' .OR. CCRQ > LCDATE) AND JCRQ <= LCDATE GROUP BY B , C , D ORDER BY B , C , D INTO CURSOR JJXH FROM  ;
      JJ
 IF _TALLY = 0
    SELECT JJ
    USE 
    SELECT JJXH
    USE 
    = MESSAGEBOX('A类商品库存数为零！    ',64,'信息')
    RETURN 
 ENDIF 
 SELECT JJ
 USE 
 SELECT JJXH
 COUNT TO NN
 IF NN > 0
    SUM TO NNP PJ
    DATETIME = DATETIME()
    REPORT FORM 库存A类 PREVIEW NOCONSOLE
    REPORT FORM 库存A类 TO PRINTER PROMPT NOCONSOLE
 ELSE 
    = MESSAGEBOX('A类商品库存数为零！    ',64,'信息')
 ENDIF 
 USE 
 SELECT (LNSELE00)
 RETURN 
*