common.asp

进销存软件源代码

<!-- #include file="../Common.asp" --><%
dim biType
biType = 10

function BISubjectTypeVerify(fun, eboitem, rs, rsList)
	dim rsCheck
	Select Case fun
		Case EBO_SET
			if isNumeric(GetForm(eboitem.ServerSideName))=false then Err.Raise 10000,"BISubjectTypeVerify","SubjectType not exsit!"
			rsCheck = Conn.Execute("SELECT COUNT(*) as rc FROM [biSubjectType] WHERE InfoType=12 AND ID=" & SQLInputParam(GetForm(eboitem.ServerSideName)))
			if rsCheck("rc")=1 then
				rs(eboitem.FieldName)=GetForm(eboitem.ServerSideName)
			else
				Err.Raise 10000,"BISubjectTypeVerify","SubjectType not exsit!"
			end if
			set rsCheck = nothing
	End Select
end function

function BISubjectTypeText(fun, eboitem, rs, rsList)
	dim rsCheck
	Select Case fun
		Case EBO_GET
			rsCheck = Conn.Execute("SELECT [Title] FROM [biSubjectType] WHERE InfoType=12 AND ID=" & CStr(rs(eboitem.FieldName)))
			BISubjectTypeText=rsCheck("Title")
	End Select
end function

function BICurrencyVerify(fun, eboitem, rs, rsList)
	dim rsCheck
	Select Case fun
		Case EBO_SET
			if isNumeric(GetForm(eboitem.ServerSideName))=false then Err.Raise 10000,"BICurrencyVerify","Currency not exsit!"
			rsCheck = Conn.Execute("SELECT COUNT(*) as rc FROM [biCurrency] WHERE InfoType=11 AND ID=" & SQLInputParam(GetForm(eboitem.ServerSideName)))
			if rsCheck("rc")=1 then
				rs(eboitem.FieldName)=GetForm(eboitem.ServerSideName)
			else
				Err.Raise 10000,"BICurrencyVerify","Currency not exsit!"
			end if
			set rsCheck = nothing
	End Select
end function

function BICurrencyText(fun, eboitem, rs, rsList)
	dim rsCheck
	Select Case fun
		Case EBO_GET
			rsCheck = Conn.Execute("SELECT [Title] FROM [biCurrency] WHERE InfoType=11 AND ID=" & CStr(rs(eboitem.FieldName)))
			BICurrencyText=rsCheck("Title")
	End Select
end function

function BIBalanceDirectText(fun, eboitem, rs, rsList)
	Select Case fun
		Case EBO_GET
			if rs(eboitem.FieldName)=0 then
				BIBalanceDirectText="借"
			else
				BIBalanceDirectText="贷"
			end if
	End Select
end function
%>