demandcommon.asp

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

<%
Class DemandCommon

	Dim l_cutil	'暥帤楍儐乕僥傿儕僥傿
	Dim l_dchar	'暥帤楍曇廤

	'/********************************************
	'/* 堦棗昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜忣曬儗僐乕僪
	'/* return丗DemandListMdl 曇廤寢壥
	'/********************************************
	Public Function EditRec(l_db,l_rs)
		Dim l_rec
		Dim l_cmn
		Set l_rec = New DemandMdl
		Set l_cmn = New Common

		Set l_cutil = New CharUtil
		Set l_dchar = New DemandCharUtil

		'挔昜柤
		l_rec.l_DemName = l_rs.Fields.Item("LIST_NAME")
		'攚宨怓
		'l_rec.l_DembgColor = l_cmn.GetCodeName(l_db, CD_CLASS1_COLOR, l_rs.Fields.Item("CLASS1"))
		l_rec.l_DembgColor = l_rs.Fields.Item("BG_COLLOR")
		'僒儉僱僀儖
		If l_rs.Fields.Item("OPEN_IMAGE_FLAG") = FLG_ON Then
			l_rec.l_DemImage = l_dchar.editImage(l_rs.Fields.Item("THUMBNAIL"))
		Else
			l_rec.l_DemImage = l_dchar.editImage("")
		End If

		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_DemNo = l_cutil.editCdEda(l_rs.Fields.Item("LIST_CD"), l_rs.Fields.Item("LIST_EDA"))
		'暘椶侾
		l_rec.l_DemKind = l_rs.Fields.Item("NAME")
		'攝晍扨壙
		l_rec.l_DemPrice = l_dchar.editPrice(l_rs.Fields.Item("UNIT_PRICE"),l_cutil)
		'巊梡婜尷
		l_rec.l_DemLimit = l_dchar.editLimit(l_rs.Fields.Item("USEPOSSIBLE_TERM_END"))
		'挔昜娗棟斣崋(僨乕僞曐帩梡)
		l_rec.l_DemManage = l_rs.Fields.Item("LIST_MANAGE_NO")
		'挔昜斣崋(僨乕僞曐帩梡)
		l_rec.l_DemListCd = l_rs.Fields.Item("LIST_CD")
		'挔昜斣崋巬斣(僨乕僞曐帩梡)
		l_rec.l_DemListEda = l_rs.Fields.Item("LIST_EDA")
		'岞奐奐巒擔
		l_rec.l_DemOpenStart = l_rs.Fields.Item("OPEN_PERIOD_START")

		Set EditRec = l_rec
	End Function

	'/***************************************************************
	'/* 晹栧庬暿庢摼
	'/* param丗l_db		DbAccess
	'/*        l_sysId	僔僗僥儉ID
	'/*        l_coId	夛幮ID
	'/*        l_secId	晹栧ID
	'/* return丗0:幮撪(杮幮)丄1:幮奜(巟幮丒巟揦)丄2:偦偺懠(戙棟揦摍)
	'/***************************************************************
	Public Function GetSectionKind(l_db,l_sysId,l_coId,l_secId)
		Dim l_SQL
		Dim l_rset

		l_SQL = "SELECT SECTION_KIND " &_
				"  FROM SECTION_M " &_
				" WHERE SYSTEM_ID = '" &  l_sysId & "' " &_
				"   AND COMPANY_ID = '" & l_coId & "' " &_
				"   AND SECTION_ID = '" & l_secId & "' " 

		Set l_rset = l_db.ProcRecordSet(l_SQL,1,0)
		If Not l_rset.Eof Then
			GetSectionKind = l_rset.Fields.Item("SECTION_KIND")
		Else
			GetSectionKind = ""
		End If
	End Function

End Class
%>