📄 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, TotalCount, iCount, bdid, CodeDate, MainCode, Code
Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
TotalCount=CLng(GetForm("Detail_rows"))
if TotalCount=0 then err.Raise 10000,"ProductCatalog.Save","没有添写色号和尺码"
biid=0
if IsNumeric(GetForm("ID")) then
	biid=Clng(GetForm("ID"))
end if

'if IsDate(GetForm("bdhDate")) then
'	CodeDate=CDate(GetForm("bdhDate"))
'	CodeDate=CStr(Year(CodeDate))
'	CodeDate=Left(CodeDate,1) & Right(CodeDate,1)
'else 
'	err.Raise 10000,"不是日期型"
'end if

MainCode=CStr(GetForm("SortText")) & CStr(GetForm("GoodsIDText"))
'End

'eboReg
eboReg 1,"ProductName","Title","","cbRSDirectNotNullCheck"
eboReg 1,"ProductName","SearchCode1","","cbRSDirectPy"
eboReg 1,"Sort","BigInt1","","cbRSDirectNotNullCheck"
'eboReg 1,"bdhDate","DateTime1","","cbRSDirectNotNullCheck"
eboReg 1,"GoodsID","ProductID","","cbRSDirectNotNullCheck"
eboReg 1,"Unit","Nvarchar2","","cbRSDirect"
eboReg 1,"TaxRate","Currency3","","cbFunCurrency"
eboReg 1,"SalePrice","Currency1","","cbFunCurrency"
eboReg 1,"OtherPrice","Currency2","","cbFunCurrency"
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"
eboReg 1,"Code","Code","","cbRSCodeNotCheck"
eboReg 1,"Code","SearchCode2","","cbLocalVariable"

eboReg 1, "Detail_0_", "BigInt2", "", "cbRSBIListDirect"
eboReg 1, "Detail_2_", "BigInt3", "", "cbRSBIListDirect"
'End
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
function biSave(biType, biTableName, rsBI)
		eboSet 1, rsBI, nothing
end function

for iCount =0 to TotalCount-1
	if CStr(biid)<>"0" then err.raise 10000,"Product.Save", eBI.GetLastError()
	if len(GetForm("Detail_1_"&iCount))=0 or len(GetForm("Detail_3_"&iCount))=0 then err.Raise 1000,"","色号和尺码的行数必须对应！"
	Code=MainCode & GetForm("Detail_1_"&iCount) & GetForm("Detail_3_"&iCount)
	x = eBI.biSave(biid, CLng(biType), me)
	if CStr(x)="0" then err.raise 10000,"Product.Save", eBI.GetLastError()
	biid=0
next

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 + -