demandlistmain.asp

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

<%
'/*********************************************
'/帒椏惪媮嵟怴挔昜堦棗偺僥乕僽儖傾僋僙僗僋儔僗
'/*********************************************
Class DemandListMain
	
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_secId '僙僋僔儑儞ID(String)
	Dim l_cmn	'common
	Dim l_dlb	'DemListBaseMaster
	Dim l_inListCd 		'昞帵梡(挔昜僐乕僪)
	Dim l_inListEda 	'昞帵梡(挔昜巬斣)
	Dim l_inListName	'昞帵梡(挔昜柤)

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

		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Set l_cmn = New Common

		Call l_cmn.SearchSession
		Call l_db.ProcConnection(DSN, USERID, PASSWD)

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

	End Function

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

		Dim l_rs  	'ADODB.Recordset
		Dim l_dcmn	'DemandCommon

		Set l_dlb = New DemListBaseMaster
		Set l_dcmn = New DemandCommon

		'DB傛傝堦棗傪庢摼偡傞
		Set l_rs = l_dlb.SearchDemandList(l_db,l_dcmn.GetSectionKind(l_db,l_sysId,l_coId,l_secId))

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

 		'int
		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

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