【正文】 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。 20,26 SAY 39。MJ KMMC1 = KMMC1+TRIM(KMMC)+/ KMDMamp。+DTOC(B12)+39。+ A11 +39。+ UPPE(PZLXQ)+39。+UPPE(PZLXQ)+39。+DTOC(B11)+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。+UPPE(PZLXQ)+39。+.=+39。+DTOC(B12)+39。+UPPE(PZLXQ)+39。+KMBM1+39。+A12+39。 + UPPE(PZLXQ)+39。+DTOC(B11)+39。 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) 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 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。 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。 RGB(150,150,150,50,50,50),RGB(150,150,150,150,0,0),RGB(150,150,150,50,50,50) DEFINE WINDOW SZ FROM 1,0 TO 23,79 FOOTER +W_TITLE+ COLOR SCHEME 13 ACTIVATE WINDOW SZ CHO=1 DO CASE CASE BAR_NUM=1 DO PZSR11 CHO=0 CASE BAR_NUM=2 DO PZSR22 CHO=0 CASE BAR_NUM=3 DO PZSR4 CHO=0 CASE BAR_NUM=5 PZLXQ=S DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=6 PZLXQ=F DO CXPZKHC1 WITH PZLXQ CASE BAR_NUM=7 PZLXQ=Z DO CXPZKHC1 WITH PZLXQ 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 16 頁 共 85 頁 CASE BAR_NUM=9 DO PZXG11 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=10 DO PZXG22 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=11 DO PZXG4 SELE 1 DELE ALL FOR JE=0 PACK CHO=0 CASE BAR_NUM=13 DO DYPZ CASE BAR_NUM=14 DO DYPZMXB1 CASE BAR_NUM=15 DO DYPZHZB ENDCASE IF CHO=0 DO PZKBF ENDIF CLEAR WINDOW SZ RETURN *: EOF: ******************* * 收款憑證輸入程序 ******************* SET TALK OFF DEFI WIND PZSR1 FROM 19,20 TO 21,60 SHAD COLO SCHE 12 DEFI WIND PZSR2 FROM 19,10 TO 21,70 SHAD COLO SCHE 14 AN = Y PUBLIC DIMENSION ZY(25) , DFKM(25) , JE(25) , XMH(25) DO WHILE UPPER(AN)=Y JFKM1 = FDJ1 = 0 BH1 = 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資源共享 ) 第 17 頁 共 85 頁 RQ1 = MRQ MRB = S DO ZWBH WITH BH1 MY = 1 MX = Y MHJ = 0 MHJ1 = 0 MHJ2 = 0 MX = Y DO WHILE UPPER(MX)=Y I = 1 DO WHILE I=25 STORE SPACE(24) TO ZY(I) DFKM(I) = SPACE(11) XMH(I) = SPACE(10) JE(I) = I = I+1 ENDDO CLEAR DO WHILE .T. CLEAR TYPE A2 = XXXXXXXXXXXXXXXX