📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" --><!-- #include virtual="/Server/cblib.asp" --><!-- #include file="../Common.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>
<%
sysdefinedGet = EBO_GETTOSERVER

'eboReg
eboReg 1,"RootID","RootID","","cbRSDirect"
eboReg 1,"ParentID","ID","","cbRSDirect"
eboReg 1,"Source","Organization","","cbRSDirect"
eboReg 1,"Custom","AccountID","","cbRSDirect"
eboReg 1,"Stock","Stock","","cbRSDirect"
'eboReg 1,"Operator","Operator","","cbRSDirect"
eboReg 1,"StockOp","bigint1","","cbRSDirect"
eboReg 1,"Owner","Owner","","cbRSDirect"
eboReg 1,"Date","UpdateDate","","cbRSDateToText"
eboReg 1,"Memo","BillMemo","","cbRSDirect"
eboReg 1,"Amount","Amount","","cbRSDirect"
eboReg 1,"TaxAmount","TaxAmount","","cbRSDirect"

eboReg 2,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 2,"Detail_3_","Price","","cbRSListDirect"
eboReg 2,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 2,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 2,"Detail_8_","TaxPrice","","cbRSListDirect"
eboReg 2,"Detail_9_","TaxRate","","cbRSListDirect"
eboReg 2,"Detail_10_","Amount","","cbRSListDirect"
eboReg 2,"Detail_11_","TaxAmount","","cbRSListDirect"


eboReg 11,"ParentID","ParentID","","cbRSDirect"
eboReg 11,"Amount","Amount","","cbRSDirect"
eboReg 11,"Memo","BillMemo","","cbRSDirect"
eboReg 11,"Date","BillDate","","cbRSDateCheck"
eboReg 11,"Owner","Owner","","cbRSDirect"
eboReg 11,"StockOp","bigint1","","cbRSDirect"
'eboReg 11,"Operator","Operator","","cbRSDirect"
eboReg 11,"Stock","Stock","","cbRSDirect"
eboReg 11,"Custom","Organization","","cbRSDirect"
eboReg 11,"RootID","RootID","","cbRSDirect"
eboReg 11,"Source","AccountID","","cbRSDirect"
eboReg 11,"TaxAmount","TaxAmount","","cbRSDirect"

eboReg 12,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 12,"Detail_3_","Price","","cbRSListDirect"
eboReg 12,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 12,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 12,"Detail_8_","TaxPrice","","cbRSListDirect"
eboReg 12,"Detail_9_","TaxRate","","cbRSListDirect"
eboReg 12,"Detail_10_","Amount","","cbRSListDirect"
eboReg 12,"Detail_11_","TaxAmount","","cbRSListDirect"


eboReg 21,"RootID","RootID","","cbRSDirect"
eboReg 21,"ParentID","ParentID","","cbRSDirect"
eboReg 21,"Source","Organization","","cbRSDirect"
eboReg 21,"Custom","AccountID","","cbRSDirect"
eboReg 21,"Stock","Stock","","cbRSDirect"
'eboReg 21,"Operator","Operator","","cbRSDirect"
eboReg 21,"StockOp","bigint1","","cbRSDirect"
eboReg 21,"Owner","Owner","","cbRSDirect"
eboReg 21,"Date","BillDate","","cbRSDateCheck"
eboReg 21,"Memo","BillMemo","","cbRSDirect"
eboReg 21,"Amount","Amount","","cbRSDirect"
eboReg 21,"TaxAmount","TaxAmount","","cbRSDirect"

eboReg 22,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 22,"Detail_3_","Price","","cbRSListDirect"
eboReg 22,"Detail_4_","Quantity","","cbRSListDirect"
eboReg 22,"Detail_6_","BillListMemo","","cbRSListDirect"
eboReg 22,"Detail_8_","TaxPrice","","cbRSListDirect"
eboReg 22,"Detail_9_","TaxRate","","cbRSListDirect"
eboReg 22,"Detail_10_","Amount","","cbRSListDirect"
eboReg 22,"Detail_11_","TaxAmount","","cbRSListDirect"
'End

dim szErrorOut
szErrorOut=""

dim cTotalAmount, iCount, TotalCount, ParentID
cTotalAmount = 0
iCount = 0
TotalCount = 0

'***********************************************************************************
function bdAuditTitle(bdType, szTableName, rsBD)
    rsBD("Cost") = cTotalAmount
    rsBD("Auditor") = Owner
	ParentID = rsBD("ParentID")
    IData2d 0,1
    eboGet 1, rsBD, nothing
	bdAuditTitle=0
end function

function bdAuditList(bdType, szTableName, rsBD, rsBDList)
	rsBDList("AuditCost")=rsBDList("Price")
	rsBDList("AuditQuantity")=rsBDList("Quantity")
    cTotalAmount=cTotalAmount+CCur(rsBDList("Amount"))

	eboGet 2, rsBD, rsBDList
	TotalCount=TotalCount+1
	bdAuditList=0
end function

dim eboGroup

function bdSaveTitle(bdType, bdTableName, rsBD)
    IData2d 0,eboGroup
	eboSet eboGroup, rsBD, nothing
end function

function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
	if iCount < TotalCount then
		eboSet eboGroup+1, rsBD, rsBDList
		iCount = iCount + 1
		bdSaveList = 0
	else
		bdSaveList = -1
	end if
end function
'***********************************************************************************

dim x,bdid,eBD
bdid=0
x=0
if IsNumeric(request("ID")) then
	bdid=request("ID")
	Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
	IData2d 1,2
	x = eBD.bdAudit(bdid, CLng(bdType), me)
	if CStr(x)="0" then err.raise 10000,"BuyOrderJXB.Audit", eBD.GetLastError()
	eboGroup=11
	if x<>0 and CStr(ParentID)="0" then
		IData2d 1,eboGroup+1
		x = eBD.bdSave(0, CLng(12), me)
		if CStr(x)="0" then err.raise 10000,"BuyOrderJXB.Audit", eBD.GetLastError()
		if CStr(x)="0" then
			mySetAbort
		else
			x=1
		end if
	end if
	iCount=0
	eboGroup=21
	if x<>0 then
		IData2d 1,eboGroup+1
		x = eBD.bdSave(0, CLng(15), me)
		if CStr(x)="0" then err.raise 10000,"BuyOrderJXB.Audit", eBD.GetLastError()
		if CStr(x)="0" then
			mySetAbort
		else
			x=1
		end if
	end if
	set eBD = Nothing
end if
%>
<script>
IClient('data','<%=x%>');
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -