📄 formpreview.inc
字号:
<%
'#############################################################################################
'#
'# 文件名 : formpreview.inc
'# Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'# 创建人 : BinZha
'# 日 期 : 2002-07-19
'#
'# 修改历史 : ****年**月**日 ****** 修改内容:**********************************************
'#
'# 功能描述 : 打印预览材料设备采购申请单材料设备采购申请单函数文件
'# 版 本 :
'#
'#############################################################################################
' ====================================================================================
' 实现页面生成的功能函数
' FormDetail()
' TableLink()
' TableHeader()
' TableRecords()
' FormNew()
' FormSubmit()
' FormPass()
' ====================================================================================
Function FormDetail()
dim sSQL2, crs, rs
dim sApplicant, sApplyDate, sHandler, sStatus, sSigner, sOperator, sUserName
dim pSerial, pName, pType, pUnit, pAmount
if not IsEmpty(iFormID) then
sSQL2 = "select * from T_FormList where ID = " & iFormID
set crs = New CRecordset
set rs = crs.Open(dbLocal, sSQL2)
if rs.EOF then
Server.Transfer("../common/error.asp")
Response.end
end if
'' 获取任务信息的各种数据
sApplicant = crs.GetValue("Applicant")
sApplyDate = crs.GetValue("ApplyDate")
sHandler = crs.GetValue("Handler")
sStatus = crs.GetValue("Status")
sSigner = crs.GetValue("Signer")
if sStatus = "审批通过" or sStatus = "已经领取" then sOperator = crs.GetValue("Operator")
if sStatus = "已经领取" then sUserName = crs.GetValue("UserName")
'' 普通用户不能察看别人的申请单
if not (IsOfficer() or sOperator = sEmpName) then
if sSigner <> sEmpName then
Server.Transfer("../common/error.asp")
Response.end
end if
end if
crs.Close()
FormDetail = TableHeader(sApplicant,sApplyDate) & _
TableRecords(sUserName,sHandler,sOperator,sSigner,sStatus)
FormDetail = FormDetail & _
"<form method=post name=frmSubmit action=""formpreview.asp"">" & _
"<input type=""hidden"" name=""FormAction"">" & _
"<tr class=noprint>" & _
" <input type=""hidden"" name=""id"" value=""" & iFormID & """>" & _
" <td colspan=4 align=center>" & _
" <img border=0 src=""../images/button/print.gif"" onclick=""btnPrint_OnClick()"" style=""cursor:hand""></td>" & _
"</tr>" & _
"</form>" & _
"</table>"
else
Server.Transfer("../common/error.asp")
Response.end
end if
End Function
Function TableHeader(sApplicant,sApplyDate)
TableHeader = _
"<table border=""0"" align=center>" & _
"<tr>" & _
"<td colspan=""4""><table width=""640"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & _
"<tr>" & _
"<td width=180 align=center><IMG SRC=""../images/cntelecom.gif"" BORDER=0></td>" & _
"<td align=center style=""font:20"" height=20><strong>上海市电信公司信息世界分公司<br>材料设备采购、领用单</strong></td>" & _
"</tr>" & _
"</table></td>" & _
"</tr>" & _
"<tr height=5><td colspan=""4""></td></tr>" & _
"<tr>" & _
"<td colspan=""2""><strong>申请部门： " & sApplicant & "</strong></td>" & _
"<td colspan=""2"" align=center><strong>日期： " & year(sApplyDate) & " 年 " & month(sApplyDate) & " 月 " & day(sApplyDate) & " 日 " & "</strong></td>" & _
"</tr>" & _
"<tr>" & _
"<td colspan=""4""><table width=""640"" border=""1"" cellpadding=""0"" cellspacing=""0"" bordercolor=""#000000""><tr><td><table width=""640"" border=""0"" cellpadding=""0"" cellspacing=""1"">" & _
"<tr>" & _
"<td class=tdHead align=center width=50>编号</td>" & _
"<td class=tdHead align=center width=125>材料设备名称</td>" & _
"<td class=tdHead align=center width=125>规格型号</td>" & _
"<td class=tdHead align=center width=35>单位</td>" & _
"<td class=tdHead align=center width=65>数量</td>" & _
"<td class=tdHead align=center width=50>单价</td>" & _
"<td class=tdHead align=center width=80>金额</td>" & _
"<td class=tdHead align=center width=110>备注</td>" & _
"</tr>"
End Function
Function TableRecords(sUserName,sHandler,sOperator,sSigner,sStatus)
dim sTemp : sTemp = ""
'' 获取数据库连接
dim crs : set crs = New CRecordset
dim rs : set rs = crs.open(dbLocal,sSQL)
dim iCounter : iCounter = 1
dim sID, sSerial, sName, sType, sUnit, sAmount, sDanjia, sMoney, sRemark, AllAmount, AllMoney
while not rs.EOF
sID = crs.GetValue("ID")
sSerial = crs.GetValue("Serial")
sName = crs.GetValue("Name")
sType = crs.GetValue("Type")
sUnit = crs.GetValue("Unit")
sAmount = crs.GetValue("Amount")
sDanjia = crs.GetValue("Danjia")
sMoney = crs.GetValue("Money")
sRemark = crs.GetValue("Remark")
AllAmount = AllAmount + sAmount
if sMoney <> "" then AllMoney = AllMoney + sMoney
sTemp = sTemp & _
"<tr bgcolor=white>" & _
" <td class=tdlist align=center> " & Bref(sSerial,8) & " </td>" & _
" <td class=tdlist align=center> " & Bref(sName,20) & " </td>" & _
" <td class=tdlist align=center> " & Bref(sType,20) & " </td>" & _
" <td class=tdlist align=center> " & sUnit & " </td>" & _
" <td class=tdlist align=center> " & sAmount & " </td>" & _
" <td class=tdlist align=center> " & sDanjia & " </td>" & _
" <td class=tdlist align=center> " & sMoney & " </td>" & _
" <td class=tdlist align=center> " & Bref(sRemark, 20) & " </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
crs.Close()
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
sTemp = sTemp & _
"<tr> " & _
"<td class=tdlist colspan=""4"" align=center>合 计</td>" & _
"<td class=tdlist align=center> " & AllAmount & " </td>" & _
"<td class=tdlist> </td>" & _
"<td class=tdlist align=center> " & AllMoney & " </td>" & _
"<td class=tdlist> </td>" & _
"</tr>" & _
"<tr>" & _
"<td class=tdlist colspan=""8"" align=left> 人民币（大写）： " & TranMoney(AllMoney) & "</td>" & _
"</tr>" & _
"</table></td></tr></table></td>" & _
"</tr>" & _
"<tr> " & _
"<td><strong>领用人： " & sUserName & "</strong></td>" & _
"<td><strong>申请部门负责人： " & sHandler & "</strong></td>" & _
"<td><strong>采购人： " & sOperator & "</strong></td>" & _
"<td><strong>登记人： " & sSigner & "</strong></td>" & _
"</tr>" & _
"<tr>" & _
"<td colspan=4 height=20></td>" & _
"</tr>"
TableRecords = sTemp
end Function
Function TranMoney(iMoney)
dim i, iTemp, iLen, iDot
dim sNum(9), sSig(16)
sNum(0) = "零" : sNum(1) = "壹" : sNum(2) = "贰" : sNum(3) = "叁" : sNum(4) = "肆"
sNum(5) = "伍" : sNum(6) = "陆" : sNum(7) = "柒" : sNum(8) = "捌" : sNum(9) = "玖"
sSig(1) = "元" : sSig(2) = "拾" : sSig(3) = "佰" : sSig(4) = "仟" : sSig(5) = "万" : sSig(6) = "拾"
sSig(7) = "佰" : sSig(8) = "仟" : sSig(9) = "亿" : sSig(10) = "拾" : sSig(11) = "佰"
sSig(12) = "仟" : sSig(13) = "兆" : sSig(14) = "拾" : sSig(15) = "佰" : sSig(16) = "仟"
iLen = len(iMoney)
if iLen = 0 then exit function
iDot=InStr(1,iMoney,".")
if iDot = 0 then
for i = 1 to iLen
iTemp = iTemp & sNum(mid(iMoney,i,1))
iTemp = iTemp & sSig(iLen + 1 - i)
next
iTemp = iTemp & "整"
else
for i = 1 to iDot - 1
iTemp = iTemp & sNum(mid(iMoney,i,1))
iTemp = iTemp & sSig(iDot - i)
next
iTemp = iTemp & sNum(mid(iMoney,iDot+1,1)) & "角" & sNum(mid(iMoney,iDot+2,1)) & "分"
end if
TranMoney = iTemp
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -