开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > OA系统 > 查看源码
userfunction.js
资源名称：OA.rar　[点击查看]
上传用户：mingda
上传日期：2017-06-20
资源大小：27691k
文件大小：9k
源码类别：

OA系统

开发平台：

Java

userfunction.js：源码内容
  1. /*用户自定义函数文件 2002.07.11
  4. */
  5. /*科目取数函数
  6. 科目取数函数共有11个参数：1）科目编码，2）年份，3）月份，4）期初/本期借方/本期贷方/期末，
  7. 5）已记帐/未记帐，6）金额/外币/数量，7）第一个辅助核算名称，8）第一个辅助核算编码，
  8. 9）第二个辅助核算名称，10）第二个辅助核算编码，11)帐套路径 
  9. 所有参数的数据类型为字符型，即数据的两边得加上双引号。其中第2，3二个参数可为空，
  10. 为空时表示取当前默认的年份和月份的数据。也可以用年-1，月-1来表示上一年，上一月。
  11. 月份这个参数支持这种格式：1,3,5-7,这表示取1,2,5,6,7这5个月的数据，
  12. 如果月份这个参数为：1-则表示取1到当前月的数据。 当前年份和当前月份是指选项窗中设置的年月。
  13. 第7，8，9，10四个参数可以省略。第11为取指定帐套路径的数据，可省略                                                                                                                                                                            例如：取101科目的1998年10月的期初: KM("101","1998","10","期初","已记帐","金额")                                                                                                                例如：取102科目的上年从年初到当前月的包括未记帐的累计借方发生额: KM("102","年-1","1-","本期借方","未记帐","金额")
  14. */
  15. function KM(fstrAccountName,sYear,sMonth,sInit,sAmount,sRegister,
  16. sAnalysisName1,sAnalysisName2,sPath){
  17. var sSql=""
  18. var sField=""
  19. var sInitField="" //计算期初的字段
  20. var sWhere=""
  21. var dblRet=0
  22. switch (sAmount){
  23. case "金额" :
  24. sField="fcurAmount"
  25. sInitField="fcurInit"
  26. break
  27. case "外币" :
  28. sField="fcurForeignAmount"
  29. sInitField="fcurForeign"
  30. break
  31. case "数量" :
  32. sField="fdblQuantity"
  33. sInitField="fdblQuantity"
  34. break
  35. default:
  36. sField="fcurAmount"
  37. sInitField="fcurInit"
  38. break
  39. }
  40. if(sInit!="本期借方" && sInit!="本期贷方" && sInit!="期初" && sInit!="期末" )
  41. sInit="本期借方"
  43. if(sInit=="本期借方") {
  44. //SQL Server 库
  45. //sField="sum(case fblnDirection when 1 then "+sField+" else 0 end)"
  46. //Access 库
  47. sField="sum(iif(fblnDirection ,"+sField+" , 0 ))"
  48. }
  49. if(sInit=="本期贷方") {
  50. //SQL Server 库
  51. //sField="sum(case fblnDirection when 0 then "+sField+" else 0 end)"
  52. //Access 库
  53. sField="sum(iif( fblnDirection , 0 , "+sField+" ))"
  54. }
  55. if(sRegister=="已记帐"){
  56. sWhere=" and fstrRegisterDesc!='' "
  57. }
  58. if(sAnalysisName1!=""){
  59. sWhere+=" and fstrAnalysisName1='"+sAnalysisName1+"' "
  60. if(sAnalysisName2!=""){
  61. sWhere+=" and fstrAnalysisName2='"+sAnalysisName2+"' "
  62. }
  63. }
  64. var arr=KmDateAct(sYear,sMonth)
  67. if(sInit=="期初" || sInit=="期末"){
  68. var sSqlInit="Select "+sInitField+" From Account Where fstrAccountName='"+fstrAccountName+"'"
  69. if(sInit=="期初"){
  70. sSql="Select "+sField+" From Voucher Inner Join VoucherDetail On Voucher.flngVoucherID=VoucherDetail.flngVoucherID "
  71. +" Where fstrAccountName='"+fstrAccountName+"' "+arr[1]+sWhere
  72. }
  73. else {
  74. sSql="Select "+sField+" From Voucher Inner Join VoucherDetail On Voucher.flngVoucherID=VoucherDetail.flngVoucherID "
  75. +" Where fstrAccountName='"+fstrAccountName+"' "+arr[2]+sWhere
  76. }
  77. var sXml=fc_select(sSqlInit,1,2)
  78.     if(sXml=="<root></root>"){
  79.      var dblRet1=0
  80.     }
  81.     else {
  82.     var oXml=new ActiveXObject("Microsoft.XMLDOM")
  83.     oXml.async="false";
  84.     oXml.loadXML(sXml)
  85.     var dblRet1=parseFloat(oXml.documentElement.childNodes(0).childNodes(0).text)
  86.     if(isNaN(dblRet1)) dblRet1=0
  87. }
  88. sXml=fc_select(sSql,1,2)
  89.     if(sXml=="<root></root>"){
  90.      var dblRet=0
  91.     }
  92.     else {
  93.     oXml.loadXML(sXml)
  94.     dblRet=parseFloat(oXml.documentElement.childNodes(0).childNodes(0).text)
  95.     if(isNaN(dblRet)) dblRet=0
  96. }
  97. dblRet+=dblRet1
  98. }
  99. else { //本期借方，本期贷方
  100. sSql="Select "+sField+" From Voucher Inner Join VoucherDetail On Voucher.flngVoucherID=VoucherDetail.flngVoucherID "
  101. +" Where fstrAccountName like '"+fstrAccountName+"%' "+arr[0]+sWhere
  102. var sXml=fc_select(sSql,1,2)
  103.     var oXml=new ActiveXObject("Microsoft.XMLDOM")
  104.     oXml.async="false";
  105.     oXml.loadXML(sXml)
  106.     dblRet=parseFloat(oXml.documentElement.childNodes(0).childNodes(0).text)
  107.     if(isNaN(dblRet)) dblRet=0
  108.     //sdfasd
  109. }
  110. return dblRet
  111. }
  112. /**
  113. //显示科目取数函数向导
  114. **/
  115. function ShowKMGuide() {
  116. if(txtMyGrid.style.display=="none") return
  117. var arySend=t.getAttribute("formula")
  118. if(arySend==null)arySend=""
  119. var strReturn=window.showModalDialog("dsnwizard.htm",arySend,"status:no;dialogHeight:350px;dialogWidth:520px;dialogTop:100;dialogLeft:150px") 
  120. if (isSpace(strReturn)==false && typeof strReturn!="undefined"){
  121. txtMyGrid.value ="="+strReturn
  122. grid.curTD.innerText=txtMyGrid.value
  123. }
  124. }
  125. /**
  126. //科目取数函数的日期处理
  127. //sYear为处理前的年字符串，sPeriod为处理前的月字符串，返回一个数组，含3个日期SQL，
  128. //(供期初，期末时区分用)
  129. **/
  130. function KmDateAct(sYear,sPeriod) {
  131. var MonthSql="" //本期借方贷方用
  132. var MonthSql1="" //期初用
  133. var MonthSql2="" //期末用
  134. var mlngYear=0
  135. var mlngPeriod=0
  136. var pYear=2002 //全局年份
  137. var pPeriod=1 //全局月份
  138. //计算全局年份,全局月份
  139. var sXml=t.getAttribute("userdata")
  140. if(sXml==null)sXml=""
  141. sXml=unescape(sXml)
  142. if(sXml!=""){
  143. var oXml=new ActiveXObject("Microsoft.XMLDOM")
  144. oXml.async ="false";
  145. oXml.loadXML(sXml)
  146. pYear =parseInt(oXml.documentElement.childNodes(3).text)
  147. pPeriod =parseInt(oXml.documentElement.childNodes(4).text)  
  148. }
  149. //--------------------------------
  150. var bFind=false
  151. //处理年
  152. if(sYear.substring(0,1)=="年") {
  153. if(sYear.length==1){
  154. mlngYear=pYear
  155. }
  156. else {
  157. var tmpYear=parseInt(sYear.substring(2,sYear.length-1))
  158. if(sYear.substring(1,2)=="-")
  159. mlngYear=pYear-tmpYear
  160. else
  161. mlngYear=pYear+tmpYear
  162. }
  164. }
  165. else {
  166. if(sYear=="")
  167. mlngYear=pYear
  168. else
  169. mlngYear=parseInt(sYear)
  170. }
  171. //处理月
  172. if(sPeriod.substring(0,1)=="月") {
  173. if(sPeriod.length==1){
  174. mlngPeriod=pPeriod
  175. }
  176. else {
  177. var tmpPeriod=parseInt(sPeriod.substring(2,sPeriod.length-1))
  178. if(sPeriod.substring(1,2)=="-")
  179. mlngPeriod=pPeriod-tmpPeriod
  180. else
  181. mlngPeriod=pPeriod+tmpPeriod
  182. }
  183. }
  184. else {
  185. if(sPeriod==""){
  186. mlngPeriod=pPeriod
  187. }
  188. else {
  189. //同时处理多个月份
  190. if(sPeriod.indexOf("-")<0 && sPeriod.indexOf(",")<0 && sPeriod.length<=2){
  191. mlngPeriod=parseInt(sPeriod)
  192. }
  193. else {
  194. if(sPeriod.substring(sPeriod.length-1,sPeriod.length)=="-")
  195. sPeriod=sPeriod+pPeriod
  196. var arr=PrintArray(sPeriod)
  197. bFind=true
  198. }
  199. }
  200. }
  201. if(bFind){
  202.     MonthSql = " AND fintYear= " +mlngYear+ " AND ( "
  203.     for(var i = 0;i< arr.length;i++ )
  204.         MonthSql +=  " fintPeriod= " +arr[i] + " OR "
  205.     //去掉尾部的OR
  206.     MonthSql = Left(MonthSql, MonthSql.length - 4) + " ) "
  207. }
  208. else {
  209. MonthSql = " AND fintYear= " +mlngYear+ " AND fintPeriod = " +mlngPeriod
  210. }
  211. MonthSql1 = " AND (fintYear<" +mlngYear+" OR (fintYear="+mlngYear+" AND fintPeriod<" +mlngPeriod+")) "
  212. MonthSql2 = " AND (fintYear<" +mlngYear+" OR (fintYear="+mlngYear+" AND fintPeriod<=" +mlngPeriod+")) "
  214. var arrRet=new Array()
  215. arrRet[0]=MonthSql
  216. arrRet[1]=MonthSql1
  217. arrRet[2]=MonthSql2
  218. return arrRet
  221. }
  222. /**
  223. //在数据库中保存表格数据的示例用的自定义函数
  224. **/
  225. function SaveCustomerTest() {
  226. //此函数实现将损益表中特写单元格中的数据保存到Customer表中
  227. var sCustomer=GETCELL(4,3)
  228. var sAnalysis1= GETCELL(6,5)
  229. var sAnalysis2= GETCELL(7,5)
  230. var sSql="insert into Customer (fstrCustomerName,fstrCustomerDesc,fstrAnalysisName1,fstrAnalysisName2) values ("
  231. +"'"+sCustomer+"','"+sCustomer+"','"+sAnalysis1+"','"+sAnalysis2+"'"+ ")"
  232. var sR=fc_insert(sSql)
  233. if(isSpace(sR)){
  234. alert("保存成功!")
  235. }
  236. else{
  237. alert(sR)
  238. }
  239. }
  240. /**
  241. *如要实现保存后的报表模版只有打印和打印预览两个功能按钮,可用下面此函数
  242. **/
  243. function SaveUserReport1(){
  244. var s1=""
  245. s1+="<root>"
  246. s1+="<button><value>打印预览</value><click>PreviewReport()</click></button>"
  247. s1+="<button><value>打印</value><click>PrintReport()</click></button>"
  248. s1+="</root>"
  249. t.setAttribute("buttonxml",s1)
  250. SaveUserReport()
  251. }
  253. /**
  254. //在数据库中保存表格数据的示例用的自定义函数
  255. **/
  256. function test_insert() {
  257. var orderid=GETCELL(1,2)
  258. var s1= GETCELL(2,2)
  259. var sSql="insert into Orders (OrderID,CustomerID) values ("
  260. +"'"+orderid+"','"+s1+"'"+ ")"
  261. var sR=fc_insert(sSql)
  262. if(isSpace(sR)){
  263. alert("保存成功!")
  264. }
  265. else{
  266. alert(sR)
  267. }
  268. }
  269. /**
  270. //在数据库中保存表格数据的示例用的自定义函数
  271. **/
  272. function test_save() {
  273. var orderid=GETCELL(1,2)
  274. var s1= GETCELL(2,2)
  275. var sSql="Update Orders Set Customerid='"+s1+ "' Where OrderID='"+orderid+"'"
  276. var sR=fc_insert(sSql)
  277. if(isSpace(sR)){
  278. alert("保存成功!")
  279. }
  280. else{
  281. alert(sR)
  282. }
  283. }
  284. /**
  285. //在数据库中保存表格数据的示例用的自定义函数
  286. **/
  287. function test_del() {
  288. var orderid=GETCELL(1,2)
  289. var s1= GETCELL(2,2)
  290. var sSql="Delete Orders Where OrderID='"+orderid+"'"
  291. var sR=fc_insert(sSql)
  292. if(isSpace(sR)){
  293. alert("保存成功!")
  294. }
  295. else{
  296. alert(sR)
  297. }
  298. }