zhbbbh.prg

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

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


 M_BH = '00'
 CL_YEAR = RIGHT(NIAN,2)
 DO FORM src\form\zhsbdh
 IF M_BH = '00'
 RETURN 
 ELSE 
 DO CASE 
 CASE M_BH = '01'
 M_BM = '业务状况表'
 CASE M_BH = '02'
 M_BM = '损益表'
 CASE M_BM = '03'
 M_BM = '资产负债表'
 OTHERWISE 
 M_BM = ''
 ENDCASE 
 ENDIF 
 SBDH1 = '00'
 SBDH2 = '00'
 BLX1 = '01'
 BLX2 = '01'
 BLX1_MC = '月'
 BLX2_MC = '月'
 DO FORM src\form\zhsbdh1
 IF SBDH1 == SBDH2 AND BLX1 == BLX2
 RETURN 
 ELSE 
 ENDIF 
 PA = ''
 ACTTC = 0
 DO FORM src\form\actdrv
 IF ACTTC = 0
 PA = LEFT(PA,1)
  IF ! FILE("&pa.:SB&cl_YEAR&sbdh1&m_bh..DAT")        
  WAIT WINDOW sbdh1-m_bm-"数据不存在，请拷入&pa.盘"
 ELSE 
 IF FILE('tmp\sb01.dat')
 DELETE File ('tmp\sb01.dat')
 ELSE 
 ENDIF 
  copy file("&pa.:SB&cl_year&sbdh1&m_bh..dat") to tmp\sb01.dat
 DO ZHSBDH
 ENDIF 
 ENDIF 
 WAIT CLEAR

PROCEDURE ZHSBDH
  if file("&pa.:SB&cl_year&sbdh2&m_bh..dat")
  dele file("&pa.:SB&cl_year&sbdh2&m_bh..dat")
 ELSE 
 ENDIF 
  dhandle=fcreate("&pa.:SB&cl_year&sbdh2&m_bh..dat")
 HANDLE = FOPEN('tmp\sb01.dat')
 IF HANDLE < 0
  MESSAGEBOX('没有找到原上报文件...',64,'系统提示')
 RETURN 
 ENDIF 
 CLEAR 
 SBBH_Y = ';0' - SBDH1 - '000;'
 SBBH_D = ';0' - SBDH2 - '000;'
 DO WHILE .T.
 IF EOF(HANDLE)
 EXIT 
 ENDIF 
 LINE1 = FGETS(HANDLE)
 LINE1 = STRTRAN(LINE1,SBBH_Y,SBBH_D)
 IF BLX1_MC <> BLX2_MC
 LINE1 = STRTRAN(LINE1,BLX1_MC,BLX2_MC)
 ELSE 
 ENDIF 
  FPUTS(DHANDLE,LINE1)
 IF LINE1 == ''
 EXIT 
 ENDIF 
 ENDDO 
 = FCLOSE(HANDLE)
 = FCLOSE(DHANDLE)
 WAIT CLEAR
  MESSAGEBOX('从' - SBDH1 - '地区转为' - SBDH2 - '地区的' - M_BM - '已转换！',320,'完成提示信息')
ENDPROC
*------*