📄 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, iCols, bdid

iCols = 3
iCount = 0
Amount = 0

bdid=0
if IsNumeric(request("ID")) then
	bdid=request("ID")
end if
'End

function cbRSListStockToText(fun, eboitem, rs, rsList)
	dim szSQL,rsCheck
	if IsNull(rsList(eboitem.FieldName)) then
		cbRSListStockToText=""
		exit function
	end if
	if cstr(rsList(eboitem.FieldName))="0" then 
	cbRSListStockToText=""
	else 
	szSQL="SELECT Title FROM [biStock] WHERE  IsDeleted=0 AND [InfoType]=6 AND ID=" & CStr(rsList(eboitem.FieldName))
	SET rsCheck=dbx.open(szSQL,3,4)
	cbRSListStockToText=rsCheck("Title")
	set rsCheck = nothing
	end if
end function
function cbRSListOperatorToText(fun, eboitem, rs, rsList)
	dim szSQL,rsCheck
	if IsNull(rsList(eboitem.FieldName)) then
		cbRSListOperatorToText=""
		exit function
	end if
	szSQL="SELECT Title FROM [biOperator] WHERE [InfoType]=7 AND ID=" & CStr(rsList(eboitem.FieldName))
	SET rsCheck=dbx.open(szSQL,3,4)
	cbRSListOperatorToText=rsCheck("Title")
	set rsCheck = nothing
end function

function cbRSListOperatorToCode(fun, eboitem, rs, rsList)
	dim szSQL,rsCheck
	if IsNull(rsList(eboitem.FieldName)) then
		cbRSListOperatorToCode=""
		exit function
	end if
	szSQL="SELECT Code FROM [biOperator] WHERE [InfoType]=7 AND ID=" & CStr(rsList(eboitem.FieldName))
	SET rsCheck=dbx.open(szSQL,3,4)
	cbRSListOperatorToCode=rsCheck("Code")
	set rsCheck = nothing
end function
function cbRSListCustomToText(fun, eboitem, rs, rsList)
	dim szSQL,rsCheck
	if IsNull(rsList(eboitem.FieldName)) then
		cbRSListCustomToText=""
		exit function
	end if
	szSQL="SELECT Title FROM [biGoodsCode] WHERE [InfoType]=106 AND ID=" & CStr(rsList(eboitem.FieldName))
	SET rsCheck=dbx.open(szSQL,3,4)
	cbRSListCustomToText=rsCheck("Title")
	set rsCheck = nothing
end function

'eboReg
eboReg 1,"ID","ID","","cbRSDirect"
eboReg 1, "Name", "BillTitle", "", "cbRSDirect"
eboReg 1, "SearchMemo", "Nvarchar1", "", "cbRSDirect"
eboReg 1, "stockCheck", "Int1", "", "cbRSDirect"
eboReg 1, "operatorCheck", "Int2", "", "cbRSDirect"
eboReg 1, "codeCheck", "Int3", "", "cbRSDirect"
eboReg 1, "productCheck", "Int4", "", "cbRSDirect"
eboReg 1, "BillCheck", "Int5", "", "cbRSDirect"
eboReg 1, "startNumber", "Int6", "", "cbRSDirect"
eboReg 1, "endNumber", "Int7", "", "cbRSDirect"
eboReg 1, "SearchBill", "Nvarchar2", "", "cbRSDirect"
eboReg 1, "searchCode", "Nvarchar3", "", "cbRSDirect"

eboReg 2,"Switch_","int1","","cbRSListDirect"
eboReg 2,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 2,"Detail_1_","ProductID","","cbRSListStockToText"

eboReg 3,"Switch_","int1","","cbRSListDirect"
eboReg 3,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 3,"Detail_1_","ProductID","","cbRSListOperatorToText"
eboReg 3,"Detail_2_","ProductID","","cbRSListOperatorToCode"

eboReg 4,"Switch_","int1","","cbRSListDirect"
eboReg 4,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 4,"Detail_1_","ProductID","","cbRSListCustomToText"


eboReg 10,"Detail_rows","iCount","","cbLocalVariable"
eboReg 10,"Detail_cols","iCols","","cbLocalVariable"
'End

function bdOpenTitle(bdType, bdTableName, rsBD)
	eboGet 1, rsBD, nothing
	IData2d 1,3
end function

function bdOpenList(bdType, bdTableName, rsBD, rsBDList)
	dim s
	s=Clng(rsBDList("int1"))
	eboGet s+2, rsBD, rsBDList
	iCount = iCount + 1
	bdOpenList = 0
end function

response.write "<script>"&vbcrlf

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdOpen(bdid, Clng(bdType), me)
if CStr(x)="0" then err.raise 10000,"SaleReportJT.Load", eBD.GetLastError()
set eBD = Nothing

IData2d 0,10
eboGet 10, nothing, nothing
response.write "</script>"&vbcrlf
%>
</BODY>
<script>
IClient('data',IDataEnd());
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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