tskc.prg

来自「一个非常优秀的VFP源码」· PRG 代码 · 共 32 行

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


 CLOSE ALL
 SELECT 1
 USE spbh
 SELECT 2
 USE zk
 SELECT 3
 USE temphx
 ZAP 
 SELECT 1
 DO WHILE  .NOT. EOF()
    BHL = LTRIM(TRIM(商品编号))
    SLL = 库存提示
    SPMC = 商品名称
    SELECT 2
    SCAN FOR 编号 = BHL AND SLL > 数量
       SELECT 3
       APPEND BLANK
       REPLACE 备注 WITH  ;
            '　　您的货物' + BHL + '：' + SPMC + '已经出现短缺只剩余' + STR(数量,10,2)
       SELECT 2
    ENDSCAN 
    SELECT 1
    SKIP 
 ENDDO 
 DO FORM tskc
*