bb1.prg

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

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


 CLOSE ALL
 SELECT 1
 USE zk
 SORT ON 数量 /D TO zk2
 USE 
 COPY File zk2.* TO zk.*
 USE zk
 REPLACE 总金额 WITH (数量 * 进货价)
 GO TOP
 SELECT 2
 USE tempzkc
 SELECT 1
 DO WHILE  .NOT. EOF() AND 编号 > 0
    TEMPBH = 编号
    SELECT 2
    SUM ALL FOR 编号 = TEMPBH AND 日期 = DATE() TO AA 数量
    SELECT 1
    REPLACE 本日出库 WITH AA
    SKIP 
 ENDDO 
 CLOSE ALL
 USE 
 DO FORM csqd.scx
*