www.pudn.com > jq_caiwu.ARJ > JZXY.PRG
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 &x1\m12\zzk.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 &x1\m12\mxk.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\&pd1\mxk.dbf>nul
USE mxk
DELE ALL FOR zy<>'期末及累计'
PACK
REPL zy WITH '期初余额' ALL
! copy &x\&pd1\zzk.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
*