📄 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 eBI, x, biid
dim Sort,GoodsID,Color,Spec
    Sort=GetForm("Sort")
    GoodsID=GetForm("GoodsID")
    Color=GetForm("Color")
    Spec=GetForm("Spec")
biid=0
if IsNumeric(GetForm("ID")) then
	biid=Clng(GetForm("ID"))
end if
dim szSQL,rsCheck
dim SortText,GoodsText,ColorText,SpecText
if IsNumeric(GetForm("GoodsID")) then
	szSQL="SELECT Title FROM [biGoodsCode] WHERE [InfoType]=106 AND ID=" & GoodsID
	rsCheck=Conn.Execute(szSQL)
	GoodsText=rsCheck("Title")
set rsCheck = nothing
end if
if IsNumeric(GetForm("Sort")) then
	szSQL="SELECT Nvarchar1 FROM [biProductClass] WHERE [InfoType]=3 AND ID=" & Sort
	rsCheck=Conn.Execute(szSQL)
	SortText=rsCheck("Nvarchar1")
set rsCheck = nothing
end if
if IsNumeric(GetForm("Color")) then
	szSQL="SELECT Code FROM [biColor] WHERE [InfoType]=104 AND ID=" & Color
	rsCheck=Conn.Execute(szSQL)
	ColorText=rsCheck("Code")
set rsCheck = nothing
end if
if IsNumeric(GetForm("Spec")) then
	szSQL="SELECT Title FROM [biSpec] WHERE [InfoType]=105 AND ID=" & Spec
	rsCheck=Conn.Execute(szSQL)
	SpecText=rsCheck("Title")
set rsCheck = nothing
end if
'End
dim Code,MainCode
MainCode=SortText & GoodsText
Code=MainCode & ColorText & SpecText
'eboReg
eboReg 1,"ProductName","Title","","cbRSDirectNotNullCheck"
eboReg 1,"ProductName","SearchCode1","","cbRSDirectPy"
eboReg 1,"Code","Code","","cbRSCodeNotCheck"
if Cstr(biid)=0 then
    eboReg 1,"Code","SearchCode2","","cbRSCodeNotCheck"
else
    eboReg 1,"Search","SearchCode2","","cbRSDirect"
 end if
'eboReg 1,"Search","SearchCode2","","cbRSDirect"
eboReg 1, "Color", "BigInt2", "", "cbRSDirectNotNullCheck"
eboReg 1, "Spec", "BigInt3", "", "cbRSDirectNotNullCheck"
eboReg 1,"Sort","BigInt1","","cbRSDirectNotNullCheck"
eboReg 1,"GoodsID","ProductID","","cbRSDirect"
eboReg 1,"Unit","Nvarchar2","","cbRSDirect"
eboReg 1,"TaxRate","Currency3","","cbRSCurrencyZero"
eboReg 1,"SalePrice","Currency1","","cbRSCurrencyZero"
eboReg 1,"OtherPrice","Currency2","","cbRSCurrencyZero"
eboReg 1,"Memo","MemoInfo","","cbRSDirect"
eboReg 1,"PinType","Int1","","cbRSIntNull"
eboReg 1,"Material","Int2","","cbRSIntNull"
eboReg 1,"YarnBranch","Int3","","cbRSIntNull"

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

function cbRSCodeNotCheck(fun, eboitem, rs, rsList)
  dim szSQL,rsCheck
    if len(Code)>0 then 
		szSQL="SELECT COUNT(*) AS rc FROM [biProduct] WHERE IsDeleted=0 AND AccountID=" & AccountID & " AND [ID] <> "&biid&" AND Code='"& Trim(SQLInputParam(Code))&"'"
		rsCheck=Conn.Execute(szSQL)
		if rsCheck("rc")=0 then
			rs(eboitem.FieldName)=Replace(Code,",","，")
		else
		   	err.Raise 10000,"cbRSCodeNotCheck","编码重复"
		end if
	else 
		 err.Raise 10000,"cbRSCodeNotCheck","编码为空！"
	end if	
end function
'End

function biSave(biType, biTableName, rsBI)
	eboSet 1, rsBI, nothing
end function

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
x = eBI.biSave(biid, CLng(biType), me)
if CStr(x)="0" then err.raise 10000,"Product.Save", eBI.GetLastError()
set eBI = 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 + -