English
JZXY.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：7k
源码类别：
企业管理
开发平台：
VFP
- CLOS ALL
- USE pzk
- pd = jzbz
- IF pd='1'
- SET COLOR TO
- @ 11, 25 CLEAR TO 14, 55
- SET COLOR TO GR+/G
- @ 10, 23 CLEAR TO 13, 53
- x1 = 10
- x2 = 13
- y1 = 25
- y2 = 51
- DO box-1
- @ 11, 30 SAY '本月数据已经结转!'
- ?? CHR(7)
- USE
- i = INKEY(0)
- SET COLOR TO W+/N
- @ 10, 10, 14, 55 BOX '鞍鞍鞍鞍鞍'
- RETU
- ENDI
- LOCA ALL FOR shy=' '
- IF .NOT. EOF()
- ?? CHR(7)
- USE
- SET COLOR TO
- @ 11, 25 CLEAR TO 14, 55
- SET COLOR TO GR+/G
- @ 10, 23 CLEAR TO 13, 53
- x1 = 10
- x2 = 13
- y1 = 25
- y2 = 51
- DO box-1
- @ 11, 30 SAY '还有凭证尚未复核!'
- i = INKEY(0)
- SET COLOR TO W+/N
- @ 10, 10, 14, 55 BOX '鞍鞍鞍鞍鞍'
- RETU
- ENDI
- LOCA ALL FOR zy='结转利润'
- IF EOF()
- ?? CHR(7)
- USE
- SET COLOR TO
- @ 11, 25 CLEAR TO 14, 55
- SET COLOR TO GR+/G
- @ 10, 23 CLEAR TO 13, 53
- x1 = 10
- x2 = 13
- y1 = 25
- y2 = 51
- DO box-1
- @ 11, 30 SAY '您还没有结转费用!'
- i = INKEY(0)
- SET COLOR TO W+/N
- @ 10, 10, 14, 55 BOX '鞍鞍鞍鞍鞍鞍'
- RETU
- ENDI
- HIDE POPUP pop3
- SET COLOR TO
- @ 8, 20 CLEAR TO 14, 61
- SET COLOR TO GR+/G
- @ 7, 18 CLEAR TO 13, 59
- x1 = 7
- x2 = 13
- y1 = 19
- y2 = 57
- pd = 'F'
- DO box-1
- ?? CHR(7)
- @ 8, 31 SAY '注 意:'
- @ 9, 24 SAY '在结转下月以前,请您检查本月所发生'
- @ 10, 21 SAY '的业务是否已全部入帐,如有未入帐的,请'
- @ 11, 21 SAY '先入帐,因不结转后无法追加.'
- @ 12, 24 SAY '真的结转吗? Y=结转,其他=返回' GET pd PICTURE 'x'
- READ
- IF pd<>'Y' .AND. pd<>'y'
- SET COLOR TO W+/N
- @ 7, 7, 14, 61 BOX '鞍鞍鞍鞍鞍'
- RETU
- ENDI
- cd1 = cd1+1
- IF cd1>=13
- ?? CHR(7)+CHR(7)
- SET COLOR TO N/G
- CLEA
- SET COLOR TO
- @ 7, 15 CLEAR TO 18, 64
- SET COLOR TO N/BG
- @ 5, 11 CLEAR TO 16, 60
- SET COLOR TO R+/G
- @ 2, 27 SAY '特 别 注 意 :'
- SET COLOR TO GR+/BG
- @ 6, 19 SAY '本月已是年底,在结转下年之前,请将本年所'
- @ 8, 15 SAY '发生的业务全部入帐,如有需要调帐的,也应将其'
- @ 10, 15 SAY '入帐. 一旦结转下年度,将无法调整本年数字,请'
- @ 12, 15 SAY '谨慎处理!'
- pd = 'N'
- @ 14, 20 SAY '真的入帐完了吗?(y/n)' GET pd
- READ
- IF pd<>'y' .AND. pd<>'Y'
- CLOS DATABASES
- SET COLOR TO W+/B
- @ 0, 0, 23, 79 BOX '北北北北'
- SET COLOR TO W+/N
- @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
- @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG
- @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5) 黄朝生研制 版权所有 南宁市建政路51号 邮编:530023 ' COLOR R/W
- ON KEY LABEL Escape do Rquit
- SET CLOCK TO 23, 69
- RETU
- ENDI
- yf1 = 1
- SET COLOR TO W+/N
- @ 16, 25 SAY '正在进行数据处理......'
- x1 = 'cw'+STR(ryear, 4, 0)
- ryear = ryear+1
- ryf = 1
- pd2 = 'm1'
- cd = pd2
- x = 'cw'+STR(ryear, 4, 0)
- xx = x+'nul'
- IF .NOT. FILE(xx)
- ! md &x
- ! cd &x
- RUN md m1
- RUN md m2
- RUN md m3
- RUN md m4
- RUN md m5
- RUN md m6
- RUN md m7
- RUN md m8
- RUN md m9
- RUN md m10
- RUN md m11
- RUN md m12
- ENDI
- ! cd &x1
- RUN cd m12
- USE pzk
- REPL jzbz WITH '1' ALL
- USE
- ! cd &x
- ! cd &pd2
- ! copy &x1m12zzk.dbf >nul
- USE zzk
- DELE ALL FOR zy<>'期末及累计'
- PACK
- REPL jje WITH 0, dje WITH 0 ALL FOR '321'<>TRIM(kmdm) .AND. '322'<>TRIM(kmdm) .AND. '585'<>TRIM(kmdm)
- REPL fsl WITH 0, ssl WITH 0, fdj WITH 0, sdj WITH 0 ALL
- REPL ysl WITH 0, ydj WITH 0 ALL FOR '321'=TRIM(kmdm) .OR. '501'=TRIM(kmdm)
- REPL njye WITH 0, ndye WITH 0 ALL
- REPL njye WITH ye ALL FOR jhd='+' .AND. ye>=0
- REPL njye WITH -ye ALL FOR jhd='-' .AND. ye<0
- REPL ndye WITH ye ALL FOR jhd='-' .AND. ye>=0
- REPL ndye WITH -ye ALL FOR jhd='+' .AND. ye<0
- REPL zy WITH '期初余额' ALL
- LOCA ALL FOR '215'$kmdm
- a1 = ye
- USE
- ! copy &x1m12mxk.dbf >nul
- USE mxk
- DELE ALL FOR zy<>'期末及累计'
- PACK
- REPL jje WITH 0, dje WITH 0 ALL FOR '585'<>SUBSTR(kmdm, 1, 3) .AND. '321'<>SUBSTR(kmdm, 1, 3) .AND. '322'<>SUBSTR(kmdm, 1, 3)
- REPL fsl WITH 0, ssl WITH 0, fdj WITH 0, sdj WITH 0, yysl WITH 0 ALL
- REPL ysl WITH 0, ydj WITH 0 ALL FOR '321'=SUBSTR(kmdm, 1, 3) .OR. '501'=SUBSTR(kmdm, 1, 3)
- REPL ye WITH 0 ALL FOR '215'=SUBSTR(kmdm, 1, 3)
- a2 = 0
- LOCA ALL FOR '2210005'$kmdm
- DO WHILE .NOT. EOF()
- a2 = a2+ye
- CONT
- ENDD
- LOCA ALL FOR '2210010'$kmdm
- a2 = a2+ye
- REPL ye WITH 0 ALL FOR '2210005'=SUBSTR(kmdm, 1, 7)
- LOCA ALL FOR '2150001'$kmdm
- REPL ye WITH a1
- LOCA ALL FOR '2210010'$kmdm
- REPL ye WITH a2
- LOCA ALL FOR '3210004'$kmdm
- x1 = jje
- x2 = dje
- x3 = ye
- REPL jje WITH 0, dje WITH 0, ye WITH 0
- LOCA ALL FOR '3210001'$kmdm
- REPL jje WITH jje+x1, dje WITH dje+x2, ye WITH ye+x3
- REPL njye WITH 0 ALL
- REPL njye WITH 0 ALL
- REPL njye WITH ye ALL FOR jhd='+' .AND. ye>=0
- REPL njye WITH -ye ALL FOR jhd='-' .AND. ye<0
- REPL ndye WITH ye ALL FOR jhd='-' .AND. ye>=0
- REPL ndye WITH -ye ALL FOR jhd='+' .AND. ye<0
- REPL zy WITH '期初余额' ALL
- USE
- ELSE
- ryf = ryf+1
- IF cd1>9
- pd2 = STR(cd1, 2, 0)
- ELSE
- pd2 = STR(cd1, 1, 0)
- ENDI
- IF (cd1-1)>9
- pd1 = 'm'+STR((cd1-1), 2, 0)
- ELSE
- pd1 = 'm'+STR((cd1-1), 1, 0)
- ENDI
- x = 'cw'+STR(ryear, 4, 0)
- pd2 = LTRIM(TRIM(pd2))
- pd2 = 'm'+pd2
- cd = pd2
- USE pzk
- REPL jzbz WITH '1' ALL
- USE
- RUN cd..
- ! cd &pd2
- ! copy &x&pd1mxk.dbf>nul
- USE mxk
- DELE ALL FOR zy<>'期末及累计'
- PACK
- REPL zy WITH '期初余额' ALL
- ! copy &x&pd1zzk.dbf>nul
- USE zzk
- DELE ALL FOR zy<>'期末及累计'
- PACK
- REPL zy WITH '期初余额' ALL
- ENDI
- cd = pd2
- CLOS DATABASES
- SET COLOR TO W+/B
- @ 0, 0, 23, 79 BOX '北北北北'
- SET COLOR TO W+/N
- @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
- @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG
- @ 24, 0 SAY ' JQ001财务管理系统(Ver2.5) 黄朝生研制 版权所有 南宁市建政路51号 邮编:530023 ' COLOR R/W
- SET CLOCK TO 23, 69
- ON KEY LABEL Escape do Rquit
- RETU
- *
