www.pudn.com > jq_caiwu.ARJ > CBJS.PRG

 USE pzk 
 DELE ALL FOR zy='结转费用' .OR. zy='结转成本' 
 PACK 
 GOTO BOTTOM 
 pzh = 5 
 pz = pzh 
 pz = pz+1 
 rq1 = DATE() 
 USE mxk 
 x1 = 0 
 y1 = 0 
 LOCA ALL FOR '1350001'=SUBSTR(kmdm, 1, 7) .AND. zy='期末及累计' 
 DO WHILE  .NOT. EOF() 
      x1 = x1+ysl 
      y1 = y1+ye 
      CONT 
 ENDD 
 x2 = 0 
 y2 = 0 
 LOCA ALL FOR '1350002'=SUBSTR(kmdm, 1, 7) .AND. zy='期末及累计' 
 DO WHILE  .NOT. EOF() 
      x2 = x2+ysl 
      y2 = y2+ye 
      CONT 
 ENDD 
 x3 = 0 
 y3 = 0 
 LOCA ALL FOR '1350003'=SUBSTR(kmdm, 1, 7) .AND. zy='期末及累计' 
 DO WHILE  .NOT. EOF() 
      x3 = x3+ysl 
      y3 = y3+ye 
      CONT 
 ENDD 
 z1 = 0 
 IF (x1+x2+x3)<>0 
      z1 = (y1+y2+y3)/(x1+x2+x3) 
      z1 = ROUND(z1+0, 2) 
 ENDI 
 RUN copy \cw\pzk-1.dbf mxk%%.dbf>nul 
 USE mxk%% 
 APPE FROM mxk FOR SUBSTR(kmdm, 1, 3)='501' .AND. zy='本月合计' 
 PACK 
 REPL kmdm WITH '135'+SUBSTR(kmdm, 4, 6) ALL 
 REPL fsl WITH (fsl-ssl) ALL 
 REPL dje WITH (fsl*z1) ALL 
 REPL zzkm WITH '库存商品' ALL 
 REPL jhd WITH '+' ALL 
 APPE BLANK 
 SUM ALL jje TO a1 
 SUM ALL dje TO a2 
 GOTO BOTTOM 
 REPL dje WITH a1 
 REPL jje WITH a2 
 REPL kmdm WITH '5110001' 
 REPL zzkm WITH '商品销售成本' 
 REPL mxkm WITH '商品销售成本' 
 REPL jhd WITH '+' 
 REPL zy WITH '结转成本', shy WITH '系统生成', lry WITH '系统生成' ALL 
 REPL pzh WITH pz, rq WITH rq1 ALL 
 DELE ALL FOR jje=0 .AND. dje=0 
 PACK 
 USE pzk 
 APPE FROM mxk%% 
 USE mxk%% 
 DELE ALL FOR zzkm<>'商品销售成本' 
 PACK 
 pz = pz+1 
 x1 = jje 
 x2 = dje 
 REPL jje WITH x2, dje WITH x1, pzh WITH pz 
 APPE BLANK 
 GOTO BOTTOM 
 REPL pzh WITH pz, jhd WITH '-', rq WITH rq1 
 REPL jje WITH x1, dje WITH x2 
 REPL zzkm WITH '本年利润', mxkm WITH '本年利润' 
 REPL kmdm WITH '3210001', zy WITH '结转成本' 
 REPL shy WITH '系统生成', lry WITH '系统生成' 
 DELE ALL FOR jje=0 .AND. dje=0 
 PACK 
 USE pzk 
 APPE FROM mxk%% 
 ERAS mxk%%.dbf 
 CLOS ALL 
 RETU 
*