wishbuttondsp.asp

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

<%
Class WishButtonDsp

	'/********************************************
	'/* 僂傿僢僔儏儕僗僩撪偺儗僐乕僪偺桳柍傪敾掕
	'/********************************************
	Public Function CheckWishButton(l_db,l_dlb,l_listcd,l_listeda)
		Dim l_ret

		'DB傛傝儗僐乕僪傪扵偡
		Set l_ret = l_dlb.WishSearch(l_db,l_listcd,l_listeda)

		'懚嵼偡傟偽True丄側偗傟偽False
		If l_ret.Fields.Item("COUNT(*)") <> 0 Then
			CheckWishButton = True
		Else
			CheckWishButton = False
		End If
	End Function

End Class
%>