📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" -->
<!-- #include virtual="/Server/ebo.asp" -->
<!-- #include virtual="/Server/cblib.asp" -->
<!-- #include file="../Common.asp" -->
<!-- #include file="../CustomRpt.asp" -->
<!-- #include file="../AccRpt.asp" -->
<HTML>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<BODY>
<%
'eboReg
eboReg 1,"ID","ID","","cbRSDirect"
eboReg 1,"Title","BillTitle","","cbRSDirect"
eboReg 1,"Memo","BillMemo","","cbRSDirect"
eboReg 1,"Detail_rows","int1","","cbRSDirect"
eboReg 1,"Detail_cols","int2","","cbRSDirect"
eboReg 1,"Detail_width","int3","","cbRSDirect"
eboReg 1,"Detail_height","int4","","cbRSDirect"
'End

function OutTable(vArray)
	dim iRows, iCols, i, j
	
	iRows = UBound(vArray,1)
	iCols = UBound(vArray,2)
	for i=0 to iRows
		for j=0 to iCols
			eboGetDirect "Detail_"&j&"_"&i, vArray(i,j)
		next
	next
end function

function bdOpenTitle(bdType, bdTableName, rsBD)
	InitEngine rsBD("int1"),rsBD("int2")
	eboGet 1, rsBD, nothing
end function

function bdOpenList(bdType, bdTableName, rsBD, rsBDList)
	sysdefineArray(rsBDList("int1"),rsBDList("int2"))=rsBDList("Memo1")
	bdOpenList=0
end function

response.write "<script>"&vbcrlf

dim eBD, x, bdid

bdid=0
if IsNumeric(GetForm("ID")) then
	bdid=GetForm("ID")
end if

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

dim dateFrom1,dateFrom2,dateTo1,dateTo2
if IsDate(GetForm("dateFrom1")) then
	dateFrom1=CDate(GetForm("dateFrom1"))
	dateFrom1=DateSerial(year(dateFrom1), month(dateFrom1), day(dateFrom1))
elseif GetForm("dateFrom1")="First" then
	dateFrom1="First"
end if
if IsDate(GetForm("dateFrom2")) then
	dateFrom2=CDate(GetForm("dateFrom2"))
	dateFrom2=DateSerial(year(dateFrom2), month(dateFrom2), day(dateFrom2))
elseif GetForm("dateFrom2")="First" then
	dateFrom2="First"
end if
if IsDate(GetForm("dateTo1")) then
	dateTo1=CDate(GetForm("dateTo1"))
	dateTo1=DateSerial(year(dateTo1), month(dateTo1), day(dateTo1))
	dateTo1=DateADD("d",1,dateTo1)
elseif GetForm("dateTo1")="FirstNum" then
	dateTo1="FirstNum"
end if
if IsDate(GetForm("dateTo2")) then
	dateTo2=CDate(GetForm("dateTo2"))
	dateTo2=DateSerial(year(dateTo2), month(dateTo2), day(dateTo2))
	dateTo2=DateADD("d",1,dateTo2)
end if

RptInit dateFrom1, dateFrom2,dateTo1, dateTo2

vProcess sysdefineArray
OutTable sysdefineArray

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

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