xmwh.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 195 行

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 NIAN = '1998'
 YUE = '12'
 ENDIF 
 CLOSE DATABASES 
 DO WHILE .T.
 M_BH = '00'
 M_BM = ''
 M_XMDH = ' '
 M_XMMC = ''
 M_HJBZ = 0
 M_SJDW = 0
 M_DPBZ = 0
 M_LRBZ = 0
 M_YCBZ = 0
 Q_QUIT = .F.
 TBAR = 0
 DO FORM .\src\form\xmwhm
 IF Q_QUIT .OR. TBAR = 0
 EXIT 
 ENDIF 
 DO CASE 
 CASE TBAR = 1
 CLOSE DATABASES 
 DO QQQ1
 CASE TBAR = 2
 CLOSE DATABASES 
 DO QQQ2
 CASE TBAR = 3
 CLOSE DATABASES 
 DO QQQ4
 CASE TBAR = 4
 CLOSE DATABASES 
 DO QQQ5
 CASE TBAR = 5
 CLOSE DATABASES 
 DO QQQ6
 CASE TBAR = 6
 DO .\src\prg\zbwh
 CASE TBAR = 7
 CLOSE DATABASES 
 DO QQQ7
 ENDCASE 
 ENDDO 
 CLOSE DATABASES 
 RETURN 

PROCEDURE QQQ1
 IF XZBB('增加记录') = 0
 RETURN 
 ENDIF 
 USE .\lib\bzl.dat
 LOCATE FOR BH = M_BH
 M_BM = BM
 CLOSE DATABASES 
 MM_XMDH = ''
 MM_XMDHA = ''
 DO FORM .\src\form\xmwha
 RETURN 
ENDPROC
*------
PROCEDURE QQQ2
 IF XZBB('修改记录') = 0
 RETURN 
 ENDIF 
 USE .\lib\bzl.dat
 LOCATE FOR BH = M_BH
 M_BM = BM
 CLOSE DATABASES 
 MM_XMDH = ''
 MM_XMDHA = ''
 DO FORM .\src\form\xmwha
 RETURN 
ENDPROC
*------
PROCEDURE QQQ4
 IF XZBB('删除记录') = 0
 RETURN 
 ENDIF 
 USE .\lib\bzl.dat
 LOCATE FOR BH = M_BH
 M_BM = BM
 CLOSE DATABASES 
 DO FORM .\src\form\xmwha
 RETURN 
ENDPROC
*------
PROCEDURE QQQ5
 IF XZBBA() = 0
 RETURN 
 ENDIF 
 USE .\lib\bzl.dat
 LOCATE FOR BH = M_BH
 M_BM = BM
 CLOSE DATABASES 
 WAIT WINDOW NOCLEAR NOWAIT '请稍候......'
 IF M_BH = '01'
 SELECT XMDH  项目号 , SUBSTR(TRIM(XMMC),1,27)  项目名称 , IIF(HJBZ,'合计项','分  项')   ;
      合计标志 ,  ;
      IIF(SJDW = 1,'整  数',IIF(SJDW = 2,'万  台',IIF(SJDW = 9,'万  笔',IIF(SJDW = 3,'元    ',IIF(SJDW = 5,'百  元',IIF(SJDW = 6,'千  元',IIF(SJDW = 7,'万  元','百分比')))))))  ;
       数据单位 ,  ;
      IIF(HDBZ,'横向打平',' 不打平 ')  打平标志 , IIF(LRBZ,'本行录入',' 不录入 ')  录入标志 ,  ;
      IIF(YCBZ = 1,'轧借',IIF(YCBZ = 2,'轧贷',IIF(YCBZ = 3,'双方','平账')))  ;
       科目属性 INTO TABLE .\tmp\xmll FROM lib\XM01.dat
 ELSE 
  Select xmdh 项目号, substr(trim(xmmc), 1, 35) 项目名称, IIF(HJBZ, "合计项", "分  项") 合计标志,  IIF(sjdw = 1, "整  数",IIF(sjdw = 2, "万  台",IIF(sjdw = 9, "万  笔", IIF(sjdw = 3, "元    ", IIF(sjdw = 5, "百  元",IIF(sjdw = 6, "千  元", IIF(sjdw = 7, "万  元", "百分比")) ))))) 数据单位, IIF(HDBZ, "横向打平", " 不打平 ") 打平标志,  IIF(lrbz, "本行录入"," 不录入 ") 录入标志   from lib\XM&M_BH..dat into DBF .\tmp\xmll
 ENDIF 
 WAIT CLEAR
 CLOSE DATABASES 
 DO FORM .\src\form\xmwhb
 CLOSE DATABASES 
 RETURN 
