xjjjz1.prg

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

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


 CLOSE ALL
 SELECT 1
 USE tempzkc.dbf
 SELECT 2
 USE tempsj
 DELETE ALL
 PACK 
 SELECT 3
 USE hjsj
 SELECT 1
 SCAN FOR 日期 = DATE()
    SELECT 2
    APPEND BLANK
    REPLACE 编号 WITH A.编号 , 商品名称 WITH A.商品名称 , 数量 WITH A.数量 , 单位 WITH  ;
         A.单位 , 出货价 WITH A.出货价 , 总金额 WITH A.总金额 , 经手人 WITH  ;
         A.经手人 , 操作员 WITH A.操作员 , 备注 WITH A.备注 , 客户 WITH A.客户 ,  ;
         日期 WITH A.日期 , 单据编号 WITH A.单据编号 , 交易 WITH A.交易 ,  ;
         已付金额 WITH A.已付金额 , 本次应收款 WITH A.本次应收款 , 还款时间  ;
         WITH A.还款时间 , 过帐 WITH A.过帐
    SELECT 1
 ENDSCAN 
 SUM FOR LTRIM(TRIM(商品名称)) = '【销售收款】' AND 日期 = DATE() TO CC 总金额
 SUM FOR 日期 = DATE() TO DD 总金额
 SELECT 3
 REPLACE 现金 WITH CC , 记帐 WITH DD - CC * 2 , 总金额 WITH DD - CC
 SELECT 2
 DELETE ALL FOR 数量 = 0
 PACK 
 CLOSE ALL
 DO FORM XJJJZ
*