jjstockouttotal.prg

来自「通过VFP编程的方式来统计指定数据库中的有关数据」· PRG 代码 · 共 63 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: JJSTOCKOUTTOTAL.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 '正在进行数据计算......'
 SELECT 0
 USE JJGL\DHK
 SELECT 0
 USE JJGL\JJ
 SELECT 0
 SELECT DHK.RQ , DHK.DJH , DHK.FW , DHK.SL , JJ.B , JJ.C , JJ.D , JJ.F1 , JJ.G , JJ.H ,  ;
      JJ.I , JJ.PJ  L , 1  O WHERE  ;
      DHK.DJH = JJ.DH AND DHK.RQ = JJ.CCRQ AND DHK.SL > 0 AND DHK.DY = 'Y' AND JJ.D <> 0 AND  ;
JJ.MF = 'B' AND JJ.DH >= 0 AND DHK.RQ >= DATEFROM AND DHK.RQ <= DATEEND  ;
      ORDER BY DHK.FW ,  ;
      DHK.DJH , JJ.B , JJ.F1 INTO CURSOR CURSSTOCKOUT DISTINCT FROM dhk , JJ
 LNN = _TALLY
 SUM TO LNNP L
 SELECT JJ
 USE 
 SELECT DHK
 USE 
 SELECT CURSSTOCKOUT
 IF LNN > 0
    LTT = DATETIME()
    DEFINE WINDOW VIEWIT FROM 0 , 0 TO 30 , 128 GROW FLOAT CLOSE ZOOM TITLE '报表预览 '  ;
         NOMDI SYSTEM 
    REPORT FORM JJSTOCKOUTTOTAL PREVIEW NOCONSOLE WINDOW VIEWIT
    REPORT FORM JJSTOCKOUTTOTAL TO PRINTER PROMPT NOCONSOLE
 ELSE 
    = MESSAGEBOX('A类商品调拨统计数为零！    ',64,'信息')
 ENDIF 
 USE 
 SELECT (LNSELE00)
 RETURN 
*