searchhistorymain.asp

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

<%
'/************************************
'/*斕懀昳拲暥棜楌堦棗儊僀儞僋儔僗
'/*仛仛仛仛仛仛拲堄仛仛仛仛仛仛
'/*偙偺僋儔僗偼斕懀昳拲暥乛棜楌堦棗夋柺(promotion/SearchHistoryMain.asp)傪
'/*僐僺乕偟偨傕偺偱偡丅拪弌忦審偑堎側傞丅
'/*亂廋惓揰亃
'/*  専嶕儊僜僢僪柤傪曄峏丗l_som.SearchOrderBase仺l_som.SearchOrderBaseMn
'/*仛仛仛仛仛仛仛仛仛仛仛仛仛仛
'/************************************
Class SearchHistoryMain
	Dim l_cutil
	Dim l_ckutil
	Dim l_cmn
	Dim l_db
	Dim l_shmdl			'SearchHistoryMdl
	Dim l_rsPageCount	'儁乕僕僒僀僘(儁乕僕惂屼梡)
	Dim l_rsRecordCount	'儗僐乕僪審悢(儁乕僕惂屼梡)
	Dim l_page			'尰嵼偺儁乕僕悢(儁乕僕惂屼梡)

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_cutil = New CharUtil
		Set l_ckutil = New CheckUtil
		Set l_cmn = New Common
		Set l_shmdl = New SearchHistoryMdl

		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess

		Call l_cmn.SearchSession()
		Call l_db.ProcConnection(DSN,USERID,PASSWD)

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_shmdl.l_SystemId = Session("User").Item("SYSTEM_ID")
		l_shmdl.l_CompanyId = Session("User").Item("COMPANY_ID")
		l_shmdl.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_som
		Dim l_RecordSet
		Dim l_retList,l_retRec,l_cnt
		Dim l_Result

		l_Result = True

		'擖椡抣愝掕
		Call l_cmn.SetSearchInfoSession("ProSearchHistory")

		'僙僢僔儑儞忣曬懚嵼僠僃僢僋
		If IsObject(Session("ProSearchHistory")) Then
			l_shmdl.l_ReceptNo = Session("ProSearchHistory").Item("recept_no")
			l_shmdl.l_TotalSituation = Session("ProSearchHistory").Item("total_situation")
			l_shmdl.l_StrY = Session("ProSearchHistory").Item("recept_start_year")
			l_shmdl.l_StrM = Session("ProSearchHistory").Item("recept_start_mon")
			l_shmdl.l_StrD = Session("ProSearchHistory").Item("recept_start_day")
			l_shmdl.l_ReceptStart = l_shmdl.l_StrY & l_shmdl.l_StrM & l_shmdl.l_StrD
			l_shmdl.l_EndY = Session("ProSearchHistory").Item("recept_end_year")
			l_shmdl.l_EndM = Session("ProSearchHistory").Item("recept_end_mon")
			l_shmdl.l_EndD = Session("ProSearchHistory").Item("recept_end_day")
			l_shmdl.l_ReceptEnd = l_shmdl.l_EndY & l_shmdl.l_EndM & l_shmdl.l_EndD
			If l_shmdl.l_ReceptStart <> "" Then
				l_shmdl.l_ReceptStart = l_shmdl.l_StrY & "/" & l_shmdl.l_StrM & "/" & l_shmdl.l_StrD
			End If
			If l_shmdl.l_ReceptEnd <> "" Then
				l_shmdl.l_ReceptEnd = l_shmdl.l_EndY & "/" & l_shmdl.l_EndM & "/" & l_shmdl.l_EndD
			End If
			l_shmdl.l_SortKey = Session("ProSearchHistory").Item("sortkey")
			l_shmdl.l_SortDesc = Session("ProSearchHistory").Item("sortdesc")

			'擖椡僠僃僢僋
			l_Result = CheckInput(l_shmdl)
		Else
			l_shmdl.l_SortKey = SORT_KEY1
			l_shmdl.l_SortDesc = FLG_ON
		End If

		Set l_retList = CreateObject("Scripting.Dictionary")

		If l_Result Then
			'DB傛傝忣曬庢摼
			Set l_som = New SearchOrderMaster
			Set l_RecordSet = l_som.SearchOrderBaseMn(l_db,l_shmdl,Session("ProSearchHistory"))

			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.95)	'儁乕僕僒僀僘愝掕
			l_RsRecordCount = l_retList.Count		'儗僐乕僪審悢愝掕
		End If

		Set GetList = l_retList
	End Function

	'/***************************************
	'/* 儗僐乕僪偺曇廤
	'/* return丗l_rec
	'/***************************************
	Public Function EditRec(l_rs)
		Dim l_rec
		Set l_rec = New SearchHistoryMdl

		l_rec.l_DspReceptNo = l_rs.Fields.Item("RECEPT_NO")
		l_rec.l_DspReceptYmd = l_rs.Fields.Item("RECEPT_YMD")
		l_rec.l_inReceiveName = l_rs.Fields.Item("CLAIM_RECEIVE_NAME")
		l_rec.l_DspSubTotal = l_cutil.NumericFormat(l_rs.Fields.Item("SUB_TOTAL"),true,0)
		l_rec.l_inBuilding = l_rs.Fields.Item("CLAIM_BUILDING")
		l_rec.l_inCompanyName = l_rs.Fields.Item("CLAIM_COMPANY_NAME")
		l_rec.l_inSectionName = l_rs.Fields.Item("CLAIM_SECTION_NAME")
		l_rec.l_inClaimId = l_rs.Fields.Item("CLAIM_ID")

		l_rec.l_inTotalSituation = l_rs.Fields.Item("TOTAL_SITUATION")
		If l_rec.l_inClaimId <> "" Then
			l_rec.l_DspClaim = "[" & l_rec.l_inClaimId & "] "
		End If
		If l_rec.l_inCompanyName <> "" Then
			l_rec.l_DspClaim = l_rec.l_DspClaim & l_rec.l_inCompanyName & " "
		End If
		If l_rec.l_inBuilding <> "" Then
			l_rec.l_DspClaim = l_rec.l_DspClaim & l_rec.l_inBuilding & " "
		End If
		If l_rec.l_inSectionName <> "" Then
			l_rec.l_DspClaim = l_rec.l_DspClaim & l_rec.l_inSectionName & " "
		End If

		l_rec.l_DspClaim = l_rec.l_DspClaim & l_rec.l_inReceiveName & " "

		l_rec.l_DspTotalSituation = l_cmn.GetCodeName(l_db,CD_CLAIM_SITUATION,l_rec.l_inTotalSituation)
		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 

		l_retStr = "JavaScript:pagesubmit('1','" & l_sortkey & "','" & l_newSortDesc & "')"
		GetSortParmHtml = l_retStr
	End Function

	'/***************************************
	'/* 擖椡僠僃僢僋
	'/* return丗boolean
	'/***************************************
	Public Function CheckInput(l_shmdl)
		Dim l_Basp
		Dim l_Index

		CheckInput = True

		Set l_Basp = Server.CreateObject("basp21")

		l_Index = 0

		'庴晅斣崋僠僃僢僋
		If l_shmdl.l_ReceptNo <> "" Then
			If l_ckutil.number_chk(l_Basp,l_shmdl.l_ReceptNo) = 0 Then
				l_ErrArray(l_Index) = IG11018E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If

		'庴晅擔(奐巒)僠僃僢僋
		If l_shmdl.l_ReceptStart <> "" Then
			If Not IsDate(l_shmdl.l_ReceptStart) Then
				l_ErrArray(l_Index) = IG11019E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If

		'庴晅擔(廔椆)僠僃僢僋
		If l_shmdl.l_ReceptEnd <> "" Then
			If Not IsDate(l_shmdl.l_ReceptEnd) Then
				l_ErrArray(l_Index) = IG11020E
				l_Index = l_Index + 1
				CheckInput = False
			End If
		End If

		'庴晅擔(奐巒偲廔椆)僠僃僢僋
		If l_Index = 0 Then
			If l_shmdl.l_ReceptStart <> "" and l_shmdl.l_ReceptEnd <> "" Then
				If l_shmdl.l_ReceptStart > l_shmdl.l_ReceptEnd Then
					l_ErrArray(l_Index) = IG11027E
					l_Index = l_Index + 1
					CheckInput = False
				End If
			End If
		End If
	End Function

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

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

	'専嶕忦審擖椡棑崁栚
	Dim l_ReceptNo
	Dim l_TotalSituation
	Dim l_StrY,l_StrM,l_StrD
	Dim l_ReceptStart
	Dim l_EndY,l_EndM,l_EndD
	Dim l_ReceptEnd

	Dim l_DspReceptNo
	Dim l_DspReceptYmd
	Dim l_DspClaim
	Dim l_DspSubTotal
	Dim l_DspTotalSituation
	Dim l_inReceiveName
	Dim l_inClaimId
	Dim l_inBuilding
	Dim l_inCompanyName
	Dim l_inSectionName
	Dim l_inTotalSituation
End Class
%>