📄 default.asp

📁 进销存软件源代码

💻 ASP

字号:

<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include file="../Common.asp" -->
<!-- #include virtual="/Server/resProductStock.asp" -->
<!-- #include virtual="/Server/resReceive.asp" -->
<HTML>
<HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><STYLE>INPUT {border:1 solid #000000}</STYLE></HEAD>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY></BODY>
<%
'dim eBP,y
'Set eBP = Server.CreateObject("NaFine.Privilege")
'y=eBP.PrivilegeTest(0,Clng(bdType),16,me)
'if CStr(y)<>"0" then err.raise 10000,"OutStock.Audit", eBP.GetLastError()

dim szErrorOut,cTotalAmount
szErrorOut=""
cTotalAmount = 0

function bdAuditTitle(bdType, szTableName, rsBD)
    rsBD("Cost") = cTotalAmount
    rsBD("Auditor") = Owner
	bdAuditTitle=0
end function

function bdAuditList(bdType, szTableName, rsBD, rsBDList)
	rsBDList("AuditQuantity")=0
	rsBDList("AuditAmount")=0
	rsBDList("AuditCost")=0
	InStock rsBD("Stock"), rsBD, rsBDList
	
    cTotalAmount=cTotalAmount+rsBDList("AuditAmount")
	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 + -