waitoutlist.prg

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

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


 LNSELE00 = SELECT()
 DM = IIF(TYPE('SHORTNAME') = 'C',SHORTNAME,'')
 WAIT WINDOW NOWAIT TIMEOUT 60 '正在进行数据计算......'
 LCDATE = DTOC(DATE())
  USEDBFORDERNO()
 SELECT * WHERE CJR > ' ' AND CJRQ > ' ' AND LEN(ALLTRIM(CJRQ)) = 10 AND QJRQ = ' '  ;
      GROUP BY NO , CJRQ , CJR INTO CURSOR CURSORDERNO FROM ORDERNO
 NN = _TALLY
 IF NN > 0
    DATETIME = DATETIME()
    REPORT FORM WAITOUTLIST PREVIEW NOCONSOLE
    REPORT FORM WAITOUTLIST TO PRINTER PROMPT NOCONSOLE
 ELSE 
    = MESSAGEBOX('三联单待取件数为零！    ',64,'信息')
 ENDIF 
 USE 
 SELECT ORDERNO
 USE 
 SELECT (LNSELE00)
 RETURN 
*