saletotala.prg

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

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


 SET TALK OFF
 SET ECHO OFF
 SET DELETED ON
 SET DATE TO ansi
 SET CENTURY ON
 LNSELE00 = SELECT()
 DM = IIF(TYPE('SHORTNAME') = 'C',SHORTNAME,'')
 IF TYPE('DATEFROM') <> 'C'
    DATEEND0 = DATE()
    DATEEND = DTOC(DATE())
    IF DAY(DATE()) = 1
       DATEEND0 = DATE() - 1
       DATEEND = DTOC(DATE() - 1)
    ENDIF 
    DATEFROM0 = DATEEND0
    LNMONTH = MONTH(DATEFROM0)
    DO WHILE .T.
       DATEFROM0 = DATEFROM0 - 1
       IF MONTH(DATEFROM0) < LNMONTH
          DATEFROM0 = DATEFROM0 + 1
          EXIT 
       ENDIF 
    ENDDO 
    DATEFROM = DTOC(DATEFROM0)
 ENDIF 
 WAIT WINDOW NOWAIT TIMEOUT 60 '正在进行数据计算......'
 RQ11 = DATEFROM
 QMRQ = DATEEND
 D1 = RQ11
 D2 = QMRQ
  USEDBFJJ()
 SELECT ID , B , COUN( * )  CK , SUM(PJ)  CKJE WHERE  ;
      CCRQ >= D1 AND CCRQ <= D2 AND MF = 'Y' GROUP BY 1 , 2 ORDER BY 1 , 2 INTO TABLE tmp00 FROM JJ
 SELECT ID , B , COUN( * )  KC , SUM(PJ)  KCJE WHERE  ;
      (MF = ' ' .OR. CCRQ > D2) AND JCRQ <= D2 GROUP BY 1 , 2 ORDER BY 1 , 2 INTO TABLE tmp01 FROM JJ
 IF USED('pp')
    SELECT PP
    USE 
 ELSE 
    SELECT 0
 ENDIF 
 CREATE CURSOR pp ( ID C ( 5 ) , B C ( 2 ) , CK N ( 6 ) , CKJE N ( 8 , 2 ) , CKJE1 N ( 8 ,  ;
      2 ) , KC N ( 6 ) , KCJE N ( 8 , 2 ) , KCLJ N ( 6 ) , KCJELJ N ( 9 ,  ;
      2 ) , KCJEJ1 N ( 9 , 2 ) )
 ZAP 
 APPEND FROM tmp00
 APPEND FROM tmp01
 SELECT ID , B , SUM(CK)  CK , SUM(CKJE)  CKJE , SUM(KC)  KC , SUM(KCJE)  KCJE GROUP BY  ;
      1 , 2 ORDER BY 1 , 2 INTO TABLE pptj FROM pp
 SELECT PPTJ
 USE 
 SELECT PP
 ZAP 
 APPEND FROM pptj
 SET FILTER TO CK <> 0
 COUNT TO LL
 IF LL > 0
    DEFINE WINDOW VIEWIT FROM 0 , 0 TO 30 , 128 GROW FLOAT CLOSE ZOOM TITLE '报表预览 '  ;
         NOMDI SYSTEM 
    REPORT FORM 镜框销售统计 PREVIEW WINDOW VIEWIT FOR CK <> 0
    REPORT FORM 镜框销售统计 TO PRINTER PROMPT NOCONSOLE FOR CK <> 0
 ELSE 
    = MESSAGEBOX('A类商品销售统计数为零！    ',64,'信息')
 ENDIF 
 SELECT TMP00
 USE 
 DELETE File tmp00.dbf
 SELECT TMP01
 USE 
 DELETE File tmp01.dbf
 DELETE File pptj.dbf
 SELECT JJ
 USE 
 SELECT PP
 USE 
 SELECT (LNSELE00)
 RETURN 
*