www.pudn.com > jq_caiwu.ARJ > FYJZ-2.PRG

 USE mxkK%% 
 @ 19, 31 SAY 'finding... '+pd 
 DELE ALL FOR SUBSTR(kmdm, 1, 3)<>pd 
 REPL jje WITH 0, dje WITH 0, njye WITH 0, ndye WITH 0 ALL 
 REPL dje WITH ye ALL FOR jhd='+' 
 REPL jje WITH ye ALL FOR jhd='-' 
 REPL ye WITH 0 ALL 
 USE 
 COPY FILE \cw\pzk-1.dbf TO mxkk%.dbf 
 COPY FILE \cw\pzk-1.dbf TO mxk%%.dbf 
 USE mxkK% 
 APPE FROM mxkK%% 
 USE mxk%% 
 APPE FROM mxkK%% 
 USE mxkK%% 
 RECA ALL 
 USE mxk%% 
 REPL kmdm WITH SUBSTR(kmdm, 1, 3) ALL 
 TOTA ON kmdm TO mxk%.dbf 
 USE mxkK% 
 REPL pzh WITH pz, rq WITH rq1 ALL 
 APPE FROM mxk% 
 pd = jje 
 pd1 = dje 
 REPL jje WITH pd1, dje WITH pd 
 REPL zzkm WITH '本年利润', mxkm WITH '以前年度损益调整', kmdm WITH '3210004' 
 REPL jhd WITH '-', rq WITH rq1, pzh WITH pz 
 REPL zy WITH '结转利润', fsl WITH 0, ssl WITH 0 ALL 
 DELE ALL FOR jje=0 .AND. dje=0 
 PACK 
 USE pzk 
 APPE FROM mxkK% 
 ERAS mxkk%.dbf 
 ERAS mxk%%.dbf 
 ERAS mxk%.dbf 
 RETU 
*