lr022.prg

使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统

 DO M_SKIP
 IF  .NOT. EOF()
 IF M < 20
 M = M + 1
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ m,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 @ M , 56 SAY ''
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 ELSE 
 IF  .NOT. EOF()
 DO M_SKIP_18
 FOR N = 1 TO 18
 DO M_SKIP
 IF  .NOT. EOF()
 IF LEFT(XMDH,1) <> 'a'
 @ N + 2 , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ N + 2 , 2 SAY '      '
 ENDIF 
 @ N + 2 , 13 SAY SPACE(40)
 @ N + 2 , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ N+2,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ N + 2 , 56 SAY '                    '
 ENDIF 
 ELSE 
 EXIT 
 ENDIF 
 ENDFOR 
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ m,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 @ M , 56 SAY ''
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 ENDIF 
 ENDIF 
 ELSE 
 DO M_SKIP_1
 ENDIF 
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ m,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 @ M , 56 SAY ''
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 ENDIF 
ENDPROC
*------
PROCEDURE M_PGUP
 IF QQ = 22
 M_SHU = 0
 QQ = 11
 DAXQIN = ''
 @ M , 56 CLEAR TO M , 63
 ENDIF 
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ M,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 FOR N = 1 TO 18 + M - 2
 IF  .NOT. BOF()
 DO M_SKIP_1
 ELSE 
 EXIT 
 ENDIF 
 ENDFOR 
 M = 3
 FOR N = 1 TO 18
 IF  .NOT. EOF()
 IF LEFT(XMDH,1) <> 'a'
 @ N + 2 , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ N + 2 , 2 SAY '      '
 ENDIF 
 @ N + 2 , 13 SAY SPACE(40)
 @ N + 2 , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ N+2,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ N + 2 , 56 SAY '                    '
 ENDIF 
 DO M_SKIP
 ELSE 
 IF  .NOT. M = 3
 M = N + 1
 FOR N = 1 TO 18 - M
 @ N + M , 56 CLEAR TO N + 2 , 63
 @ N + M , 2 CLEAR TO N + 2 , 8
 @ N + M , 13 CLEAR TO N + 2 , 50
 ENDFOR 
 ENDIF 
 EXIT 
 ENDIF 
 ENDFOR 
 DO M_SKIP_18
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ M,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 @ M , 56 SAY ''
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
ENDPROC
*------
PROCEDURE M_PGDN
 IF QQ = 22
 M_SHU = 0
 QQ = 11
 DAXQIN = ''
 @ M , 56 CLEAR TO M , 63
 ENDIF 
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ M,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 IF  .NOT. EOF()
 FOR N = 1 TO 21 - M
 IF  .NOT. EOF()
 DO M_SKIP
 ELSE 
 DO M_SKIP_1
 EXIT 
 ENDIF 
 ENDFOR 
 FOR N = 1 TO 18
 @ N + 2 , 56 SAY SPACE(20)
 @ N + 2 , 2 SAY '       '
 @ N + 2 , 13 SAY SPACE(40)
 ENDFOR 
 FOR N = 1 TO 18
 IF  .NOT. EOF()
 IF LEFT(XMDH,1) <> 'a'
 @ N + 2 , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ N + 2 , 2 SAY '      '
 ENDIF 
 @ N + 2 , 13 SAY SPACE(40)
 @ N + 2 , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ N + 2 , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ N+2,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ N + 2 , 56 SAY '                    '
 ENDIF 
 DO M_SKIP
 ELSE 
 M = N + 1
 EXIT 
 ENDIF 
 ENDFOR 
 IF  .NOT. EOF()
 M = 3
 DO M_SKIP_18
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ M,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 @ M , 56 SAY ''
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 ELSE 
 DO M_SKIP_1
 SET COLOR TO W+/B
 IF M = 2
 M = 3
 ENDIF 
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 DO LRPD
 IF LRBZ = .T. AND GDBLR = 'n'
  @ M,44+12 SAY &BDATNAME->&DAX PICT m_99
 ELSE 
 @ M , 56 SAY '                    '
 ENDIF 
 @ M , 56 SAY ''
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 ENDIF 
 ENDIF 
ENDPROC
*------
PROCEDURE M_SHUZI
  IF XM&M_BH->LRBZ=.F. or  gdblr = "y" 
 WAIT WINDOW '此项不录入数据'
 ?? CHR(7)
 ELSE 
 IF M_SHU < M_LEN - 1
 M_SHU = M_SHU + 1
 QQ = 22
 DAXQIN = DAXQIN + CHR(M_TMP)
 @ M , 44 + M_SHU CLEAR TO M , 63
 SET COLOR TO W+/B
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 @ M , 56 SAY DAXQIN PICTURE 'XXXXXXXXXXXXXXXX'
 ELSE 
 ?? CHR(7)
 ENDIF 
 ENDIF 
