www.pudn.com > jq_caiwu.ARJ > CSHSR-1.PRG

 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 
*