【正文】 (I))+錯 ,按任意鍵重新輸入 WAIT DEAC WIND PZSR1 FLAG3 = 1 EXIT ENDIF ACTI WIND PZSR2 0 , 1 SAY 名稱 :+TRIM(DWMC)+ 按任意鍵繼續(xù) WAIT DEAC WIND PZSR2 ENDIF I = I+1 ENDDO IF FLAG3=1 MHJ2 = MHJ LOOP ENDIF YN = Y ACTI WIND PZSR1 0 , 1 SAY 請檢查錄入憑證正確否 ?Y/N GET YN 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 21 頁 共 85 頁 READ IF UPPER(YN)Y MHJ2 = MHJ DEAC WIND PZSR1 LOOP ELSE MHJ = MHJ2 DEAC WIND PZSR1 EXIT ENDIF ENDDO SELECT 1 J = 1 DO WHILE J=25 IF JE(J) IF DFKM(J) APPEND BLANK REPLACE RQ WITH RQ1 , BH WITH BH1 , ZY WITH ZY(J) REPLACE KMDM WITH DFKM(J) , JE WITH JE(J) , PZRB WITH S REPLACE JD WITH D , PJH WITH XMH(J) ENDIF ENDIF J = J+1 ENDDO ACTI WIND PZSR1 STORE N TO MX 0 , 1 SAY 還有同號憑證否 Y/N? GET MX READ DEAC WIND PZSR1 IF UPPER(MX)=N APPEND BLANK REPLACE RQ WITH RQ1 , BH WITH BH1 , ZY WITH ZY(1) , KMDM WITH JFKM1 REPLACE JE WITH MHJ , PZRB WITH S , JD WITH J REPLACE FDJ WITH FDJ1 EXIT ENDIF MX = Y MY = 0 ENDDO ACTI WIND PZSR1 0 , 1 SAY 繼續(xù)輸入否 ? Y/N GET AN READ DEAC WIND PZSR1 IF UPPER(AN)Y 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 22 頁 共 85 頁 EXIT ENDIF ENDDO CLEAR RETURN *: EOF: **************** * 生成憑證號 **************** PARAMETERS MBH SET TALK OFF SELE 1 SET INDE TO DATA＼ PZKHC1 GO TOP LOCATE FOR UPPER(PZRB)=UPPER(MRB) IF EOF() SELECT 2 SET INDE TO PZK1 LOCATE FOR UPPER(PZRB)=UPPER(MRB) IF EOF() MBH = 0001 RETURN ELSE GO BOTTOM MBH = BH DO WHILE .() IF UPPER(PZRB)UPPER(MRB) SKIP 1 IF BOF() MBH = 0001 EXIT ENDIF ELSE X1 = VAL(BH) X1 = X1+1 X2 = TRIM(LTRIM(STR(X1))) DO CASE CASE LEN(X2)=1 MBH = 000+X2 CASE LEN(X2)=2 MBH = 00+X2 CASE LEN(X2)=3 MBH = 0+X2 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 23 頁 共 85 頁 CASE LEN(X2)=4 MBH=X2 ENDCASE EXIT ENDIF ENDDO RETURN ENDIF ELSE GO BOTTOM MBH = BH DO WHILE .() IF UPPER(PZRB)UPPER(MRB) SKIP 1 IF BOF() MBH = 0001 EXIT ENDIF ELSE X1 = VAL(BH) X1 = X1+1 X2 = TRIM(LTRIM(STR(X1))) DO CASE CASE LEN(X2)=1 MBH = 000+X2 CASE LEN(X2)=2 MBH = 00+X2 CASE LEN(X2)=3 MBH = 0+X2 CASE LEN(X2)=4 MBH=X2 ENDCASE EXIT ENDIF ENDDO ENDIF RETURN ****************** * 憑證輸入格式文件 * ****************** ***************** * 第一屏 * ***************** 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 24 頁 共 85 頁 17,50 SAY 39。MJ KMMC1 = KMMC1+TRIM(KMMC)+/ KMDMamp。+ A11 +39。+UPPE(PZLXQ)+39。+。B1 IF EOF() 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 30 頁 共 85 頁 ACTI WIND PZCX21 0 , 0 SAY 查無此憑證 ! 按任一鍵返回 ! WAIT DEAC WIND PZCX21 KZ1 = N RETURN ENDIF PZH1=SPACE(4) DO WHILE .() IF PZH1(I1)BH I1 = I1+1 PZH1(I1) = BH ENDIF CONTINUE ENDDO RETURN ********************** * 查詢憑證子程序 * ********************** PARA PZLXQ SELE 12 USE DATA＼ ZWKLK MDWMC=DWMC SELECT 1 J = 2 DO WHILE J=I1 LOCATE FOR BH=PZH1(J).=PZLXQ IF LOWER(PZLXQ)=S LX = 收款 ELSE IF LOWER(PZLXQ)=F LX = 付款 ELSE LX = 轉(zhuǎn)帳 ENDIF ENDIF 1 , 35 SAY LX+憑證 LINE1 = 單位 :+TRIM(MDWMC)+ +NN+年 +YY+月 +RR+日 +第 +BH+號 LINE2 = ┏━━━━━━━━━┳━━━━━━━━━━━┳━┳━━━━━━┓ LINE3 = ┃ 摘 要 ┃ 科 目 名 稱 ┃JD┃ 金 額 ┃ LINE4 = ┣━━━━━━━━━╋━━━━━━━━━━━╋━╋━━━━━━┫ 2 , 0 SAY LINE1 3 , 0。+.=+39。+UPPE(PZLXQ)+39。+A12+39。+DTOC(B11)+39。 5,16 GET JFKM1 5,36 GET RQ1 5,64 GET BH1 9,3 GET ZY(1) PICT A2 9,30 GET DFKM(1) PICT A3 9,43 GET XMH(1) PICT A5 9,60 GET JE(1) PICT A6 10,3 GET ZY(2) PICT A2 10,30 GET DFKM(2) PICT A3 10,43 GET XMH(2) PICT A5 10 ,60 GET JE(2) PICT A6 11,3 GET ZY(3) PICT A2 11,30 GET DFKM(3) PICT A3 11,43 GET XMH(3) PICT A5 11,60 GET JE(3) PICT A6 12,3 GET ZY(4) PICT A2 12,30 GET DFKM(4) PICT A3 12,43 GET XMH(4) PICT A5 12,60 GET JE(4) PICT A6 13,3 GET ZY(5) PICT A2 13,30 GET DFKM(5) PICT A3 13,43 GET XMH(5) PICT A5 13,60 GET JE(5) PICT A6 17,20 SAY 39。 用戶界面要求方便適用、美觀簡潔。 。 四、銀行對帳主程序 DEFI WIND ZHDZDSR FROM 4,30 TO 12,50 SHAD COLO SCHE 14 DO WHILE .T. ACTI WIND ZHDZDSR B1=2 0, 2 SAY 對帳單處理 1 , B1 PROMPT 錄入銀行對帳單 2 , B1 PROMPT 查詢修改對帳單 3 , B1 PROMPT 打印銀行對帳單 4, B1 PROMPT 生成銀行調(diào)節(jié)表 5 , B1 PROMPT 返 回 MENU TO YHDZ DO CASE CASE YHDZ=1 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 11 頁 共 85 頁 DO ZHSR CASE YHDZ=2 DO ZHCX CASE YHDZ=3 DEAC WIND ZHDZDSR DO ZHDY ACTI WIND ZHDZDSR CASE YHDZ=4 DEAC WIND ZHDZDSR DO SCDZD ACTI WIND ZHDZDSR CASE YHDZ=5 EXIT ENDCASE ENDDO DEAC WIND ZHDZDSR RETU 五、對帳單輸入程序 DEFI WIND ZHSR1 FROM 2,12 TO 17,68 SHAD COLO SCHE 14 DEFI WIND ZHSR2 FROM 18,20 TO 20,60 SHAD COLO SCHE 12 DEFI WIND ZHSR3 FROM 18,20 TO 20,60 SHAD COLO SCHE 14 ACTI WIND ZHSR2 MY=N 0,0 SAY 銀行對帳單數(shù)據(jù)將丟失 !繼續(xù)否 Y/N? GET