xsdetail.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: XSDETAIL.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 '正在进行数据计算......'
 DLSLT = 0
 DLJET = 0
 CJST = 0
 CJET = 0
 QJST = 0
 QJET = 0
 YSEDT = 0
 YSEWT = 0
 YSET = 0
  USEDBFORDERNO()
 SELECT NO , CJRQ , QJRQ , CJR , LB , ZJE , SS , DJ , WS ,  ;
      IIF((CJRQ >= DATEFROM .AND. CJRQ <= DATEEND .AND. LEN(ALLTRIM(CJRQ)) = 10),1,0)  CJS ,  ;
      IIF((CJRQ >= DATEFROM .AND. CJRQ <= DATEEND .AND. LEN(ALLTRIM(CJRQ)) = 10),DJ + WS,0)  ;
       CJE ,  ;
      IIF((QJRQ >= DATEFROM .AND. QJRQ <= DATEEND .AND. LEN(ALLTRIM(QJRQ)) = 10),1,0)  QJS ,  ;
      IIF((QJRQ >= DATEFROM .AND. QJRQ <= DATEEND .AND. LEN(ALLTRIM(QJRQ)) = 10),DJ + WS,0)  QJE ,  ;
      IIF((CJRQ >= DATEFROM .AND. CJRQ <= DATEEND .AND. LEN(ALLTRIM(CJRQ)) = 10),DJ,0)  YSED ,  ;
      IIF((QJRQ >= DATEFROM .AND. QJRQ <= DATEEND .AND. LEN(ALLTRIM(QJRQ)) = 10),WS,0)  ;
       YSEW 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  ;
      ORDER BY CJRQ , NO , QJRQ , CJR  ;
      INTO CURSOR YJTJCURSPRN FROM ORDERNO
 LNT = _TALLY
 SELECT ORDERNO
 USE 
  USEDBFYSCK()
 SELECT * INTO CURSOR YSCKCURSTJ FROM YSCK
 LNTYS = _TALLY
 SELECT YSCK
 USE 
 SELECT YSCKCURSTJ
 IF LNTYS > 0
    SUM FOR RQ >= DATEFROM AND RQ <= DATEEND TO DLSLT SL
    SUM FOR RQ >= DATEFROM AND RQ <= DATEEND TO DLJET JE
 ENDIF 
 USE 
 SELECT YJTJCURSPRN
 SUM TO CJST CJS
 SUM TO CJET CJE
 SUM TO QJST QJS
 SUM TO QJET QJE
 SUM TO YSEDT YSED
 SUM TO YSEWT YSEW
 YSET = YSEDT + YSEWT
 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 
*