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

 CLOS ALL 
 SET PATH TO C:\ 
 IF  .NOT. FILE('pzk.dbf') .OR.  .NOT. FILE('mxk.dbf') .OR.  .NOT. FILE('zzk.dbf') 
      ?? CHR(7) 
      @ 11, 40 SAY '凭证尚未入帐,无法结转费用!' 
      i = INKEY(0) 
      SET PATH TO \cw 
      @ 11, 40 SAY '鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍鞍' COLOR W+/N  
      RETU 
 ENDI 
 SET PATH TO \cw 
 USE pzk 
 pd = jzbz 
 USE 
 IF pd='1' 
      ?? CHR(7) 
      @ 11, 45 SAY '本月已结帐!' 
      i = INKEY(0) 
      @ 11, 45 SAY '鞍鞍鞍鞍鞍鞍鞍' COLOR W+/N  
      RETU 
 ENDI 
 USE pzk 
 LOCA ALL FOR shy='系统生成' 
 IF  .NOT. EOF() 
      SET COLOR TO W/N 
      @ 12, 42, 16, 72 BOX '鞍鞍鞍鞍鞍鞍' 
      SET COLOR TO W+/BG 
      @ 11, 40 CLEAR TO 15, 70 
      @ 11, 40 TO 15, 70 DOUBLE 
      @ 12, 46 SAY '费用已经结转!再次进行凭' 
      @ 13, 42 SAY '证输入或凭证修改时,上次的结' 
      @ 14, 42 SAY '转费用作废!' 
      i = INKEY(0) 
      USE 
      SET COLOR TO W+/N 
      @ 11, 38, 16, 72 BOX '鞍鞍鞍鞍鞍鞍鞍' 
      RETU 
 ENDI 
 USE mxk 
 LOCA ALL FOR zy='本月合计' 
 IF EOF() 
      SET COLOR TO W/N 
      @ 12, 47, 15, 72 BOX '鞍鞍鞍鞍鞍鞍' 
      SET COLOR TO W+/BG 
      @ 11, 45 CLEAR TO 14, 70 
      @ 11, 45 TO 14, 70 DOUBLE 
      @ 12, 46 SAY '凭证尚未入帐!请将凭证入' 
      @ 13, 46 SAY '入帐后再进行费用结转!' 
      i = INKEY(0) 
      SET COLOR TO W+/N 
      @ 11, 40, 15, 72 BOX '鞍鞍鞍鞍鞍鞍' 
      USE 
      RETU 
 ENDI 
 USE 
 SET COLOR TO W/N 
 @ 12, 44, 14, 72 BOX '鞍鞍鞍鞍鞍鞍' 
 SET COLOR TO W+/BG, GR+/R 
 @ 10, 42 CLEAR TO 13, 69 
 @ 10, 42 TO 13, 68 DOUBLE 
 pd = 'Y' 
 @ 11, 44 SAY '是否采用自动结转成本?' 
 @ 12, 49 SAY 'Y=是,其他=否:' GET pd PICTURE 'x' 
 READ 
 IF pd='Y' .OR. pd='y' 
      DO cbjs 
 ENDI 
 HIDE POPUP pop3 
 CLOS ALL 
 SET COLOR TO N/G 
 CLEA 
 SET COLOR TO N/W 
 @ 1, 2 CLEAR TO 23, 77 
 SET COLOR TO W/N 
 @ 11, 14 CLEAR TO 15, 69 
 SET COLOR TO N/B 
 @ 9, 10 CLEAR TO 13, 65 
 SET COLOR TO R+/B 
 @ 5, 27 SAY ' 结  转  费  用' 
 SET COLOR TO W+/B 
 ?? CHR(7) 
 @ 9, 30 SAY '注      意' 
 @ 11, 17 SAY '1. 结转费用期间,请勿中断计算机;请勿关机!' 
 @ 12, 17 SAY '2. 建议您使用不间断电源(UPS).' 
 @ 17, 30 SAY ' 请等候......' 
 COPY FILE mxk.dbf TO mxkk%%.dbf 
 USE mxkk%%.dbf 
 DELE ALL FOR zy<>'期末及累计' 
 PACK 
 SELE 1 
 USE pzk 
 SET INDEX TO pz 
 REIN 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '501' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '507' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '511' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '517' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '521' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '531' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '541' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '545' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '551' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '555' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '557' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '561' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '550' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '571' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '575' 
 DO fyjz-1 
 GOTO BOTTOM 
 pz = pzh 
 pz = pz+1 
 pd = '560' 
 DO fyjz-2 
 pd = 0 
 SELE 1 
 REPL shy WITH '系统生成', lry WITH '系统生成', ssl WITH 0, fsl WITH 0 ALL FOR zy='结转利润' 
 USE 
 SELE 2 
 USE 
 SELE 3 
 USE 
 DO pzrz 
 IF ryf=1 
      USE mxk 
      REPL jje WITH jje-dje, dje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='322' .AND. zy='期末及累计' 
      REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='321' .AND. zy='期末及累计' 
      REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='585' .AND. zy='期末及累计' 
      USE zzk 
      REPL jje WITH jje-dje, dje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='322' .AND. zy='期末及累计' 
      REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='321' .AND. zy='期末及累计' 
      REPL dje WITH dje-jje, jje WITH 0 ALL FOR SUBSTR(kmdm, 1, 3)='585' .AND. zy='期末及累计' 
      USE 
 ENDI 
 RETU 
*