infomaster.asp

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

<%
Class InfoMaster

	Dim l_SQL
	Dim l_Cost

	'僀儞僼僅儊乕僔儑儞忣曬庢摼
	Public Function SearchInfoBase(Param1,Param2,Param3)

		l_SQL = "SELECT TO_CHAR(REG_YMD,'YYYY/MM/DD') AS REG_YMD,GENRE,MESSAGE_ID,MESSAGE,OPEN_PROP" & _
				"  FROM INFORMATION_M" & _
				" WHERE SYSTEM_ID = '" & Param2.l_SystemId & "'" & _
				"   AND MANUAL_REG = '1'" & _
				"   AND DEL_FLG = '0'"
		If Param2.l_PGenre <> "" Then
			l_SQL = l_SQL & " AND GENRE = '" & Param2.l_PGenre & "'"
		End If
		If IsObject(Param3) Then
			l_SQL = l_SQL & " ORDER BY " & GetOrderByStr(Param3.Item("sortkey"),Param3.Item("sortdesc"))
		Else
			l_SQL = l_SQL & " ORDER BY REG_YMD DESC,OPEN_PROP"
		End If
		debug_t(l_SQL)
		Set SearchInfoBase = Param1.ProcRecordset(l_SQL,1,1)

	End Function

	Public Function GetOrderByStr(l_sortkey, l_sortdesc)
		Dim l_retStr
		Dim l_seq

		'僜乕僩弴愝掕
		If l_sortdesc = FLG_ON Then
			l_seq = " DESC"
		End If

		'僜乕僩暥嶌惉
		If l_sortkey = SORT_KEY1 Then		'僨僼僅儖僩(旓梡晧扴晹栧(徃弴)亄晹栧ID(徃弴))
			l_retStr = "REG_YMD DESC,OPEN_PROP"
		ElseIf l_sortkey = SORT_KEY2 Then			'搊榐擔
			l_retStr = "REG_YMD" & l_seq			
		ElseIf l_sortkey = SORT_KEY3 Then			'儊僢僙乕僕
			l_retStr = "MESSAGE" & l_seq
		ElseIf  l_sortkey = SORT_KEY4 Then			'僕儍儞儖
			l_retStr = "GENRE" & l_seq
		ElseIf  l_sortkey = SORT_KEY5 Then			'僕儍儞儖
			l_retStr = "OPEN_PROP" & l_seq
		End If

		GetOrderByStr = l_retStr
	End Function

End Class
%>