📄 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, iCount, Amount, bdid, TaxAmount
TaxAmount = 0
iCount = 0
Amount = 0
bdid=0
if IsNumeric(GetForm("ID")) then
	bdid=Clng(GetForm("ID"))
end if
'End

'eboReg
dim MaxRows, MaxCols
MaxRows=CLng(GetForm("Detail_rows"))
MaxCols=CLng(GetForm("Detail_cols"))

eboReg 1, "Title", "BillTitle", "", "cbRSDirect"
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1, "MaxRows", "int1", "", "cbLocalVariable"
eboReg 1, "MaxCols", "int2", "", "cbLocalVariable"
eboReg 1, "Detail_width", "int3", "", "cbRSDirect"
eboReg 1, "Detail_height", "int4", "", "cbRSDirect"
eboReg 1, "AccountID", "AccountID", "", "cbLocalVariable"
eboReg 1, "Owner", "Owner", "", "cbLocalVariable"

dim iX, iY, szDetail
iX=0
iY=0
szDetail=""

eboReg 2, "iX", "int1", "", "cbListLocalVariable"
eboReg 2, "iY", "int2", "", "cbListLocalVariable"
eboReg 2, "szDetail", "Memo1", "", "cbListLocalVariable"
'End

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

function bdSaveList(bdType, bdTableName, rsBD, rsBDList)
	Do
		iY=iY+1
		if iY>MaxCols then
			iX=iX+1
			iY=1
		end if
		if iX>MaxRows then
			bdSaveList = -1
			exit do
		end if
		if Len(GetForm("Detail_"&iY&"_"&iX)) then
			szDetail = GetForm("Detail_"&iY&"_"&iX)
			eboSet 2, nothing, rsBDList
			bdSaveList = 0
			exit do
		end if
	Loop
end function

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdSave(bdid, CLng(bdType), me)
if CStr(x)="0" then err.raise 10000,"AccountRpt.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 + -