📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #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,NumSum
TaxAmount = 0
NumSum=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, "Contract", "Nvarchar3", "", "cbRSDirect"'合同号
eboReg 1, "Stock", "Stock", "", "cbRSStockCheck"'加工厂
eboReg 1, "Num", "Num", "", "cbRSDirect"'文件编号
eboReg 1, "NumSum", "bigint1", "", "cbLocalVariable"'总件数
eboReg 1, "DateFrom", "DateTime1", "", "cbRSDateCheck"'下单日期
eboReg 1, "Date", "BillDate", "", "cbRSDateCheck"'完成日期
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1, "UserID", "nvarchar1", "", "cbRSDirect"'生产批号

eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"
eboReg 1, "Owner", "Owner", "", "cbLocalVariable"

eboReg 2, "Detail_0_", "ProductID", "", "cbRSListProductCheck"
eboReg 2, "Detail_5_", "Nvarchar4", "", "cbRSListDirect"
eboReg 2, "Detail_7_", "Nvarchar1", "", "cbRSListDirect"


eboReg 2, "Detail_10_", "Quantity", "", "cbRSListIntNull" '数量
eboReg 2, "Detail_11_", "Price", "", "cbRSListIntNull" '单价
eboReg 2, "Detail_12_", "Amount", "", "cbRSListIntNull" '金额

eboReg 2, "Detail_13_", "Memo1", "", "cbRSListDirect"

'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
		NumSum=NumSum+rsBDList("int1")
		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,"YieldPlan.Save", eBD.GetLastError()
set eBD = Nothing
%>
</BODY>
<script>
var data=new Array('<%=x%>');
IClient('data',data);
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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