📄 default.asp
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><script src="/Client/ebComm.js"></script></HEAD>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY></BODY>
<%
dim bdType,szErrorOut
bdType = 5
szErrorOut=""
dim AccountID, Owner
AccountID = Session("SALES_AccountID")
Owner = Session("SALES_Name")
dim cTotalAmount
cTotalAmount = 0
function bdAuditTitle(bdType, szTableName, rsBD)
rsBD("Cost") = cTotalAmount
bdAuditTitle=0
end function
function bdAuditList(bdType, szTableName, rsBD, rsBDList)
rsBDList("AuditCost")=rsBDList("Price")
rsBDList("AuditQuantity")=rsBDList("Quantity")
cTotalAmount=cTotalAmount+CCur(rsBDList("Amount"))
bdAuditList=0
end function
dim x,bdid,eBD
bdid=0
x=0
if IsNumeric(request("ID")) then
bdid=request("ID")
Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdAudit(bdid, CLng(bdType), me)
set eBD = Nothing
end if
%>
<script>
IClient('data','<%=x%>');
IClient('end','');
</script>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -