infolistmain.asp

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

<%
'/************************************
'/*僀儞僼僅儊乕僔儑儞儊僀儞僋儔僗
'/************************************
Class InfoListMain
	Dim l_CutilObject
	Dim l_CommonObject
	Dim l_PgCtrlObject
	Dim l_DBObject
	Dim l_Page
	Dim l_RsPageCount
	Dim l_RsRecordCount
	Dim l_InfoMdlObject

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_CutilObject = New CharUtil
		Set l_CommonObject = New Common
		Set l_PgCtrlObject = New PageControl
		Set l_InfoMdlObject = New InfoListMdl

		Call l_CommonObject.SearchSession()

		'DB僐僱僋僔儑儞庢摼
		Set l_DBObject = New DbAccess
		Call l_DBObject.ProcConnection(DSN,USERID,PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_InfoMdlObject.l_SystemId = Session("User").Item("SYSTEM_ID")
		l_InfoMdlObject.l_CompanyId = Session("User").Item("COMPANY_ID")
		l_InfoMdlObject.l_UserName = Session("User").Item("NAME")

		'尰嵼偺儁乕僕悢愝掕(僷儔儊乕僞偵儁乕僕偑側偗傟偽1傪愝掕)
		l_Page = Request.QueryString("page")
		If l_Page = "" Then
			l_Page = 1
		End If
	End Function

	'/********************************************
	'/* 僀儞僼僅儊乕僔儑儞堦棗儗僐乕僪拪弌
	'/* return丗Scripting.Dictionary 昞帵儕僗僩(FormListMdl宆偺攝楍)
	'/********************************************
	Public Function GetList()
		Dim l_InfoMasterObject
		Dim l_RecordSet

		'擖椡抣愝掕
		Call l_CommonObject.SetSearchInfoSession("InfoList")

		'僙僢僔儑儞忣曬懚嵼僠僃僢僋
		If IsObject(Session("InfoList")) Then
			l_InfoMdlObject.l_PGenre = GENRE_DEMAND
			l_InfoMdlObject.l_SortKey = Session("InfoList").Item("sortkey")
			l_InfoMdlObject.l_SortDesc = Session("InfoList").Item("sortdesc")
		Else
			l_InfoMdlObject.l_PGenre = GENRE_DEMAND
			l_InfoMdlObject.l_SortKey = SORT_KEY1
			l_InfoMdlObject.l_SortDesc = FLG_ON
		End If

		'DB傛傝忣曬庢摼
		Set l_InfoMasterObject = New InfoMaster
		Set l_RecordSet = l_InfoMasterObject.SearchInfoBase(l_DBObject,l_InfoMdlObject,Session("InfoList"))

		'儗僐乕僪曇廤
		Dim l_retList
		Dim l_retRec
		Dim l_cnt
		Set l_retList = CreateObject("Scripting.Dictionary")
		
		l_cnt = 0
		Do Until l_RecordSet.eof
			Set l_retRec = EditRec(l_RecordSet)
			l_retList.add CStr(l_cnt), l_retRec
			l_cnt = l_cnt + 1
			l_RecordSet.MoveNext
		Loop

		'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
		l_RsPageCount = Fix(l_retList.Count / 20 + 0.9)		'儁乕僕僒僀僘愝掕
		l_RsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕

		Set GetList = l_retList

	End Function

	Public Function EditRec(l_rs)
		Dim l_rec
		Set l_rec = New InfoListMdl

		l_rec.l_RegYmd = l_rs.Fields.Item("REG_YMD")
		l_rec.l_Message = l_rs.Fields.Item("MESSAGE")
		l_rec.l_Genre = l_rs.Fields.Item("GENRE")
		l_rec.l_OpenProp = l_rs.Fields.Item("OPEN_PROP")
		l_rec.l_MessageId = l_rs.Fields.Item("MESSAGE_ID")

		l_rec.l_DspGenre = l_CommonObject.GetCodeName(l_DBObject,CD_GENRE,l_rec.l_Genre)
		If l_rec.l_OpenProp = "0" Then
			l_rec.l_DspOpenProp = "旕岞奐"
		Else
			l_rec.l_DspOpenProp = "岞奐拞"
		End If

		Set EditRec = l_rec
	End Function

	'/********************************************
	'/* 僜乕僩帪偺俫俿俵俴儕儞僋庢摼
	'/* param丗String l_sortkey 僜乕僩僉乕
	'/* return丗String 俫俿俵俴暥帤楍
	'/********************************************
	Public Function GetSortParmHtml(l_sortkey,l_oldSortDesc)
		Dim l_retStr
		Dim l_newSortDesc

		'僜乕僩弴偺愝掕(徃弴佁崀弴愗傝懼偊)
		If l_oldSortDesc = FLG_ON Then
			l_newSortDesc = FLG_OFF		'崀弴仺徃弴
		Else 
			l_newSortDesc =  FLG_ON		'徃弴仺崀弴
		End If

		'僷儔儊乕僞亖僜乕僩僉乕丄専嶕忦審
		l_retStr = "sessave=" & "2"  &_
			"&sortkey=" & l_sortkey &_
			"&sortdesc=" & l_newSortDesc
		GetSortParmHtml = l_retStr
	End Function

	'/*************************************
	'/ 堦棗僿僢僟
	'/ return:html
	'/*************************************
	Public Function ListHeadDsp
		Dim l_html
		Dim l_CRLF
		Dim l_sortdsp

		l_CRLF = Chr(13) & Chr(10)

		'僜乕僩弴丂徃弴丗(仾)丂崀弴丗(伀)
		If l_InfoMdlObject.l_SortDesc = FLG_ON Then
			l_sortdsp = "(伀)"
		Else
			l_sortdsp = "(仾)"
		End If

		l_html = "<tr align=""center""> " & l_CRLF &_
				 "<td class=""txt_m"" height=""20"" bgcolor=""#CC6666"" width=""80"">" &_
				 "<a href=""info_list.asp?" & GetSortParmHtml("2",l_InfoMdlObject.l_SortDesc) & """>" &_
				 "<font color=""#FFFFFF"">搊榐擔"

		'搊榐擔偱僜乕僩偺応崌
		If l_InfoMdlObject.l_SortKey = "2" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_ 
				 "<td class=""txt_m"" height=""20"" bgcolor=""#CC6666"">" &_
				 "<a href=""info_list.asp?" & GetSortParmHtml("3",l_Ilm.l_InfoMdlObject.l_SortDesc) & """>" &_
				 "<font color=""#FFFFFF"">僀儞僼僅儊乕僔儑儞"

		'儊僢僙乕僕偱僜乕僩偺応崌
		If l_InfoMdlObject.l_SortKey = "3" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_ 
				 "<td class=""txt_m"" height=""20"" bgcolor=""#CC6666"" width=""60"">" &_
				 "<a href=""info_list.asp?" & GetSortParmHtml("5",l_InfoMdlObject.l_SortDesc) & """>" &_
				 "<font color=""#FFFFFF"">岞奐壜斲" 

		'岞奐壜斲偱僜乕僩偺応崌
		If l_InfoMdlObject.l_SortKey = "5" Then
			l_html = l_html & l_sortdsp
		End If

		l_html = l_html & "</font></a></td>" & l_CRLF &_ 
				 "</tr>" & l_CRLF

		ListHeadDsp = l_html
	End Function

	'/********************************************
	'/* 僋儘乕僘
	'/********************************************
	Public Function Close
		Call l_DBObject.CloseRecodeset
		Call l_DBObject.CloseConnection
	End Function
End Class

'/************************************
'/*専嶕忦審曐帩僋儔僗
'/************************************
Class InfoListMdl
	Dim l_SystemId
	Dim l_CompanyId
	Dim l_UserName
	Dim l_PGenre
	Dim l_SortKey
	Dim l_SortDesc

	'堦棗崁栚
	Dim l_RegYmd
	Dim l_Message
	Dim l_Genre
	Dim l_OpenProp

	Dim l_MessageId
	Dim l_DspGenre
	Dim l_DspOpenProp
End Class
%>