malistimagemaster.asp

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

<%
Class maListImageMaster
	Dim l_SQL

	'/**********************************
	'/* 挔昜懚嵼僠僃僢僋
	'/* param丗
	'/* return丗
	'/**********************************
	Public function SearchList(l_db,l_sysId,l_mdl)
		l_SQL = "SELECT COUNT(*) AS COUNT " &_
				"  FROM LISTBASE_T " &_
				" WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND LIST_CD = '" & l_mdl.l_listcd & "' " &_
				"   AND LIST_EDA = '" & l_mdl.l_listeda & "' "
		Set SearchList = l_db.ProcRecordSet(l_SQL,1,0)

	End Function

	'/**********************************
	'/* 挔昜僀儊乕僕僥乕僽儖懚嵼僠僃僢僋
	'/* param丗l_db			DbAccess
	'/*        l_sysId		僔僗僥儉ID
	'/*        l_coId		夛幮ID
	'/*        l_mdl		擖椡抣奿擺僋儔僗
	'/* return丗審悢(儗僐乕僪僙僢僩)
	'/**********************************
	Public Function SearchListImage(l_db,l_sysId,l_coId,l_mdl)
		l_SQL = "SELECT COUNT(*) AS COUNT FROM LISTIMAGE_M " &_
			" WHERE SYSTEM_ID = '" & l_sysId & "' " &_
			"   AND COMPANY_ID = '" & l_coId & "' " &_
			"   AND LIST_CD = '" & l_mdl.l_listcd & "' " &_
			"   AND LIST_EDA = '" & l_mdl.l_listeda & "' "

		Set SearchListImage = l_db.ProcRecordSet(l_SQL,1,0)
	End Function

	'/**********************************
	'/* 挔昜僀儊乕僕僥乕僽儖Insert
	'/* param丗l_db			DbAccess
	'/*        l_sysId		僔僗僥儉ID
	'/*        l_coId		夛幮ID
	'/*        l_mdl		擖椡抣奿擺僋儔僗
	'/* return丗boolean
	'/**********************************
	Public Function InsertImage(l_db,l_sysId,l_coId,l_mdl)
		l_SQL = "INSERT INTO LISTIMAGE_M VALUES ('" &_
				l_sysId & "','" &_
				l_coid & "','" &_
				l_mdl.l_listcd & "','" &_
				l_mdl.l_listeda & "','" &_
				l_mdl.l_thumbnaildb & "','" &_
				l_mdl.l_file1db & "','" &_
				l_mdl.l_file2db & "','" &_
				l_mdl.l_file3db & "','" &_
				l_mdl.l_file4db & "','" &_
				l_mdl.l_file5db & "','" &_
				l_mdl.l_file6db & "','" &_
				l_mdl.l_file7db & "','" &_
				l_mdl.l_file8db & "'," &_
				"SYSDATE,NULL,'0')" 
		InsertImage = true
		If l_db.ProcExecute(l_SQL) Then
			Call l_db.ProcCommit
		Else
			InsertImage = false
			Call l_db.ProcRollBack
		End If				
	End Function


	'/**********************************
	'/* 挔昜僀儊乕僕僥乕僽儖Update
	'/* param丗l_db			DbAccess
	'/*        l_sysId		僔僗僥儉ID
	'/*        l_coId		夛幮ID
	'/*        l_mdl		擖椡抣奿擺僋儔僗
	'/* return丗boolean
	'/**********************************
	Public Function UpdateImage(l_db,l_sysId,l_coId,l_mdl)
		l_SQL = "UPDATE LISTIMAGE_M " &_
				"   SET THUMBNAIL = '" & l_mdl.l_thumbnaildb & "'," &_
				"       LISTIMAGE1 = '" & l_mdl.l_file1db & "'," &_
				"       LISTIMAGE2 = '" & l_mdl.l_file2db & "'," &_
				"       LISTIMAGE3 = '" & l_mdl.l_file3db & "'," &_
				"       LISTIMAGE4 = '" & l_mdl.l_file4db & "'," &_
				"       LISTIMAGE5 = '" & l_mdl.l_file5db & "'," &_
				"       LISTIMAGE6 = '" & l_mdl.l_file6db & "'," &_
				"       LISTIMAGE7 = '" & l_mdl.l_file7db & "'," &_
				"       LISTIMAGE8 = '" & l_mdl.l_file8db & "'," &_
				"       UPDATE_YMD = SYSDATE " &_
				" WHERE SYSTEM_ID = '" & l_sysId & "' " &_
				"   AND COMPANY_ID = '" & l_coId & "' " &_
				"   AND LIST_CD = '" & l_mdl.l_listcd & "' " &_
				"   AND LIST_EDA = '" & l_mdl.l_listeda & "' " 
'Response.Write l_SQL
		UpdateImage = true
		If l_db.ProcExecute(l_SQL) Then
			Call l_db.ProcCommit
		Else
			UpdateImage = false
			Call l_db.ProcRollBack
		End If	
	End Function
End Class
%>