jsczmxz.prg

帐务管理系统

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


  SY('czmxz')
 SET SAFETY OFF
 ZAP 
 APPEND FROM data FOR  .NOT. EMPTY(单位或姓名)
 REPLACE 增加 WITH (金额) FOR  ;
      (付款方式 <> '现金' AND 进销 = '减') .OR.  ;
(付款方式 = '现金' AND EMPTY(品名) AND 进销 = '增') .OR. (付款方式 = '现金' AND  .NOT. EMPTY(品名))
 REPLACE 减少 WITH (金额) FOR  ;
      (付款方式 = '现金' AND EMPTY(品名) AND 进销 = '减') .OR.  ;
(付款方式 = '现金' AND  .NOT. EMPTY(品名)) .OR. (付款方式 <> '现金' AND 进销 = '增')
 IF FILE('temp.dbf')
     SY('temp')
    USE 
 ENDIF 
  SY('czmxz')
 SORT ON 单位或姓名 , 排列 TO temp
 ZAP 
 APPEND FROM temp
 GO TOP
 JC = 0
 DW = ALLTRIM(单位或姓名)
 SCAN 
    IF ALLTRIM(单位或姓名) = DW
       JC = JC + 增加 - 减少
       REPLACE 结存 WITH JC
    ELSE 
       JC = 增加 - 减少
       REPLACE 结存 WITH JC
       DW = ALLTRIM(单位或姓名)
    ENDIF 
 ENDSCAN 
 GO TOP
 SCAN 
    IF  .NOT. EMPTY(数量)
       REPLACE 备注 WITH  ;
            ALLTRIM(备注) + '（' + ALLTRIM(STR(单价,10,3)) + 'X' + ALLTRIM(STR(数量,10)) + '）'
    ENDIF 
 ENDSCAN 
*