企业管理

开发平台：

VFP

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 cwpzk-1.dbf TO mxkk%.dbf
 COPY FILE cwpzk-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
*

						