📄 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>
<%
Server.ScriptTimeout=150
'Variable Declare
dim eBD, x, iCount, Amount, iCols, bdid

iCols = 7
iCount = 0
Amount = 0

bdid=0
dim szSQL,rsCheck
szSQL="SELECT Count(*) as rc FROM [bdFirstBalance] WHERE [BillType]=17 AND AccountID="& AccountID
rsCheck=Conn.Execute(szSQL)
if rsCheck("rc")=1 then
set rsCheck=nothing
szSQL="SELECT ID FROM [bdFirstBalance] WHERE [BillType]=17 AND AccountID="& AccountID &" ORDER BY ID"
rsCheck=Conn.Execute(szSQL)
bdid=rsCheck("ID")
set rsCheck=nothing
end if

'End

'eboReg
eboReg 1,"ID","ID","","cbRSDirect"
eboReg 1, "Memo", "BillMemo", "", "cbRSDirect"
eboReg 1,"Date","DateTime1","","cbRSDateToText"

eboReg 2,"Switch_","int1","","cbRSListDirect"
eboReg 2,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 2,"Detail_6_","Quantity","","cbRSListDirect"
eboReg 2,"Detail_7_","Currency3","","cbRSListDirect"


eboReg 3,"Switch_","int1","","cbRSListDirect"
eboReg 3,"Detail_0_","ProductID","","cbRSListDirect"
eboReg 3,"Detail_6_","Quantity","","cbRSListDirect"
eboReg 3,"Detail_7_","Currency3","","cbRSListDirect"

eboReg 4,"Detail_rows","iCount","","cbLocalVariable"
eboReg 4,"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"))
	if rsBDList("Quantity")<>0 or rsBDList("Currency3")<>0 then
		eboGet s+2, rsBD, rsBDList
		iCount = iCount + 1
	end if
	bdOpenList = 0
end function

response.write "<script>"&vbcrlf

Set eBD = Server.CreateObject("eB3KCommon.BillDocument")
x = eBD.bdOpen(bdid, Clng(bdType), me)
set eBD = Nothing

IData2d 0,4
eboGet 4, 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 + -