English
PZSR.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：49k
源码类别：
企业管理
开发平台：
VFP
- HIDE POPUP pop2
- HIDE MENU mainmenu
- DEAC WINDOW win
- SET SYSMENU OFF
- ON KEY
- SET COLOR TO W/N
- CLOS DATABASES
- CLEA
- SET PATH TO C:hcshwq
- IF .NOT. FILE('pzk.dbf')
- RUN copy cwpzk-1.dbf pzk.dbf>nul
- ENDI
- SET PATH TO cw
- SELE 4
- USE sl
- SELE 1
- 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
- GOTO BOTTOM
- pd = pzh
- SUM ALL FOR pzh=pd jje TO a1
- SUM ALL FOR pzh=pd dje TO a2
- IF a1<>a2
- DELE ALL FOR pzh=pd
- PACK
- ENDI
- DELE ALL FOR (zy='结转利润' .OR. zy='结转成本') .AND. shy='系统生成'
- PACK
- USE mxk
- DELE ALL FOR zy='本月合计' .OR. zy='期末及累计'
- PACK
- USE pzk
- SELE 2
- USE cwkmk
- SELE 1
- DO WHILE .T.
- k = 0
- js = 0
- ys = 0
- yc = 0
- a1 = 0
- a2 = 0
- bs = 0
- sl11 = 0
- ml = 0
- pd = 0
- pd1 = 0
- jsq = 0
- mc = 0
- pz = 0
- bh = 0
- sl = 0
- dj = 0
- GOTO BOTTOM
- pz = pzh
- pz = pz+1
- zy1 = ' '
- IF pz=1
- sl11 = RECNO()
- ELSE
- sl11 = RECNO()
- sl11 = sl11+1
- ENDI
- ml = sl11-1
- bh = 1
- SET COLOR TO W/N
- CLEA
- DO pzgx
- SET COLOR TO BG/N
- @ 18, 0 CLEAR TO 24, 80
- SET COLOR TO BG/B
- @ 19, 0, 24, 78 BOX '='
- SET COLOR TO W/N
- @ 20, 1 SAY ' 1.输入时,按F6键追加一笔,按F5键修改.若想放弃正在输入的一笔,只要让'
- @ 20, 68 SAY '借贷两方的'
- @ 21, 1 SAY '金额为零即可.若想放弃正在输入的凭证,只要让借贷两方的金额'
- @ 21, 57 SAY '不平就行了.'
- @ 22, 4 SAY '2.凭证一旦入库.则只能修改,不能追加和删除了.修改后,即使'
- @ 22, 58 SAY '借贷两方金额均为零,'
- @ 23, 1 SAY '系统也会将其保留.'
- SET COLOR TO N/G
- @ 2, 1 SAY rdwmc
- pd = rq1
- @ 2, 30 SAY pd
- @ 2, 50 SAY '总字第'
- pz = STR(pz)
- @ 2, 56 SAY pz+'号'
- @ 17, 66 SAY czy
- pz = VAL(pz)
- ? CHR(7)
- ps = 0
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '请输入凭证张数:' GET ps PICTURE '999'
- READ
- @ 10, 74 SAY ps PICTURE '999'
- DO qp
- SET COLOR TO B/GR
- @ 18, 0 SAY ' Home计算器: F5修改 : F6增加 : F8 取计算结果: F10存盘 '
- SET COLOR TO W/N
- DO WHILE .T.
- pd = INKEY(0)
- DO CASE
- CASE pd=-9
- SAVE SCREEN TO pm
- 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 '凭证不平.按 Esc 键放弃,'
- @ 2, 7 SAY ' 按其他键继续!'
- pd = INKEY(0)
- DO qp
- IF pd=27
- DELE FOR pzh=pz
- PACK
- EXIT
- ENDI
- 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)
- IF pd=27
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '本张凭证已被删除!'
- DELE FOR pzh=pz
- PACK
- EXIT
- ENDI
- DO qp
- ENDI
- ENDI
- CASE pd=1
- DO jsq-1
- CASE pd=-4
- IF ml<sl11
- ?? CHR(7)
- SET COLOR TO BG+/GR
- @ 7, 20 CLEAR TO 9, 60
- @ 8, 30 SAY '本凭证无数据,返回!'
- pd = 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
- SET COLOR TO B/GR
- @ 18, 0 SAY ' '
- @ 18, 2 SAY '↑上笔:↓下笔:PgUp上页:PgDn下页:F5修改:DeLete 删除一笔:F7附件:Esc退出修改'
- SET COLOR TO W/N
- GOTO BOTTOM
- @ 19, 0 CLEAR TO 24, 80
- pd = INT((ml+1-sl11)/6)
- IF INT((ml+1-sl11)/6)=(ml+1-sl11)/6
- ys = pd
- ELSE
- ys = pd+1
- ENDI
- GOTO sl11
- IF 5<=ml-sl11
- bs = 1
- DO WHILE bs<=6
- @ 18+bs, 33 SAY zy
- SET COLOR TO W/N
- DO slxs
- DO kmxs
- DO fsxs
- pd1 = RECNO()
- SKIP
- bs = bs+1
- ENDD
- bs = 1
- SKIP -6
- 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
- pd = 1
- pd1 = 0
- bs = 1
- DO WHILE pd1<=ml-sl11
- @ 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=1
- DO jsq-1
- CASE pd=-6
- SET COLOR TO RB+/B
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 5 SAY '请输入凭证张数:' GET pds
- READ
- DO qp
- @ 10, 74 SAY pds
- CASE pd=5
- pd = RECNO()
- IF pd=sl11 .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=sl11+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 sl11+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 sl11+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
- jyq = RECNO()
- @ 4, 11 GET zy VALID _zy()
- READ
- @ 4, 11 SAY zy
- @ 18+bs, 33 SAY zy
- pd = kmdm
- DO km.prg
- DO kmxs
- pd = slbz
- pd2 = pd
- IF pd='2'
- IF '1kkk35'=SUBSTR(TRIM(kmdm), 1, 3)
- hh = 0
- zj = '1'
- DO slsr
- 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 jje WITH sl*dj
- REPL dje WITH 0
- 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 dje WITH sl*dj
- REPL jje WITH 0
- 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 9999999999.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
- @ 7+bs, 58 SAY ' '
- SET COLOR TO W/N
- ELSE
- @ 7+bs, 42 SAY jje
- @ 7+bs, 58 SAY ' '
- 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
- pd = jje
- pd1 = dje
- IF pd=0 .AND. pd1=0
- ? CHR(7)
- ? CHR(7)
- ? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '此笔为零.按任意键后,'
- @ 2, 4 SAY '再按DeLete键删除它!'
- @ 3, 10 SAY '▲'
- DO WHILE .T.
- SET COLOR TO BG+/N
- @ 3, 10 SAY '▲'
- pd = INKEY(0.3)
- ? CHR(7)
- IF pd<>0
- EXIT
- ENDI
- @ 3, 10 SAY '△'
- pd = INKEY(0.3)
- IF pd<>0
- EXIT
- ENDI
- ENDD
- DO qp
- DO hjxs
- ENDI
- DO hjxs
- PACK
- GOTO jyq
- CASE pd=7
- pd = RECNO()
- IF pd=sl11
- ? CHR(7)
- ? CHR(7)
- ? CHR(7)
- ? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '第一笔,请勿删除.'
- @ 2, 6 SAY '可以修改!'
- pd = INKEY(0)
- DO qp
- ELSE
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 6 SAY '正在删除一笔,'
- @ 2, 7 SAY '稍候...... '
- xx = RECNO()
- DELE
- PACK
- DO qp
- IF bs=6
- @ 4, 11 SAY ' '
- @ 7+bs, 2 SAY ' '
- @ 7+bs, 18 SAY ' '
- @ 7+bs, 42 SAY ' '
- @ 7+bs, 58 SAY ' '
- @ 18+bs, 0 SAY ' '
- ELSE
- @ 4, 11 SAY ' '
- @ 7+bs, 2 CLEAR TO 13, 15
- @ 7+bs, 18 CLEAR TO 13, 39
- @ 7+bs, 42 CLEAR TO 13, 55
- @ 7+bs, 58 CLEAR TO 13, 70
- @ 18+bs, 0 CLEAR TO 24, 80
- ENDI
- DO hjxs
- bh = bh-1
- ml = ml-1
- IF xx<=ml
- GOTO xx
- ELSE
- bs = bs-1
- GOTO BOTTOM
- ENDI
- pd = RECNO()
- IF pd=ml
- IF bs=0
- ys = ys-1
- SKIP -5
- yc = yc-1
- bs = 1
- DO WHILE bs<=6
- @ 18+bs, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- pd1 = RECNO()
- SKIP
- bs = bs+1
- ENDD
- bs = 1
- SKIP -6
- @ 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
- ELSE
- 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
- ELSE
- SKIP -1
- pd1 = RECNO()
- DO WHILE bs<=6
- IF pd1<ml
- SKIP 1
- ELSE
- EXIT
- ENDI
- @ 18+bs, 31 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- pd1 = RECNO()
- bs = bs+1
- ENDD
- bs = 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
- ENDI
- ENDI
- pd = INT((ml+1-sl11)/6)
- IF INT((ml+1-sl11)/6)=(ml+1-sl11)/6
- ys = pd
- ELSE
- ys = pd+1
- ENDI
- CASE pd=27
- SET COLOR TO B/GR
- @ 18, 0 SAY ' Home计算器: F5修改 : F6增加 : F8取计算结果: F10存盘 '
- SET COLOR TO W/N
- DO pzgx
- @ 19, 30 CLEAR TO 24, 81
- bs = 1
- pd = sl11+(ys-1)*6
- IF pd<=0
- GOTO 1
- ELSE
- IF EOF()
- GOTO pd-1
- ELSE
- GOTO pd
- ENDI
- ENDI
- pd = RECNO()
- DO WHILE .T.
- pd = RECNO()
- IF pd=ml+1
- EXIT
- ELSE
- DO kmxs
- DO fsxs
- bs = bs+1
- SKIP
- ENDI
- ENDD
- DO hjxs
- SET COLOR TO W/N
- @ 19, 0 CLEAR TO 24, 80
- SET COLOR TO BG/N
- @ 19, 0, 24, 78 BOX '='
- SET COLOR TO W/N
- @ 20, 4 SAY '1.输入时,按F6键追加一笔,按F5键修改.若想放弃正在输入的一笔,只要让'
- @ 20, 68 SAY '借贷两方的'
- @ 21, 1 SAY '金额为零即可.若想放弃正在输入的凭证,只要让借贷两方的金额'
- @ 21, 57 SAY '不平就行了.'
- @ 22, 4 SAY '2.凭证一旦入库.则只能修改,不能追加和删除了.修改后,即使'
- @ 22, 58 SAY '借贷两方金额均为零,'
- @ 23, 1 SAY '系统也会将其保留.'
- EXIT
- OTHE
- ?? CHR(7)
- ENDC
- ENDD
- CASE pd=-5
- SET COLOR TO B/GR
- @ 18, 1 SAY ' '
- @ 18, 0 SAY ' Home计算器: F5修改 : F6增加 : F8取计算结果: F10存盘 '
- SET COLOR TO W/N
- IF INT(bh/7)=bh/7
- DO pzgx
- bh = 1
- SET COLOR TO B/GR
- @ 18, 0 SAY ' Home计算器: F5修改 : F6增加 : F8取计算结果: F10存盘 '
- SET COLOR TO W/N
- ENDI
- bh = bh+1
- ml = ml+1
- APPE BLANK
- GOTO BOTTOM
- REPL pzh WITH pz
- REPL rq WITH rq1
- REPL lry WITH czy
- REPL pds WITH ps
- REPL zy WITH zy1
- @ 6+bh, 42 SAY jje
- @ ROW(), 58 SAY dje
- @ 4, 11 GET zy1 VALID _zy()
- READ
- @ 4, 11 SAY zy1
- REPL zy WITH zy1
- DO km
- SELE 1
- pd = zzkm
- SET COLOR TO W/N
- pd = SUBSTR(pd, 1, 14)
- @ 6+bh, 2 SAY pd
- pd = mxkm
- pd = SUBSTR(pd, 1, 18)
- @ 6+bh, 18 SAY pd
- SET COLOR TO W/N
- pd = slbz
- pd2 = pd
- IF pd='2'
- IF '1k35kkkk'=SUBSTR(TRIM(kmdm), 1, 3)
- hh = 0
- zj = '1'
- DO slsr
- 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 '单价:'
- gg = ' '
- sl = 0
- dj = 0
- 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
- REPL ssl WITH sl
- REPL sdj WITH dj
- REPL jje WITH sl*dj
- EXIT
- CASE pd=45
- REPL fsl WITH sl
- REPL fdj WITH dj
- REPL dje WITH sl*dj
- EXIT
- OTHE
- ? CHR(7)
- ENDC
- ENDD
- IF '135'=SUBSTR(ALLTRIM(kmdm), 1, 3)
- ?? 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
- @ 6+bh, 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
- @ 6+bh, 55 SAY ''
- k = INKEY(0)
- IF k=-7
- REPL jje WITH js
- ELSE
- KEYB CHR(k)
- @ 6+bh, 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)
- @ 6+bh, 42 GET jje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- pd = jje
- IF pd<0
- SET COLOR TO R+/N
- @ 6+bh, 42 SAY jje
- @ 6+bh, 58 SAY ' '
- SET COLOR TO W/N
- ELSE
- @ 6+bh, 42 SAY jje
- @ 6+bh, 58 SAY ' '
- ENDI
- IF pd=0
- @ 6+bh, 42 SAY ' '
- SET COLOR TO N/W
- @ 6+bh, 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
- @ 6+bh, 71 SAY ''
- k = INKEY(0)
- IF k=-7
- REPL dje WITH js
- ELSE
- KEYB CHR(k)
- @ 6+bh, 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)
- @ 6+bh, 58 GET dje PICTURE '@bz 9999999999.99'
- READ
- ENDI
- ENDI
- pd = dje
- IF pd<0
- SET COLOR TO R+/N
- @ 6+bh, 58 SAY dje
- SET COLOR TO W/N
- ELSE
- @ 6+bh, 58 SAY dje
- ENDI
- ENDI
- pd = jje
- pd1 = dje
- IF pd=0 .AND. pd1=0
- ? CHR(7)
- ? CHR(7)
- ? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 8 SAY '此笔为零,'
- @ 2, 10 SAY '放弃!'
- pd = INKEY(0)
- DO qp
- @ 4, 11 SAY ' '
- @ 6+bh, 2 SAY ' '
- @ 6+bh, 18 SAY ' '
- @ 6+bh, 42 SAY ' '
- @ 6+bh, 58 SAY ' '
- DELE
- PACK
- bh = bh-1
- ml = ml-1
- DO hjxs
- ELSE
- DO hjxs
- ENDI
- OTHE
- ?? CHR(7)
- ENDC
- ENDD
- pd = 'Y'
- ?? CHR(7)
- SET COLOR TO BG+/GR
- @ 9, 20 CLEAR TO 13, 60
- @ 10, 29 SAY '还 继 续 输 入 吗 ?'
- @ 11, 30 SAY 'Y=是,其他=否'
- @ 12, 34 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
- ENDD
- *