ENDPROC
*------
PROCEDURE QQQ6
 IF XZBB('数据插入') = 0
 RETURN 
 ENDIF 
 USE .\lib\bzl.dat
 LOCATE FOR BH = M_BH
 M_BM = BM
 CLOSE DATABASES 
 ABC = 0
 X_XMDH = ' '
 Q_QUIT = .F.
 DO FORM .\src\form\xmwhc
 IF Q_QUIT
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 DO FORM .\src\form\xmwha
ENDPROC
*------
PROCEDURE QQQ7
 IF XZBBA() = 0
 RETURN 
 ENDIF 
 USE .\lib\bzl.dat
 LOCATE FOR BH = M_BH
 M_BM = BM
 USE .\bbbt
 GO TOP
 REPLACE B_BM WITH M_BM
 USE 
 CLOSE DATABASES 
 WAIT WINDOW NOCLEAR NOWAIT '请稍候......'
 IF M_BH = '01'
 SELECT XMDH  项目号 , SUBSTR(TRIM(XMMC),1,27)  项目名称 , IIF(HJBZ,'合计项','分  项')   ;
      合计标志 ,  ;
      IIF(SJDW = 1,'整  数',IIF(SJDW = 2,'万  台',IIF(SJDW = 9,'万  笔',IIF(SJDW = 3,'元    ',IIF(SJDW = 5,'百  元',IIF(SJDW = 6,'千  元',IIF(SJDW = 7,'万  元','百分比')))))))  ;
       数据单位 ,  ;
      IIF(HDBZ,'横向打平',' 不打平 ')  打平标志 , IIF(LRBZ,'本行录入',' 不录入 ')  录入标志 ,  ;
      IIF(YCBZ = 1,'轧借',IIF(YCBZ = 2,'轧贷',IIF(YCBZ = 3,'双方','平账')))  ;
       科目属性 INTO TABLE .\tmp\xmll FROM lib\XM01.dat
 ELSE 
  Select xmdh 项目号, substr(trim(xmmc), 1, 35) 项目名称, IIF(HJBZ, "合计项", "分  项") 合计标志,  IIF(sjdw = 1, "整  数",IIF(sjdw = 2, "万  台",IIF(sjdw = 9, "万  笔", IIF(sjdw = 3, "元    ", IIF(sjdw = 5, "百  元",IIF(sjdw = 6, "千  元", IIF(sjdw = 7, "万  元", "百分比")) ))))) 数据单位, IIF(HDBZ, "横向打平", " 不打平 ") 打平标志,  IIF(lrbz, "本行录入"," 不录入 ") 录入标志   from lib\XM&M_BH..dat into DBF .\tmp\xmll
 ENDIF 
 WAIT CLEAR
 CLOSE DATABASES 
 DO FORM .\src\form\xmwhd
 CLOSE DATABASES 
 RETURN 
ENDPROC
*------
PROCEDURE xzbb
 PARAMETER TTITL
 IF XZBBA() = 0
 RETURN 0
 ELSE 
 RETURN 1
 ENDIF 
ENDPROC
*------
PROCEDURE xzbbA
 M_BH = '00'
 DO FORM .\src\form\gong2
 IF M_BH = '00'
 CLOSE DATABASES 
 RETURN 0
 ENDIF 
 RETURN 1
ENDPROC
*------*