lr023.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: LR023.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET TALK OFF
 SET ESCAPE OFF
 SET SAFETY OFF
 SET COLOR OF SCHEME 3 TO RGB( 0 , 0 , 0 , 192 , 192 , 192) ,  ;
       W+/BG,GR/BG,GR/BG,GR+/B,GR+/B,GR+/W,R+/N,N/N,W/N,N+/N
 DEFINE WINDOW QWIN FROM 1 , 1 TO 32 , 105 TITLE '        查询数据  '
 MOVE WINDOW QWIN CENTER 
 DAX = ''
 IF  .NOT. USED('BLK')
 USE IN 0 LIB\BLK.DAT
 ENDIF 
 SELECT BLK
 FOR N = 1 TO M_LS
 LOCATE FOR BH = M_BH AND FIELD_NAME = 'da' + LTRIM(STR(N))
 DAX =  ;
      DAX + (',da' + LTRIM(STR(N)) + ':H=' + CHR(34) + LTRIM(STR(N)) + '.' + LHY + CHR(34) +  ;
':R' + ':P=' + CHR(34) + '9,999,999,999,999.99' + CHR(34))
 ENDFOR 
 SELECT (XMKNAME)
 INDEX ON XMDH TO XMTMP
 SELECT (BDATNAME)
 IF SELE11 = 2
 LOCATE FOR DQDH = M_DQDH AND BLX1 = M_BLX1 AND BLX2 = M_BLX2
 ENDIF 
 IF SELE11 = 3
 LOCATE FOR DQDH = YUE AND BLX1 = M_BLX1 AND BLX2 = M_BLX2
 ENDIF 
 IF SELE11 = 4
 LOCATE FOR ALLTRIM(XMDH) == ALLTRIM(M_XMDH) AND BLX1 = M_BLX1 AND BLX2 = M_BLX2
 ENDIF 
 IF EOF()
 IF SELE11 = 2 .OR. SELE11 = 4
 WAIT WINDOW '无' + LTRIM(STR(M_DQDH)) + '地区数据'
 ENDIF 
 IF SELE11 = 3
 WAIT WINDOW '无' + YEU + '汇总数据'
 ENDIF 
 USE 
 SELECT BLK
 USE 
 SELECT (XMKNAME)
 USE 
 RETURN 
 ENDIF 
  SET RELATION TO XMDH INTO XM&M_BH
 DEFINE WINDOW CCC FROM 1 , 1 TO 31 , 105 FLOAT DOUBLE
 MOVE WINDOW CCC CENTER 
 ACTIVATE WINDOW CCC
  BROW FIELDS XM&M_BH->XMDH:H="代  号":R:W=.F., XM&M_BH->XMMC:35:H="项目名称":R:W=.F. &DAX  FOR DQDH=m_dqdh and  LEN(LTRIM(RTRIM(XM&M_BH->XMMC)))#0  AND BLX1=m_blx1 AND BLX2=m_blx2  title "  数据查询--" +IIF(len(allt(xsyk))<>0,xsbm+"--"+xsyk,xsbm)+"--"+xslx+"--"+xsdq+"-----按 Esc 键退出" nomenu noappend  noedit  nodele
 CLEAR WINDOW
 RELEASE WINDOW QWIN
 SELECT (XMKNAME)
 USE 
 SELECT BLK
 USE 
 SELECT (BDATNAME)
 USE 
 DELETE File XMTMP.IDX
 RETURN 
*