yjtjtotal.prg

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

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


 SET TALK OFF
 SET SAFETY 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 '正在进行数据计算......'
  USEDBFORDERNO()
 SELECT CJR  XM ,  ;
      SUM(IIF((CJRQ >= DATEFROM .AND. CJRQ <= DATEEND .AND. LEN(ALLTRIM(CJRQ)) = 10),1,0))  CJS ,  ;
      SUM(IIF((CJRQ >= DATEFROM .AND. CJRQ <= DATEEND .AND. LEN(ALLTRIM(CJRQ)) = 10),DJ + WS,0))  CJE ,  ;
      SUM(IIF((QJRQ >= DATEFROM .AND. QJRQ <= DATEEND .AND. LEN(ALLTRIM(QJRQ)) = 10),1,0))  QJS ,  ;
      SUM(IIF((QJRQ >= DATEFROM .AND. QJRQ <= DATEEND .AND. LEN(ALLTRIM(QJRQ)) = 10),DJ + WS,0))  ;
       QJE WHERE  ;
      LEN(ALLTRIM(CJR)) > 1 AND LEN(ALLTRIM(CJRQ)) = 10 AND  ;
(CJRQ >= DATEFROM AND CJRQ <= DATEEND .OR. QJRQ >= DATEFROM AND QJRQ <= DATEEND) AND WS <> -1  ;
      GROUP BY CJR ORDER BY  ;
      CJR INTO CURSOR YJTJCURSPRN FROM ORDERNO
 LNT = _TALLY
 SELECT ORDERNO
 USE 
 SELECT YJTJCURSPRN
 IF LNT > 0
    GO TOP
    DATETIME = DATETIME()
    REPORT FORM 业绩统计 PREVIEW NOCONSOLE
    REPORT FORM 业绩统计 TO PRINTER PROMPT NOCONSOLE
 ELSE 
    = MESSAGEBOX('业绩统计数为零！    ',64,'信息')
 ENDIF 
 USE 
 WAIT WINDOW NOWAIT TIMEOUT 3 '业绩统计完毕！'
 SELECT (LNSELE00)
 RETURN 
*