fmlistimagemaster.asp

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

<%
'/
'/挔昜僀儊乕僕儅僗僞傾僋僙僗僋儔僗
'/
Class FmListImageMaster
	'/*******************************************************
	'/* 挔昜僀儊乕僕儗僐乕僪傪庢摼偡傞
	'/* param丗dbaccess(DBAccess) 	DB傾僋僙僗
	'/*        sysid(String) 僔僗僥儉ID
	'/*        coid(String) 夛幮ID
	'/*        l_listCd(String) 挔昜斣崋
	'/*        l_listEda(String) 挔昜巬斣
	'/* return ADODB.Recordset 専嶕寢壥
	'/*******************************************************
	Public Function SearchListImageRec(l_dbaccess, l_sysId, l_coId, l_listCd, l_listEda)
		Dim l_strsql	'String
		Dim l_recSet

		'SQL暥嶌惉
		'SELECT
		l_strsql = "SELECT THUMBNAIL,LISTIMAGE1,LISTIMAGE2,LISTIMAGE3,LISTIMAGE4," & _
					"LISTIMAGE5,LISTIMAGE6,LISTIMAGE7,LISTIMAGE8"

		'FROM PAGESPEC_T
		l_strsql = l_strsql & " FROM LISTIMAGE_M"

		'WHERE 僔僗僥儉ID AND 夛幮ID AND 儁乕僕巇條ID AND 晹昳斣崋 AND 嶍彍僼儔僌亗1
		l_strsql = l_strsql & " WHERE SYSTEM_ID  = '" & l_sysId & "'"  & _
				" AND COMPANY_ID = '" & l_coId & "'" & _
				" AND LIST_CD = '" & l_listCd & "'" & _
				" AND LIST_EDA = '" & l_listEda & "'" & _
				" AND DEL_FLG <> '1'"

		'DB傛傝儗僐乕僪傪庢摼偟偰曉偡
		Set SearchListImageRec = l_db.ProcRecordset(l_strsql,1,0)

	End Function



End Class
%>