saledetaila.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: SALEDETAILA.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 * WHERE CCRQ >= D1 AND CCRQ <= D2 AND MF = 'Y' ORDER BY ID , B , F1 , D INTO  ;
      CURSOR TMP00 FROM JJ
 NN = _TALLY
 SELECT JJ
 USE 
 SELECT TMP00
 IF NN > 0
    SUM TO NNP PJ
    DEFINE WINDOW VIEWIT FROM 0 , 0 TO 30 , 128 GROW FLOAT CLOSE ZOOM TITLE '报表预览 '  ;
         NOMDI SYSTEM 
    REPORT FORM 镜框销售明细 PREVIEW NOCONSOLE WINDOW VIEWIT
    REPORT FORM 镜框销售明细 TO PRINTER PROMPT NOCONSOLE
 ELSE 
    = MESSAGEBOX('A类商品销售统计数为零！    ',64,'信息')
 ENDIF 
 USE 
 SELECT (LNSELE00)
 RETURN 
*