📄 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>
<%
dim eBI, x, biid, id, i, iTotalCount,OneDay,TwoDay,ThreeDay,OneSaleRate,TwoSaleRate,ThreeSaleRate,HidVar
i=0
iTotalCount=GetForm("Detail_rows")
OneDay=request("OneDay")
TwoDay=request("TwoDay")
ThreeDay=request("ThreeDay")
OneSaleRate=request("OneSaleRate")
TwoSaleRate=request("TwoSaleRate")
ThreeSaleRate=request("ThreeSaleRate")
HidVar=request("hidVar")

function cbLocalVariable1(fun, eboitem, rs, rsList) '保存变量
	Select Case fun
		Case EBO_GET
			cbLocalVariable1=eval(eboitem.FieldName)
		Case EBO_SET
		if IsNumeric(eval(eboitem.ServerSideName)) then
		    rs(eboitem.FieldName)=eval(eboitem.ServerSideName)
		 else
	        err.Raise 10000,"cbLocalVariable","必填项目为空！" 
		end if
		End Select
end function
'eboReg
eboReg 1,"Stock","Int1","","cbRSDirect"'仓库ID
eboReg 1,"Detail_1_","Int2","","cbRSDirectListNotNull"'产品ID
eboReg 1,"Detail_4_","Int3","","cbRSDirectList"
eboReg 1,"Detail_5_","Currency1","","cbRSDirectList"
eboReg 1,"Detail_6_","Int4","","cbRSDirectList"
eboReg 1,"Detail_7_","Currency2","","cbRSDirectList"
eboReg 1,"Detail_8_","Int5","","cbRSDirectList"
eboReg 1,"Detail_9_","Currency3","","cbRSDirectList"

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


eboReg 2,"Stock","Int1","","cbRSDirect"'仓库ID
eboReg 2,"Detail_1_","Int2","","cbRSDirectListNotNull"'产品ID
eboReg 2,"OneDay","Int3","","cbLocalVariable1"
eboReg 2,"OneSaleRate","Currency1","","cbLocalVariable1"
eboReg 2,"TwoDay","Int4","","cbLocalVariable1"
eboReg 2,"TwoSaleRate","Currency2","","cbLocalVariable1"
eboReg 2,"ThreeDay","Int5","","cbLocalVariable1"
eboReg 2,"ThreeSaleRate","Currency3","","cbLocalVariable1"

eboReg 2,"AccountID","AccountID","","cbLocalVariable"
eboReg 2,"Owner","Owner","","cbLocalVariable"

'End
function cbRSDirectList(fun, eboitem, rs, rsList)
	Select Case fun
		Case EBO_GET
			cbRSListDirect=rs(eboitem.FieldName)
		Case EBO_SET
			rs(eboitem.FieldName)=GetForm(eboitem.ServerSideName&i)
	End Select
end function

function cbRSDirectListNotNull(fun, eboitem, rs, rsList)
	Select Case fun
		Case EBO_GET
			cbRSListDirect=rs(eboitem.FieldName)
		Case EBO_SET
			if len(GetForm(eboitem.ServerSideName&i))=0 then
				err.Raise 10000,"cbRSDirectListNotNull","必填项目为空！"
			end if
			rs(eboitem.FieldName)=GetForm(eboitem.ServerSideName&i)
	End Select
end function

function biSave(biType, biTableName, rsBI)
   if HidVar=0 Then
	    eboSet 1, rsBI, nothing
	else
	    eboSet 2, rsBI, nothing
	 end if
	dim rsCheck1
	set rsCheck1=Server.CreateObject ("ADODB.RecordSet")
	rsCheck1.Open "Select Int1,Int2 From biAlertSet Where Int1="& rsBI("Int1") &" AND Int2="& rsBI("Int2") &" AND ID<>"&biid,Conn,1,1
	if rsCheck1.RecordCount>0 then
		err.raise 10000,"biAlertSet.Save", "产品"&dbx("biProduct")(rsCheck1("Int2").Value )("Title")&"在仓库"&dbx("biStock")(rsCheck1("Int1").Value )("Title")&"中的报警条件已存在！"
	end if
	set rsCheck1=nothing
end function

Response.Write "<script>" & VBCrLf	
Response.Write "var data=new Array "& VBCrLf

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
do
	if i>iTotalCount-1 then exit do
	biid=0
	if IsNumeric(GetForm("Detail_0_"&i)) then
		biid=Clng(GetForm("Detail_0_"&i))
	end if
	id=biid
	x = eBI.biSave(biid, biType, me)
	if CStr(x)="0" then err.raise 10000,"biAlertSet.Save", eBI.GetLastError()
	Response.Write "data[data.length]="& x &""& VBCrLf
	i=i+1
loop
set eBI = Nothing
Response.Write "</script>" & VBCrLf
%>
</BODY>
<script>
IClient('data',data);
IClient('end','');
</script>
</HTML>
⌨️ 快捷键说明

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