wishlistmain.asp

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

<%
'/*********************************************
'/帒椏惪媮嵟怴挔昜堦棗偺僥乕僽儖傾僋僙僗僋儔僗
'/*********************************************
Class WishListMain
	
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_rsPageCount	'儁乕僕僒僀僘(儁乕僕惂屼梡)
	Dim l_rsRecordCount	'儗僐乕僪審悢(儁乕僕惂屼梡)
	Dim l_page		'尰嵼偺儁乕僕悢(儁乕僕惂屼梡)
	Dim l_inListCd 		'昞帵梡(挔昜僐乕僪)
	Dim l_inListEda 	'昞帵梡(挔昜巬斣)
	Dim l_inListName	'昞帵梡(挔昜柤)
	Dim l_sortkey		'僜乕僩僉乕
	Dim l_sortdesc		'僜乕僩弴

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Dim l_dbinfo 'String

		'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

		'尰嵼偺儁乕僕悢愝掕(僷儔儊乕僞偵儁乕僕偑側偗傟偽1傪愝掕)
		l_page = Request.QueryString("page")
		If l_page = "" Then
			l_page = 1
		End If

	End Function

	'/****************************************************************
	'/* Top夋柺丄挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* return丗Scripting.Dictionary 昞帵儕僗僩(DemandListMdl宆偺攝楍)
	'/****************************************************************
	Public Function GetList()

		Dim l_dlb	'DemListBaseMaster
		Dim l_rs  	'ADODB.Recordset
		Dim l_dcmn	'DemandCommon

		Set l_dlb = New DemListBaseMaster
		Set l_dcmn = New DemandCommon

		l_sortkey = ""
		l_sortdesc = ""

		'DB傛傝堦棗傪庢摼偡傞
		Set l_rs = l_dlb.SearchDemandWish(l_db)

		'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
'		l_rsPageCount = l_rs.PageCount		'儁乕僕僒僀僘愝掕
'		l_rsRecordCount = l_rs.RecordCount	'儗僐乕僪審悢愝掕

		'庢摼偟偨儗僐乕僪傪曇廤偡傞
		Dim l_retList	'Scripting.Dictionary
		Dim l_retRec
		Dim l_i
		Set l_retList = CreateObject("Scripting.Dictionary")

		l_i = 0
		Do Until l_rs.eof
			Set l_retRec = l_dcmn.EditRec(l_db,l_rs)
			l_retList.add CStr(l_i), l_retRec
			l_i = l_i + 1
			l_rs.MoveNext
		Loop

		l_rsPageCount = Fix(l_retList.Count / MAXROW_DEMAND_FORM_LIST + 0.99) '儁乕僕僒僀僘愝掕
		l_rsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕

		Set GetList = l_retList

	End Function

	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_db.CloseRecodeset
		Call l_db.CloseConnection
	End Function

End Class

'/******************************************************
'/帒椏惪媮偺嵟怴挔昜堦棗丄挔昜堦棗僨乕僞曐帩梡僋儔僗
'/(帒椏惪媮偺堦棗侾儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class DemandMdl
	Dim l_DemManage		'挔昜娗棟斣崋(NUMBER)
	Dim l_DemName		'挔昜柤(VARCHAR2)
	Dim l_DembgColor	'挔昜柤攚宨怓
	Dim l_DemImage		'岞奐夋憸IMG(VARCHAR2)
	Dim l_DemNo		'挔昜No(CHAR)
	Dim l_DemKind		'暘椶侾(VARCHAR2)
	Dim l_DemPrice		'攝晍扨壙()
	Dim l_DemLimit		'巊梡婜尷(DATE)
	Dim l_DemListCd		'挔昜斣崋
	Dim l_DemListEda	'挔昜斣崋巬斣
	Dim l_DemOpenStart	'岞奐奐巒擔
End Class
%>