English
PZXG.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：32k
源码类别：
企业管理
开发平台：
VFP
- HIDE POPUP pop2
- HIDE MENU mainmenu
- DEAC WINDOW win
- ON KEY
- SET SYSMENU OFF
- SET COLOR TO W/N
- CLOS DATABASES
- CLEA
- qq = 0
- js = 0
- k = 0
- sl = 0
- dw = ' '
- dj = 0
- USE pzk
- IF jzbz='1'
- ?? CHR(7)
- 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
- ENDI
- SET CLOCK TO 0, 69
- DELE ALL FOR zy='结转利润' .OR. zy='结转成本' .AND. shy='系统生成'
- PACK
- USE mxk
- DELE ALL FOR zy='本月合计' .OR. zy='期末及累计'
- PACK
- USE pzk
- SET INDEX TO pz
- REIN
- SELE 2
- USE kmk
- SELE 1
- SET COLOR TO W/N
- CLEA
- DO pzgx
- IF EOF()
- SET COLOR TO G+/GR
- @ 10, 20 CLEAR TO 14, 60
- @ 11, 30 SAY '凭证库里没有凭证,'
- @ 13, 30 SAY '按任意键返回 !'
- x = INKEY(0)
- 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
- DO pzgx
- pz = 1
- SET COLOR TO GR+/B
- @ 5, 20 CLEAR TO 14, 55
- @ 7, 26 SAY '请输入要修改的凭证号码:'
- @ 9, 34 GET pz PICTURE '9999'
- READ
- DO pzgx
- SEEK pz
- sl1 = RECNO()
- rq2 = rq
- IF EOF() .OR. shy<>' '
- ?? CHR(7)
- SET COLOR TO GR+/B
- @ 5, 20 CLEAR TO 8, 60
- @ 6, 30 SAY '对不起,凭证没有找到,'
- @ 7, 30 SAY '或已经复核,无需修改!'
- @ 8, 30 SAY '可使用查询功能查看.'
- x = INKEY(0)
- 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
- pz = 1
- GOTO 1
- pz = pzh
- LOCA ALL FOR ' '$shy
- IF EOF()
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '凭证已全部审核完毕!'
- @ 2, 4 SAY ' 无 需 修 改 !'
- pd = INKEY(0)
- DO qp
- DO pzgx
- @ 18, 0 CLEAR TO 24, 80
- ELSE
- GOTO sl1
- pz = pzh
- DO WHILE .T.
- DO WHILE .T.
- SEEK pz
- pd = shy
- IF pd<>' '
- pz = pz+1
- ELSE
- EXIT
- ENDI
- ENDD
- DO pzgx
- LOCA ALL FOR pzh=pz .AND. shy=' '
- IF EOF()
- PACK
- GOTO 1
- rq2 = rq
- pd1 = 1
- jyq = -1
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '凭证已全部修改完毕!'
- @ 2, 4 SAY ' 您 辛 苦 了 !'
- pd = INKEY(0)
- DO qp
- DO pzgx
- @ 18, 0 CLEAR TO 24, 80
- EXIT
- ENDI
- @ 2, 50 SAY ' '
- @ 2, 50 SAY '总字第'
- @ 2, 56 SAY pzh
- @ 2, 66 SAY '号'
- sl1 = RECNO()
- pz = pz+1
- SEEK pz
- IF .NOT. EOF()
- SKIP -1
- ml = RECNO()
- ELSE
- GOTO BOTTOM
- ml = RECNO()
- ENDI
- pz = pz-1
- GOTO BOTTOM
- jyq = pzh
- GOTO sl1
- DO pzgx
- @ 10, 74 SAY pds
- @ 17, 66 SAY lry
- @ 2, 30 SAY rq
- SET COLOR TO B/GR
- @ 18, 0 SAY ' '
- @ 18, 0 SAY ' PgUp上页:PgDn下页:F4下一张:F5修改一笔:F6增加:Delete删除:F10存盘:F7附件:Esc退出 '
- SET COLOR TO W/N
- GOTO BOTTOM
- @ 19, 0 CLEAR TO 24, 80
- pd = INT((ml+1-sl1)/6)
- IF INT((ml+1-sl1)/6)=(ml+1-sl1)/6
- ys = pd
- ELSE
- ys = pd+1
- ENDI
- GOTO sl1
- IF 5<=ml-sl1
- bs = 1
- DO WHILE bs<=6
- @ 18+bs, 33 SAY zy
- DO slxs
- DO kmxs
- DO fsxs
- pd1 = RECNO()
- SKIP
- bs = bs+1
- ENDD
- reof = 'f'
- IF EOF()
- reof = 't'
- x = RECNO()-1
- ELSE
- x = RECNO()
- ENDI
- DO hjxs
- GOTO x
- bs = 1
- IF reof='f'
- SKIP -6
- ELSE
- SKIP -5
- ENDI
- SET COLOR TO G/B
- @ 4, 11 SAY zy
- SET COLOR TO W/N
- DO kmxs-1
- DO fsxs-1
- DO slxs-1
- yc = 1
- ELSE
- x = RECNO()
- DO hjxs
- GOTO x
- pd = 1
- pd1 = 0
- bs = 1
- DO WHILE pd1<=ml-sl1
- @ 19+pd1, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- pd = RECNO()
- SKIP
- pd1 = pd1+1
- bs = bs+1
- ENDD
- SKIP -pd1
- SET COLOR TO G/B
- @ 4, 11 SAY zy
- SET COLOR TO W/N
- bs = 1
- DO kmxs-1
- DO fsxs-1
- DO slxs-1
- yc = 1
- ENDI
- DO WHILE .T.
- pd = INKEY(0)
- DO CASE
- CASE pd=-6
- x = RECNO()
- GOTO sl1
- SET COLOR TO RB+/B
- ?? CHR(7)
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '请输入凭证张数:' GET pds PICTURE '999'
- READ
- @ 10, 74 SAY pds
- DO qp
- GOTO x
- CASE pd=7
- bs2 = bs
- IF .NOT. EOF() .AND. .NOT. ml<=sl1
- x = RECNO()
- IF x=ml
- x = x-1
- IF bs=1
- bs2 = 6
- ELSE
- bs2 = bs-1
- ENDI
- ENDI
- ml = ml-1
- DELE
- PACK
- ELSE
- SET COLOR TO RB+/B
- ?? CHR(7)
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '第一笔,请勿删除!'
- i = INKEY(0)
- DO qp
- ENDI
- qq = 1
- pd = INT((ml+1-sl1)/6)
- IF INT((ml+1-sl1)/6)=(ml+1-sl1)/6
- ys = pd
- ELSE
- ys = pd+1
- ENDI
- IF yc>ys
- yc = yc-1
- ENDI
- DO pzgx
- DO hjxs
- @ 19, 0 CLEAR TO 25, 81
- GOTO sl1+(yc-1)*6
- pd = RECNO()
- IF ml-pd>=6
- pd1 = 6
- ELSE
- pd1 = ml-pd+1
- ENDI
- bs = 1
- DO WHILE bs<=pd1
- @ 18+bs, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- pd = RECNO()
- IF pd<>ml
- SKIP
- bs = bs+1
- ELSE
- EXIT
- ENDI
- ENDD
- GOTO x
- bs = bs2
- @ 4, 11 SAY zy
- SET COLOR TO G/B
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO kmxs-1
- DO fsxs-1
- DO slxs-1
- CASE pd=-5
- CLOS INDEX
- qq = 1
- ml = ml+1
- slk = sl1
- INSE BLANK
- x = RECNO()
- REPL rq WITH rq2
- REPL pzh WITH pz
- SET COLOR TO N/W
- SELE 1
- pd = zzkm
- SET COLOR TO N/W
- pd = SUBSTR(pd, 1, 14)
- @ 7+bs, 2 SAY pd
- pd = mxkm
- pd = SUBSTR(pd, 1, 18)
- @ 7+bs, 18 SAY pd
- SET COLOR TO W/N
- @ 7+bs, 42 SAY jje
- @ ROW(), 58 SAY dje
- DO pzxg-1
- SELE 1
- SET INDEX TO pz
- REIN
- GOTO x-1
- sl1 = slk
- pd = INT((ml+1-sl1)/6)
- IF INT((ml+1-sl1)/6)=(ml+1-sl1)/6
- ys = pd
- ELSE
- ys = pd+1
- ENDI
- rbs = bs
- DO hjxs
- @ 19, 0 CLEAR TO 25, 81
- GOTO sl1+(yc-1)*6
- pd = RECNO()
- IF ml-pd>=6
- pd1 = 6
- ELSE
- pd1 = ml-pd+1
- ENDI
- bs = 1
- DO WHILE bs<=pd1
- @ 18+bs, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- pd = RECNO()
- IF pd<>ml
- SKIP
- bs = bs+1
- ELSE
- EXIT
- ENDI
- ENDD
- GOTO x-1
- bs = rbs
- @ 4, 11 SAY zy
- SET COLOR TO G/B
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO kmxs-1
- DO fsxs-1
- DO slxs-1
- ENDI
- CASE pd=1
- DO jsq-1
- CASE pd=5
- pd = RECNO()
- IF pd=sl1 .OR. bs=1 .OR. bs=0
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '这是本页第一笔,'
- @ 2, 5 SAY '按任意键继续......'
- ?? CHR(7)
- pd = INKEY(0)
- DO qp
- ELSE
- @ 18+bs, 33 SAY zy
- DO fsxs
- DO kmxs
- DO slxs
- bs = bs-1
- SKIP -1
- @ 4, 11 SAY zy
- SET COLOR TO G/B
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO slxs-1
- DO kmxs-1
- DO fsxs-1
- ENDI
- CASE pd=24
- pd = RECNO()
- IF pd=sl1+ys*6 .OR. pd=ml .OR. bs=6
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '这是本页最后一笔,'
- @ 2, 5 SAY '按任意键继续......'
- ?? CHR(7)
- pd = INKEY(0)
- DO qp
- ELSE
- SET COLOR TO W/N
- @ 18+bs, 33 SAY zy
- DO kmxs
- DO slxs
- SET COLOR TO W/N
- DO fsxs
- bs = bs+1
- pd1 = RECNO()
- IF pd1<ml
- SKIP 1
- ENDI
- @ 4, 11 SAY zy
- SET COLOR TO G/B
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO slxs-1
- DO kmxs-1
- DO fsxs-1
- ENDI
- CASE pd=3
- IF yc=ys
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '这是本凭证最后一页,'
- @ 2, 4 SAY '按任意键继续......'
- ?? CHR(7)
- pd = INKEY(0)
- DO qp
- ELSE
- DO pzgx
- DO hjxs
- @ 19, 0 CLEAR TO 25, 81
- GOTO sl1+yc*6
- pd = RECNO()
- IF ml-pd>=6
- pd1 = 6
- ELSE
- pd1 = ml-pd+1
- ENDI
- bs = 1
- DO WHILE bs<=pd1
- @ 18+bs, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- pd = RECNO()
- IF pd<>ml
- SKIP
- bs = bs+1
- ELSE
- EXIT
- ENDI
- ENDD
- yc = yc+1
- SKIP -bs+1
- bs = 1
- @ 4, 11 SAY zy
- SET COLOR TO G/B
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO kmxs-1
- DO fsxs-1
- DO slxs-1
- ENDI
- CASE pd=18
- IF yc=1
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '这是本凭证第一页,'
- @ 2, 4 SAY '按任意键继续......'
- ?? CHR(7)
- pd = INKEY(0)
- DO qp
- ELSE
- DO pzgx
- DO hjxs
- @ 19, 0 CLEAR TO 25, 81
- yc = yc-1
- GOTO sl1+yc*6-6
- bs = 1
- DO WHILE bs<=6
- @ 18+bs, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- SKIP
- bs = bs+1
- ENDD
- SKIP -6
- @ 4, 11 SAY zy
- bs = 1
- SET COLOR TO G/B
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO kmxs-1
- DO fsxs-1
- DO slxs-1
- bs = 1
- ENDI
- CASE pd=-4
- qq = 1
- jyq = RECNO()
- @ 4, 11 GET zy VALID _zy()
- READ
- @ 4, 11 SAY zy
- @ 18+bs, 33 SAY zy
- pd = kmdm
- ysk = ys
- bs1 = bs
- DO km.prg
- bs = bs1
- DO kmxs
- pd = slbz
- pd2 = pd
- IF pd='2'
- IF '13k5'=SUBSTR(TRIM(kmdm), 1, 3)
- hh = 0
- zj = '1'
- DO slsr
- ys = ysk
- ELSE
- ? CHR(7)
- pd1 = 'F'
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '输入数量吗?' GET pd1
- READ
- DO qp
- IF pd1='y' .OR. pd1='Y'
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '规格:'
- @ 2, 3 SAY '数量:'
- @ 3, 3 SAY '单价:'
- SET COLOR TO W/N
- @ 1, 9 GET gg PICTURE 'xxxxxxxxxxxx'
- @ 2, 9 GET sl PICTURE '99999999.999'
- @ 3, 9 GET dj PICTURE '999999999.99'
- READ
- pd1 = sl
- pd = dj
- pd1 = pd1*pd
- DO WHILE .T.
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '发生额是借方或贷方?'
- @ 2, 5 SAY ' (+)=借 (-)=贷'
- pd = INKEY(0)
- DO qp
- DO CASE
- CASE pd=43
- @ 18+bs, 2 SAY gg
- @ 18+bs, 10 SAY sl
- @ 18+bs, 21 SAY dj
- REPL ssl WITH sl
- REPL sdj WITH dj
- REPL fsl WITH 0
- REPL fdj WITH 0
- EXIT
- CASE pd=45
- @ 18+bs, 2 SAY gg
- @ 18+bs, 10 SAY sl
- @ 18+bs, 21 SAY dj
- REPL fsl WITH sl
- REPL fdj WITH dj
- REPL ssl WITH 0
- REPL sdj WITH 0
- EXIT
- OTHE
- ?? CHR(7)
- ENDC
- ENDD
- IF '135'=SUBSTR(ALLTRIM(kmdm), 1, 3)
- REPL yysl WITH 0
- ?? CHR(7)
- SET COLOR TO GR+/G
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 2 SAY '是否作购进或销售数?'
- rx = 'Y'
- @ 2, 2 SAY 'Y=是,其他=否 '
- SET COLOR TO W+/BG
- @ 2, 16 GET rx
- READ
- IF rx<>'Y' .AND. rx<>'y'
- IF pd=43
- REPL yysl WITH sl
- ELSE
- ENDI
- ENDI
- ENDI
- DO qp
- ELSE
- pd2 = ' '
- ENDI
- ENDI
- ENDI
- SET COLOR TO N/W
- @ 7+bs, 42 SAY jje
- SET COLOR TO W/N
- k = INKEY(0)
- IF k=1
- DO jsq-1
- IF k=-7
- REPL jje WITH js
- ELSE
- @ 7+bs, 55 SAY ''
- k = INKEY(0)
- IF k=-7
- REPL jje WITH js
- ELSE
- KEYB CHR(k)
- @ 7+bs, 42 GET jje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- ELSE
- IF k=-7
- REPL jje WITH js
- ENDI
- IF k=46 .OR. k=45 .OR. k>47 .AND. k<58
- KEYB CHR(k)
- @ 7+bs, 42 GET jje PICTURE '@bz 999999999.99'
- READ
- ENDI
- ENDI
- pd = jje
- IF pd<>0
- REPL dje WITH 0
- ENDI
- IF pd<0
- SET COLOR TO R+/N
- @ 7+bs, 42 SAY jje
- SET COLOR TO W/N
- ELSE
- @ 7+bs, 42 SAY jje
- ENDI
- IF pd=0
- @ 7+bs, 42 SAY ' '
- SET COLOR TO N/W
- @ 7+bs, 58 SAY dje
- SET COLOR TO W/N
- k = INKEY(0)
- IF k=1
- DO jsq-1
- IF k=-7
- REPL dje WITH js
- ELSE
- @ 7+bs, 71 SAY ''
- k = INKEY(0)
- IF k=-7
- REPL dje WITH js
- ELSE
- KEYB CHR(k)
- @ 7+bs, 58 GET dje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- ELSE
- IF k=-7
- REPL dje WITH js
- ENDI
- IF k=46 .OR. k=45 .OR. k>47 .AND. k<58
- KEYB CHR(k)
- @ 7+bs, 58 GET dje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- pd = dje
- IF pd<>0
- REPL jje WITH 0
- ENDI
- IF pd<0
- SET COLOR TO R+/N
- @ 7+bs, 58 SAY dje
- SET COLOR TO W/N
- ELSE
- @ 7+bs, 58 SAY dje
- ENDI
- ENDI
- SET COLOR TO G+/B
- IF jje<>0
- @ 7+bs, 58 SAY ' '
- @ 7+bs, 42 SAY jje
- ELSE
- @ 7+bs, 42 SAY ' '
- @ 7+bs, 58 SAY dje
- ENDI
- x = RECNO()
- DO hjxs
- GOTO x
- CASE pd=27
- IF qq=0
- pd = -1234567
- EXIT
- ELSE
- jyq = RECNO()
- SAVE SCREEN TO pm
- jyq = RECNO()
- SET COLOR TO RB+/N
- @ 11, 30 SAY '正在处理数据,请稍候 ... ...'
- SET COLOR TO W/N
- PACK
- rkm = ' '
- LOCA ALL FOR pzh=pz .AND. LEN(RTRIM(TRIM(kmdm)))=3
- IF .NOT. EOF()
- rkm = kmdm
- ENDI
- SUM ALL FOR pzh=pz jje, dje TO a1, a2
- COUN ALL FOR pzh=pz TO a3
- IF a1=a2 .AND. a3<>1 .AND. rkm=' '
- pd = -1234567
- qq = 0
- EXIT
- ELSE
- REST SCREEN FROM pm
- IF a1<>a2 .OR. a3=1
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '凭证不平 . 请继续修改 ,'
- @ 2, 7 SAY ' 按其他键继续!'
- pd = INKEY(0)
- DO qp
- EXIT
- ELSE
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY SUBSTR(rkm, 1, 3)+'是总帐科目.不能存盘!'
- @ 2, 3 SAY '请把'+SUBSTR(rkm, 1, 3)+'换成明细科目....'
- pd = INKEY(0)
- DO qp
- GOTO jyq
- ENDI
- ENDI
- ENDI
- CASE pd=-9
- SAVE SCREEN TO pm
- jyq = RECNO()
- SET COLOR TO RB+/N
- @ 11, 30 SAY '正在处理数据,请稍候 ... ...'
- SET COLOR TO W/N
- PACK
- rkm = ' '
- LOCA ALL FOR pzh=pz .AND. LEN(RTRIM(TRIM(kmdm)))=3
- IF .NOT. EOF()
- rkm = kmdm
- ENDI
- SUM ALL FOR pzh=pz jje, dje TO a1, a2
- COUN ALL FOR pzh=pz TO a3
- IF a1=a2 .AND. a3<>1 .AND. rkm=' '
- EXIT
- ELSE
- REST SCREEN FROM pm
- IF a1<>a2 .OR. a3=1
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '凭证不平 . 请继续修改 ,'
- @ 2, 7 SAY ' 按其他键继续!'
- pd = INKEY(0)
- DO qp
- EXIT
- ELSE
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY SUBSTR(rkm, 1, 3)+'是总帐科目.不能存盘!'
- @ 2, 3 SAY '请把'+SUBSTR(rkm, 1, 3)+'换成明细科目....'
- pd = INKEY(0)
- DO qp
- GOTO jyq
- ENDI
- ENDI
- CASE pd=-3
- IF qq=0
- pz = pz+1
- EXIT
- ELSE
- jyq = RECNO()
- SAVE SCREEN TO pm
- jyq = RECNO()
- SET COLOR TO RB+/N
- @ 11, 30 SAY '正在处理数据,请稍候 ... ...'
- SET COLOR TO W/N
- PACK
- rkm = ' '
- LOCA ALL FOR pzh=pz .AND. LEN(RTRIM(TRIM(kmdm)))=3
- IF .NOT. EOF()
- rkm = kmdm
- ENDI
- SUM ALL FOR pzh=pz jje, dje TO a1, a2
- COUN ALL FOR pzh=pz TO a3
- IF a1=a2 .AND. a3<>1 .AND. rkm=' '
- EXIT
- ELSE
- REST SCREEN FROM pm
- IF a1<>a2 .OR. a3=1
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '凭证不平 . 请继续修改 ,'
- @ 2, 7 SAY ' 按其他键继续!'
- pd = INKEY(0)
- DO qp
- EXIT
- ELSE
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY SUBSTR(rkm, 1, 3)+'是总帐科目.不能存盘!'
- @ 2, 3 SAY '请把'+SUBSTR(rkm, 1, 3)+'换成明细科目....'
- pd = INKEY(0)
- DO qp
- GOTO jyq
- ENDI
- ENDI
- ENDI
- OTHE
- ?? CHR(7)
- ENDC
- ENDD
- IF pd=-1234567
- EXIT
- ENDI
- ENDD
- ENDI
- 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
- *
