searchcrossmain.asp

印刷物の発注、在庫管理、出庫処理を一元管理

<%
'/************************************
'/僋儘僗専嶕儊僀儞僋儔僗
'/************************************
Class SearchCrossMain
	Dim l_db			'DBAccess DB傾僋僙僗梡
	Dim l_cmn			'嫟捠僋儔僗(Common)
	Dim l_charutil		'CharUtil僋儔僗
	Dim l_basp			'basp21僆僽僕僃僋僩
	Dim l_sysId
	Dim l_coId
	Dim l_inListCd			'挔昜斣崋
	Dim l_inListEda			'巬斣
	Dim l_inListName		'挔昜柤
	Dim l_inCsListCd		'僋儘僗専嶕挔昜斣崋
	Dim l_inCsListEda		'僋儘僗専嶕巬斣
	Dim l_inCsListName		'僋儘僗専嶕挔昜柤
	Dim l_inClass1			'暘椶侾
	Dim l_inClass2			'暘椶俀
	Dim l_inClass3			'暘椶俁
	Dim l_inCategory1		'僇僥僑儕侾
	Dim l_inCategory2		'僇僥僑儕俀
	Dim l_inCategory3		'僇僥僑儕俁
	Dim l_inCategory4		'僇僥僑儕係
	Dim l_inCategory5		'僇僥僑儕俆

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cmn = New Common
		Set l_charutil = New CharUtil
		Set l_basp = Server.CreateObject("basp21")

		Call l_cmn.SearchSession
		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID

	End Function

	'/********************************************
	'/* 擖椡僨乕僞曐帩
	'/********************************************
	Public Function GetData()

		If IsObject(Session("DemandSearchInfo")) Then
			If IsArray(Session("ErrMsg")) Then
				If Session("DemandSearchInfo").Item("listcd") <> "" Then
					l_inCsListCd = Replace(l_charutil.html_chg(l_basp,Session("DemandSearchInfo").Item("listcd")),"""","&quot;")
				End If
				If Session("DemandSearchInfo").Item("listeda") <> "" Then
					l_inCsListEda = Replace(l_charutil.html_chg(l_basp,Session("DemandSearchInfo").Item("listeda")),"""","&quot;")
				End If
				l_inCsListName = Session("DemandSearchInfo").Item("listname")
				l_inClass1 = Session("DemandSearchInfo").Item("csclass1")
				l_inClass2 = Session("DemandSearchInfo").Item("csclass2")
				l_inClass3 = Session("DemandSearchInfo").Item("csclass3")
				l_inCategory1 = Session("DemandSearchInfo").Item("checkbox1")
				l_inCategory2 = Session("DemandSearchInfo").Item("checkbox2")
				l_inCategory3 = Session("DemandSearchInfo").Item("checkbox3")
				l_inCategory4 = Session("DemandSearchInfo").Item("checkbox4")
				l_inCategory5 = Session("DemandSearchInfo").Item("checkbox5")
			Else
				Session.Contents.Remove("DemandSearchInfo")
			End If
		End If

	End Function

End Class
%>