ENDPROC
*------
PROCEDURE M_BSP
 IF M_SHU <> 0
 M_SHU = M_SHU - 1
 DAXQIN = LEFT(DAXQIN,LEN(DAXQIN) - 1)
 @ M , 56 SAY SPACE(20)
 SET COLOR TO W+/B
 @ M , 56 SAY DAXQIN
 ENDIF 
ENDPROC
*------
PROCEDURE M_ENTER
 IF QQ = 22
 QQ = 11
 M_SHU = 0
  REPLACE &BDATNAME->&DAX WITH VAL(DAXQIN)/QPP 
 DAXQIN = ''
 @ M , 56 CLEAR TO M , 63
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 IF LEFT(XMDH,1) <> 'a'
 @ M , 2 SAY XMDH PICTURE 'xxxxxx'
 ELSE 
 @ M , 2 SAY '      '
 ENDIF 
 @ M , 13 SAY SPACE(40)
 @ M , 13 SAY LTRIM(XMMC) PICTURE 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
 @ M , 56 SAY '                    '
 @ M , 56 SAY DAXQIN PICTURE 'XXXXXXXXXXXXXXXX'
 SET COLOR  TO  RGB( 0 , 0 , 0 , 192 , 192 , 192) 
 ENDIF 
 DO M_DOWN
ENDPROC
*------
PROCEDURE M_SKIP
 DO WHILE .T.
 IF  .NOT. EOF()
 SKIP 
 IF LEN(LTRIM(RTRIM(XMMC))) <> 0
 EXIT 
 ENDIF 
 ELSE 
 EXIT 
 ENDIF 
 ENDDO 
ENDPROC
*------
PROCEDURE M_SKIP_1
 DO WHILE .T.
 IF  .NOT. BOF()
 SKIP -1
 IF LEN(LTRIM(RTRIM(XMMC))) <> 0
 EXIT 
 ENDIF 
 ELSE 
 DO WHILE .T.
 IF LEN(LTRIM(RTRIM(XMMC))) = 0
 SKIP 
 ELSE 
 EXIT 
 ENDIF 
 ENDDO 
 EXIT 
 ENDIF 
 ENDDO 
ENDPROC
*------
PROCEDURE M_SKIP_18
 FOR N = 1 TO 18
 IF  .NOT. BOF()
 DO M_SKIP_1
 ELSE 
 DO WHILE .T.
 IF LEN(LTRIM(RTRIM(XMMC))) = 0
 SKIP 
 ELSE 
 EXIT 
 ENDIF 
 ENDDO 
 EXIT 
 ENDIF 
 ENDFOR 
ENDPROC
*------
PROCEDURE TCCL
 DEACTIVATE WINDOW WIN1_L
  SET RELATION  OFF INTO XM&M_BH
 SELECT (XMKNAME)
 SET INDEX TO
  USE LIB\&XMKNAME..DAT 
 SELECT (BDATNAME)
 SET INDEX TO
  USE DAT\&BDATNAME..DAT 
 DELETE File XMTMP.IDX
 DELETE File TMP.IDX
 RELEASE WINDOW WIN1_L
 SELECT (BDATNAME)
 IF FSIZE('DA' + LTRIM(STR(I))) > 6 AND UPPER(TYPE('DA' + LTRIM(STR(I)))) = 'N' AND  ;
BCZLCL = 0
 IF MESSAGEBOX('是否进行列打平？',260,'提示') = 6
 IF M_BH = '99'
 DO DPCL41
 ELSE 
 DO DPCL4
 ENDIF 
 IF M_BH = '04' AND QQQ = 6
 M_CBJS = 2
 DO CBJS
 ENDIF 
 ENDIF 
 ENDIF 
 IF M_BH <> '04'
 DO src\prg\JSCL WITH M_BH , M_BLX1 , M_BLX2 , KKK_NIAN , YUE , M_DQDH
 ENDIF 
 SET COLOR OF SCHEME 2 TO RGB( 0 , 0 , 0 , 192 , 192 , 192),RGB(0,0,0,192,192,192) ,  ;
       GR/BG,GR/BG,GR+/B,GR+/B
 BCZLCL = 0
 TC = 1
 RETURN 
ENDPROC
*------
PROCEDURE NI
 DO CASE 
 CASE M_N1 = '1'
 M_NN = '一'
 CASE M_N1 = '2'
 M_NN = '二'
 CASE M_N1 = '3'
 M_NN = '三'
 CASE M_N1 = '4'
 M_NN = '四'
 CASE M_N1 = '5'
 M_NN = '五'
 CASE M_N1 = '6'
 M_NN = '六'
 CASE M_N1 = '7'
 M_NN = '七'
 CASE M_N1 = '8'
 M_NN = '八'
 CASE M_N1 = '9'
 M_NN = '九'
 CASE M_N1 = '0'
 M_NN = '零'
 ENDCASE 
ENDPROC
*------*