English
CSHSR-1.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：5k
源码类别：
企业管理
开发平台：
VFP
- SELE 1
- SET COLOR TO W/N
- DO WHILE .T.
- DO WHILE .T.
- pzh1 = ' '
- mc1 = 0
- SET COLOR TO W/N
- @ 6+pd, 0 GET pzh1 PICTURE '999999999'
- READ
- pzh1 = TRIM(pzh1)
- pzh1 = LTRIM(pzh1)
- IF LEN(pzh1)<>7 .AND. LEN(pzh1)<>9
- ?? CHR(7)
- SAVE SCREEN TO pm
- SET COLOR TO BG+/RB
- @ 4, 20 CLEAR TO 6, 60
- @ 5, 30 SAY '请输入明细科目码!'
- x = INKEY(0)
- REST SCREEN FROM pm
- ELSE
- LOCA ALL FOR pzh1$kmdm .AND. LEN(LTRIM(TRIM(pzh1)))=LEN(LTRIM(TRIM(kmdm)))
- IF .NOT. EOF()
- SELE 2
- LOCA ALL FOR pzh1$kmdm .AND. LEN(LTRIM(TRIM(pzh1)))=LEN(LTRIM(TRIM(kmdm)))
- IF .NOT. EOF()
- ?? CHR(7)
- SAVE SCREEN TO pm
- SET COLOR TO BG+/RB
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 30 SAY '本科目已存在!'
- @ 5, 30 SAY '可按F5键修改......'
- x = INKEY(0)
- REST SCREEN FROM pm
- LOOP
- ELSE
- SELE 1
- mc = kmmc
- mc1 = 1
- EXIT
- ENDI
- ELSE
- EXIT
- ENDI
- ENDI
- ENDD
- SELE 1
- IF LEN(pzh1)>3
- pd1 = SUBSTR(pzh1, 1, 3)
- LOCA ALL FOR pd1$kmdm .AND. LEN(pd1)=LEN(LTRIM(TRIM(kmdm)))
- IF EOF()
- ?? CHR(7)
- SAVE SCREEN TO pm
- SET COLOR TO BG+/RB
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 30 SAY '没有上级科目!'
- @ 5, 30 SAY '按任意键继续......'
- x = INKEY(0)
- REST SCREEN FROM pm
- LOOP
- ELSE
- bz = slbz
- jhd1 = jhd
- zzmc = kmmc
- ENDI
- IF LEN(pzh1)>7
- pd1 = SUBSTR(pzh1, 1, 7)
- LOCA ALL FOR pd1$kmdm
- IF EOF()
- SAVE SCREEN TO pm
- SET COLOR TO BG+/RB
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 30 SAY '没有上级科目!'
- @ 5, 30 SAY '按任意键继续......'
- x = INKEY(0)
- REST SCREEN FROM pm
- LOOP
- ELSE
- bz = slbz
- jhd1 = jhd
- zzmc = kmmc
- ENDI
- ENDI
- EXIT
- ENDI
- ENDD
- SET COLOR TO W/N
- @ 6+pd, 10 SAY zzmc
- IF mc1<>1
- mc = ' '
- ENDI
- @ 6+pd, 31 GET mc
- READ
- sl1 = 0
- dw1 = ' '
- dj1 = 0
- njye1 = 0
- ndye1 = 0
- IF bz='2'
- SAVE SCREEN TO pm
- SET COLOR TO G+/GR
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 26 SAY '请输入数量:' GET sl1 PICTURE '999999.999'
- SET COLOR TO W/N
- READ
- ?? CHR(7)
- SET COLOR TO BG+/RB
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 26 SAY '请输入单价:' GET dj1 PICTURE '9999999.99'
- SET COLOR TO W/N
- READ
- SET COLOR TO G+/GR
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 26 SAY '请输入单位:' GET dw1
- SET COLOR TO W/N
- READ
- REST SCREEN FROM pm
- ENDI
- ye1 = 0
- ye2 = 0
- ncye1 = 0
- ncye2 = 0
- SET COLOR TO W/N
- @ 6+pd, 53 GET ye1 PICTURE '9999999999.99'
- READ
- IF ye1=0
- SET COLOR TO W/N
- @ pd+6, 66 SAY '' GET ye2 PICTURE '9999999999.99'
- READ
- ENDI
- SET COLOR TO W/N
- @ 3, 1 GET njye1 PICTURE '99999999999.99'
- READ
- SET COLOR TO W/N
- @ 3, 22 GET ndye1 PICTURE '99999999999.99'
- READ
- SET COLOR TO W/N
- @ 3, 43 GET ncye1 PICTURE '99999999999.99'
- READ
- IF ncye1=0
- @ 3, 43 SAY ' '
- SET COLOR TO W/N
- @ 3, 62 GET ncye2 PICTURE '999999999999.99'
- READ
- ENDI
- SAVE SCREEN TO pm
- SET COLOR TO BG+/RB
- @ 3, 20 CLEAR TO 6, 60
- @ 4, 30 SAY '正 在 存 盘 !'
- @ 5, 30 SAY '请稍候 ......'
- SELE 1
- LOCA ALL FOR pzh1$kmdm .AND. LEN(LTRIM(TRIM(pzh1)))=LEN(LTRIM(TRIM(kmdm)))
- IF .NOT. EOF()
- REPL slbz WITH bz
- REPL jhd WITH jhd1
- REPL kmmc WITH mc
- ELSE
- INSE BLANK
- REPL kmdm WITH pzh1
- REPL slbz WITH bz
- REPL jhd WITH jhd1
- REPL kmmc WITH mc
- ENDI
- SELE 2
- INSE BLANK
- REPL zy WITH '期初余额'
- REPL kmdm WITH pzh1
- REPL mxkm WITH mc
- REPL zzkm WITH zzmc
- REPL jhd WITH jhd1
- REPL slbz WITH bz
- IF bz='2'
- REPL dw WITH dw1
- REPL ydj WITH dj1
- REPL ysl WITH sl1
- ENDI
- REPL njye WITH ncye1
- REPL ndye WITH ncye2
- REPL jje WITH njye1
- REPL dje WITH ndye1
- IF ye1<>0
- IF jhd='+'
- REPL ye WITH ye1
- ELSE
- ye1 = -ye1
- REPL ye WITH ye1
- ENDI
- ELSE
- IF jhd='-'
- REPL ye WITH ye2
- ELSE
- ye2 = -ye2
- REPL ye WITH ye2
- ENDI
- ENDI
- x = INKEY(1)
- REST SCREEN FROM pm
- SELE 1
- RETU
- *
