default.asp

来自「进销存软件源代码」· ASP 代码 · 共 94 行

ASP

94 行

<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%
'Variable Declare
dim eBD, x, TotalCount, iCount, Amount, bdid, TaxAmount
TaxAmount = 0

iCount = 0
Amount = 0
TotalCount=CLng(GetForm("Detail_rows"))
bdid=0
if IsNumeric(GetForm("ID")) then
	bdid=Clng(GetForm("ID"))
end if
'End

'eboReg
eboReg 1, "DateFrom", "DateTime1", "", "cbRSDateCheck"
eboReg 1, "DateTo", "DateTime2", "", "cbRSDateCheck"

eboReg 1, "Date", "BillDate", "", "cbRSDateCheck"
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1, "UserID", "nvarchar1", "", "cbRSDirect"

eboReg 1, "Amount", "Amount", "", "cbLocalVariable"
eboReg 1, "TaxAmount", "TaxAmount", "", "cbLocalVariable"
eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"
eboReg 1, "Owner", "Owner", "", "cbLocalVariable"

eboReg 2, "Detail_0_", "ProductID", "", "cbRSListProductCheck"
eboReg 2, "Detail_7_", "Nvarchar1", "", "cbRSListDirect"
eboReg 2, "Detail_8_", "Nvarchar2", "", "cbRSListDirect"
eboReg 2, "Detail_9_", "Nvarchar3", "", "cbRSListDirect"
eboReg 2, "Detail_10_", "Int1", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_11_", "Int2", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_12_", "Int3", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_13_", "Int4", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_14_", "Int5", "", "cbRSListDirect"
eboReg 2, "Detail_15_", "Int6", "", "cbRSListDirect"
eboReg 2, "Detail_16_", "Int7", "", "cbRSListDirect"
eboReg 2, "Detail_17_", "Int8", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_18_", "Bigint1", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_19_", "Bigint2", "", "cbRSListCurrencyZero"
eboReg 2, "Detail_20_", "Bigint3", "", "cbRSListCurrencyZero"
'End

function bdSaveTitle(bdType, bdTableName, rsBD)
	eboSet 1, rsBD, nothing
end function

function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
	if iCount < TotalCount then
		eboSet 2, rsBD, rsBDList
		'Calculate Amount
		if IsNULL(rsBDList("Amount")) then 
			rsBDList("Amount")=0		
		else
			rsBDList("Amount")=fixFloat(rsBDList("Amount"))
			
		end if
		if iSNull(rsBDList("TaxAmount")) then
			rsBDList("TaxAmount")=0
		else
			rsBDList("TaxAmount")=fixFloat(rsBDList("TaxAmount"))
		end if
		Amount=Amount+fixFloat(rsBDList("Amount"))
		TaxAmount=TaxAmount+fixFloat(rsBDList("TaxAmount"))
		rsBDList("Quantity")=0
		'End
		iCount = iCount + 1
		bdSaveList = 0
	else
		bdSaveList = -1
	end if
end function

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdSave(bdid, CLng(bdType), me)
if CStr(x)="0" then err.raise 10000,"SalePlan.Save", eBD.GetLastError()
set eBD = Nothing
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>

default.asp - 源码说明

本页面展示了「进销存软件源代码」中的 default.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与进销相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?