English
XJBSR.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：13k
源码类别：
企业管理
开发平台：
VFP
- PUBL m_xj, zxj, xj
- m_xj = 0
- zxj = 0
- xj = 0
- HIDE POPUP pop4
- HIDE POPUP pop4_1
- HIDE MENU mainmenu
- DEAC WINDOW win
- SET SYSMENU OFF
- ON KEY
- SET CLOCK TO 0, 69
- SET COLOR TO W/N
- CLOS DATABASES
- CLEA
- SELE 3
- USE xjllb
- SELE 4
- USE xjb
- SELE 1
- USE pzk
- SET INDEX TO pz
- REIN
- SELE 2
- USE kmk
- SELE 1
- DO pzgx
- pz = 1
- DO WHILE .T.
- DO pzgx
- SEEK pz
- sl1 = RECNO()
- IF EOF()
- ?? CHR(7)
- SET COLOR TO GR+/B
- @ 5, 20 CLEAR TO 8, 60
- @ 6, 30 SAY '对不起,凭证没有找到!'
- @ 7, 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 = 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
- @ 2, 50 SAY ' '
- @ 2, 50 SAY '总字第'
- @ 2, 56 SAY pzh
- @ 2, 66 SAY '号'
- SET COLOR TO B/GR
- @ 18, 0 SAY ' ↑上笔:↓下笔:PgUp上页:PgDn下页:F3上一张凭证:F4下一张凭证: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
- DO hjxs
- GOTO sl1
- @ 10, 74 SAY pds
- @ 2, 30 SAY rq
- @ 17, 66 SAY lry
- @ 17, 49 SAY shy
- IF 5<=ml-sl1
- bs = 1
- DO WHILE bs<=6
- @ 18+bs, 33 SAY zy
- DO slxs
- DO kmxs
- DO fsxs
- 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-sl1
- @ 19+pd1, 33 SAY zy
- DO kmxs
- DO fsxs
- DO slxs
- 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
- DO _xjbsr
- ENDI
- pdc = 24
- DO WHILE .T.
- DO CASE
- CASE pdc=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
- @ 8, 71 SAY SYS(2002)
- 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 pdc=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 '按任意键继续......'
- pdc = 3
- DO qp
- @ 13, 71 SAY SYS(2002)
- 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
- DO _xjbsr
- ENDI
- CASE pdc=3
- IF yc=ys
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 4 SAY '这是本凭证最后一页,'
- @ 2, 4 SAY '按任意键继续......'
- DO qp
- pdc = -3
- 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
- DO _xjbsr
- pdc = 24
- ENDI
- CASE pdc=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 pdc=27
- pd = -1234567
- EXIT
- CASE pdc=-2
- IF pz=1
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '这已是第一张凭证!'
- @ 2, 3 SAY '按任意键继续......'
- pd = INKEY(0)
- DO qp
- ELSE
- pz = pz-1
- EXIT
- ENDI
- CASE pdc=-3
- IF pz=jyq
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 0, 0 CLEAR TO 3, 28
- @ 1, 3 SAY '这已是最后一号凭证!'
- @ 2, 3 SAY '按任意键继续......'
- pd = INKEY(0)
- pd = -1234567
- EXIT
- DO qp
- ELSE
- pz = pz+1
- EXIT
- ENDI
- OTHE
- ?? CHR(7)
- ENDC
- ENDD
- IF pd=-1234567
- EXIT
- ENDI
- ENDD
- 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
- *
- PROC _xz
- IF sr<>'1'
- hh = RECNO()
- zd = 'A'+ALLTRIM(STR(hh))
- SELE xjb
- APPE BLANK
- REPL &zd with xj,pzh with pz
- IF m_jje<>0
- REPL jfhj WITH xj
- ELSE
- REPL dfhj WITH xj
- ENDI
- ON KEY LABEL ctrl+w
- KEYB '{ctrl+w}'
- ELSE
- ?? CHR(7)
- WAIT WINDOW TIMEOUT 2 '本项目不需输入!'
- ENDI
- RETU
- *
- PROC _quit
- zxj = m_xj
- ON KEY LABEL ctrl+w
- KEYB '{ctrl+w}'
- ON KEY LABEL escape
- RETU
- *
- PROC _xjbsr
- m_jje = jje
- m_dje = dje
- IF m_jje<>0
- zxj = m_jje
- ELSE
- zxj = m_dje
- ENDI
- pd_kmdm = SUBSTR(ALLTRIM(kmdm), 1, 3)
- IF '101'=pd_kmdm .OR. '102'=pd_kmdm .OR. '109'=pd_kmdm
- ?? CHR(7)
- DEFI WINDOW mxzye FROM 0, 14 TO 6, 48 SHADOW TITLE '现金流量表辅助系统' COLOR N/BG,GR+/B,W/G,,
- ACTI WINDOW mxzye
- IF m_jje<>0
- @ 1, 5 SAY '现金增加 元'
- ELSE
- @ 1, 5 SAY '现金减少 元'
- ENDI
- @ 1, 14 SAY zxj
- @ 2, 5 SAY '记入现金流量表吗?'
- SET COLOR TO GR+/RB, N/BG
- @ 3, 15 PROMPT ' 否 '
- @ 3, 7 PROMPT ' 是 '
- xz = 0
- MENU TO xz
- IF xz=2
- DEAC WINDOW mxzye
- ELSE
- xj = zxj
- DO WHILE zxj>0
- xj = zxj
- m_xj = zxj
- DEFI WINDOW mxzye FROM 0, 14 TO 7, 48 SHADOW TITLE '拆分金额' COLOR N/BG,GR+/B,W/G,,
- ACTI WINDOW mxzye
- ON KEY LABEL enter
- ON KEY LABEL escape ?? CHR(7)
- @ 1, 5 SAY '可拆分金额:'
- @ 1, 17 SAY zxj
- @ 4, 4 SAY '当现金金额是几笔业务组成时,要将现金拆分,分别记入现金流量表'
- @ 2, 7 SAY '本笔金额:' GET xj VALID xj>0 .AND. xj<=zxj
- READ
- zxj = zxj-xj
- DEFI WINDOW mxzye FROM 3, 7 TO 22, 65 SHADOW TITLE '现金流量表辅助生成系统' COLOR N/BG,GR+/RB,W/R,,
- ACTI WINDOW mxzye
- ON KEY LABEL enter do _xz
- ON KEY LABEL escape do _quit
- ON KEY LABEL ctrl+w ?? chr(7)
- ON KEY LABEL ctrl+q ?? chr(7)
- SELE xjllb
- IF m_jje=0
- pd_lr = '1'
- ELSE
- pd_lr = '2'
- ENDI
- BROW FOR b<>pd_lr FIELDS xm :H = '请选择记入现金流量表的项目', h :H = '行' NOAPPEND NOEDIT NODELETE
- ENDD
- DEAC WINDOW mxzye
- ON KEY
- SELE pzk
- ENDI
- ENDI
- RETU
- *
