【正文】 B1 IF EOF() 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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。+UPPE(PZLXQ)+39。+。+.=+39。+。+DTOC(B12)+39。+DTOC(B11)+39。+UPPE(PZLXQ)+39。+UPPE(PZLXQ)+39。+KMBM1+39。+ UPPE(PZLXQ)+39。+A12+39。+ A11 +39。 + UPPE(PZLXQ)+39。+DTOC(B12)+39。+DTOC(B11)+39。MJ KMMC1 = KMMC1+TRIM(KMMC)+/ KMDMamp。 READ ****************** * 生成科目名稱 ZW_KMMC * ****************** PARAMETERS KMDM , KMMC1 KMDM1 = KMDM2 = KMDM3 = KMDM4 = KMDM1 = SUBSTR(KMDM,1,3) DO CASE CASE LEN(TRIM(KMDM))=11 KMDM2 = SUBSTR(KMDM,1,5) KMDM3 = SUBSTR(KMDM,1,7) KMDM4 = SUBSTR(KMDM,1,9) KMDM4 = SUBSTR(KMDM,1,11) CASE LEN(TRIM(KMDM))=9 KMDM2 = SUBSTR(KMDM,1,5) 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 25 頁 共 85 頁 KMDM3 = SUBSTR(KMDM,1,7) KMDM4 = SUBSTR(KMDM,1,9) CASE LEN(TRIM(KMDM))=7 KMDM2 = SUBSTR(KMDM,1,5) KMDM3 = SUBSTR(KMDM,1,7) CASE LEN(TRIM(KMDM))=5 KMDM2 = SUBSTR(KMDM,1,5) ENDCASE MI = 1 KMMC1 = SELECT 3 DO WHILE MI=4 MJ = STR(MI,1) IF KMDMamp。 20,26 SAY 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。BH1+S IF .() ACTI WIND PZSR1 0 , 1 SAY 重號 ,按任意鍵重新輸入 WAIT DEAC WIND PZSR1 LOOP ENDIF ENDIF SELE 1 IF LEN(TRIM(BH1))4 ACTI WIND PZSR1 0 , 1 SAY 編號長度不夠 4 位 ,按任鍵重新輸入 ! WAIT DEAC WIND PZSR1 LOOP ENDIF SELECT 3 IF JFKM1= LOOP ELSE SEEK JFKM1 IF .() ACTI WIND PZSR2 0 , 1 SAY 借方科目名稱 : +TRIM(KMMC)+ 按任意鍵繼續(xù) WAIT DEAC WIND PZSR2 ENDIF IF EOF().(KMRB)=H ACTI WIND PZSR1 0 , 1 SAY 借方科目錯 ,按任意鍵重新輸入 WAIT DEAC WIND PZSR1 LOOP ENDIF ENDIF 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 19 頁 共 85 頁 I = 1 DO WHILE I=25 IF DFKM(I) MHJ2 = MHJ2+JE(I) MHJ1 = MHJ2 ENDIF I = I+1 ENDDO 15 , 61 GET MHJ1 PICTURE . READ IF MHJ1MHJ2 ACTI WIND PZSR1 0 , 1 SAY 輸入金額錯 ,按任意鍵繼續(xù) WAIT DEAC WIND PZSR1 MHJ2 = MHJ LOOP ENDIF FLAG = 0 SELECT 3 J = 1 DO WHILE J=25 IF JE(J) IF TRIM(DFKM(J)) SEEK TRIM(DFKM(J)) IF .() MKMDM = TRIM(DFKM(J)) KMMC1 = DO ZW_KMMC WITH MKMDM , KMMC1 IF LEN(TRIM(KMMC1))0 ACTI WIND PZSR2 0 , 1 SAY 貸方科目名稱 : +TRIM(KMMC1)+ 按任意 鍵繼續(xù) WAIT DEAC WIND PZSR2 ENDI ENDIF IF EOF().(KMRB)=H FLAG = 1 EXIT ENDIF ENDIF ENDIF J = J+1 ENDDO 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 20 頁 共 85 頁 IF FLAG=1 ACTI WIND PZSR1 0 , 1 SAY TRIM(DFKM(J))+貸方科目代碼錯 ,按任意鍵重新輸入 WAIT DEAC WIND PZSR1 MHJ2 = MHJ LOOP ENDIF FLAG3 = 0 SELECT 4 I = 1 DO WHILE I=25 IF LEN(TRIM(XMH(I)))0 SEEK TRIM(XMH(I)) IF EOF() ACTI WIND PZSR1 0 , 1 SAY 編號 :+TRIM(XMH(I))+錯 ,按任意鍵重新輸入 WAIT DEAC WIND PZSR1 FLAG3 = 1 EXIT ENDIF IF LEN(TRIM(XMH(I)))LEN(TRIM(PJH)) ACTI WIND PZSR1 0 , 1 SAY 編號 :+TRIM(XMH(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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費(fèi)資源共享 ) 第 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