BBDB_2.PRG
上传用户:abc1382430
上传日期:2013-01-31
资源大小:1233k
文件大小:3k
源码类别:

行业应用

开发平台:

VFP

  1. ********************************
  2. *   文件名: wjdb.prg           *
  3. *   功能:   文件打包           *
  4. *   设计:   黄朝生             *
  5. ********************************
  6. cd=space(30)
  7. *do loadsdK
  8. *---------------------------------------------------------------------
  9. if !file('jqbbnul')
  10.    sm='请将JQFAX与JQBB汇总系统安装到同一盘中!'
  11.    wait sm window
  12. endif
  13. sm=''
  14. *****************
  15. defi wind jqwin1 from 6,20 to 11,60 titl ' 输入打包报表日期 '
  16. acti wind jqwin1
  17. Ryear=0
  18. Rdate=0
  19. @2,2 say '请输入报表日期:      年    月'
  20. @ 2,18 get Ryear pict'@bz 9999'
  21. @ 2,26 get Rdate pict'@bz 99' valid(Rdate>0 .and. Rdate<13)
  22. read
  23. deac wind jqwin1
  24. if len(ltrim(str(Ryear)))<>4
  25. retu
  26. endif
  27. *@ 8,20 say '正在处理数据......'
  28. file='jqbb'+ltrim(str(Ryear))+'m'+ltrim(str(Rdate))+''
  29. pd1=0
  30. pd2=0
  31. if !file(file+'fzbhz.dbf')
  32.    ?? chr(7)
  33.   sm='  汇总资产负债表没找到!'
  34.   wait sm window
  35.   pd1=1
  36. else
  37.   pd2=1
  38. endif
  39. if !file(file+'sybhz.dbf')
  40.   ?? chr(7)
  41.   sm='  汇总损  益  表没找到!'
  42.   wait sm window
  43.   pd1=1
  44. else
  45.   pd2=1
  46. endif
  47. if !file(file+'BCMXBhz.DBF')
  48.    ?? chr(7)
  49.   sm='  汇总补充明细表没找到!'
  50.   wait sm window
  51.   pd1=1
  52. else
  53.   pd2=1
  54. endif
  55. if !file(file+'yjkbhz.dbf')
  56.    ?? chr(7)
  57.   sm='  汇总应交款项表没找到!'
  58.   wait sm window
  59.   pd1=1
  60. else
  61.   pd2=1
  62. endif
  63. if !file(file+'zzsbhz.dbf')
  64.   ?? chr(7)
  65.   sm='  汇总增值税报表没找到!'
  66.   wait sm window
  67.   pd1=1
  68. else
  69.   pd2=1
  70. endif
  71. db=1
  72. if pd1=1 .and. pd2=1
  73. defi wind jqwin1 from 6,20 to 11,60
  74. acti wind jqwin1 
  75. ?? chr(7)
  76. @1,2 say '报表没有全部找到,是否打包?'
  77. set colo to w/b,6+/bg
  78. @2,8 prom '打包'
  79. @2,14 prom '不打包'
  80. menu to pd
  81. do case
  82.    case pd=1
  83.    db=1
  84.    case pd=2 .or. pd=0
  85.    db=0
  86. endcase
  87. deac wind jqwin1
  88. endif
  89. if db=1 .and. pd2=1
  90. @ 8,20 say '正在处理数据......'
  91. ! deltree -y outdata >nul
  92. ! md outdata
  93. ***********拷贝文件
  94. if file(file+'fzbhz.dbf')
  95.   file1=file+'fzbhz.dbf'
  96.   copy file &file1 to outdatafzbhz.dbf
  97. endif
  98. if file(file+'sybhz.dbf')
  99.   file1=file+'sybhz.dbf'
  100.   copy file &file1 to outdatasybhz.dbf
  101. endif
  102. if file(file+'bcmxbhz.dbf')
  103.   file1=file+'bcmxbhz.dbf'
  104.   copy file &file1 to outdatabcmxbhz.dbf
  105. endif
  106. if file(file+'yjkbhz.dbf')
  107.   file1=file+'yjkbhz.dbf'
  108.   copy file &file1 to outdatayjkbhz.dbf
  109. endif
  110. if file(file+'zzsbhz.dbf')
  111.   file1=file+'zzsbhz.dbf'
  112.   copy file &file1 to outdatazzsbhz.dbf
  113. endif
  114. ************
  115. set path to jqfax
  116.     ! copy jqfaxyear.dbf outdata  && 记住数据日期  解包时用
  117.     use jqfaxoutdatayear
  118.     repl nf with Ryear,yf with Rdate
  119.     use
  120.    * 内存不够时,可用-M0参数打包,但不进行压缩
  121.    ! arj a -m4 outdatabb.arj outdata*.* -y
  122.   deac wind jqwin1
  123. acti wind jqwin
  124. acti wind jqfaxwin
  125. clea
  126. endif
  127. retu