📄 formlistmain.asp

📁 印刷物の発注、在庫管理、出庫処理を一元管理
💻 ASP
字号:
<%
'/*********************************************
'/帒椏惪媮挔昜堦棗偺僥乕僽儖傾僋僙僗僋儔僗
'/*********************************************
Class FormListMain
	
	Dim l_db	'DBAccess DB傾僋僙僗梡
	Dim l_sysId	'僔僗僥儉ID(String)
	Dim l_coId	'夛幮ID(String)
	Dim l_secId '僙僋僔儑儞ID(String)
	Dim l_cmn	'Common
	Dim l_dlb	'DemListBaseMaster
	Dim l_cku	'CheckUtil
	Dim l_chu	'CharUtil

	Dim l_rsPageCount	'儁乕僕僒僀僘(儁乕僕惂屼梡)
	Dim l_rsRecordCount	'儗僐乕僪審悢(儁乕僕惂屼梡)
	Dim l_page			'尰嵼偺儁乕僕悢(儁乕僕惂屼梡)

	Dim l_inMenuListCd 		'昞帵梡(嵍儊僯儏乕挔昜僐乕僪)
	Dim l_inMenuListEda 	'昞帵梡(嵍儊僯儏乕挔昜巬斣)
	Dim l_inMenuListName	'昞帵梡(嵍儊僯儏乕挔昜柤)
	Dim l_inListCd 		'昞帵梡(挔昜僐乕僪)
	Dim l_inListEda 	'昞帵梡(挔昜巬斣)
	Dim l_inListName	'昞帵梡(挔昜柤)
	Dim l_inListSave	'僙僢僔儑儞僙乕僽
	Dim l_inClass1Cd	'暘椶侾(僐乕僪)
	Dim l_inClass1		'暘椶侾(柤徧)
	Dim l_inClass2Cd	'暘椶俀(僐乕僪)
	Dim l_inClass2		'暘椶俀(柤徧)
	Dim l_inClass3Cd	'暘椶俁(僐乕僪)
	Dim l_inClass3		'暘椶俁(柤徧)
	Dim l_inCategory1	'僇僥僑儕侾
	Dim l_inCategory2	'僇僥僑儕俀
	Dim l_inCategory3	'僇僥僑儕俁
	Dim l_inCategory4	'僇僥僑儕係
	Dim l_inCategory5	'僇僥僑儕俆
	Dim l_inCategory1Name	'僇僥僑儕侾
	Dim l_inCategory2Name	'僇僥僑儕俀
	Dim l_inCategory3Name	'僇僥僑儕俁
	Dim l_inCategory4Name	'僇僥僑儕係
	Dim l_inCategory5Name	'僇僥僑儕俆

	Dim l_sortkey		'僜乕僩僉乕
	Dim l_seqdesc		'
	Dim l_sortdesc		'僜乕僩弴
	Dim l_url		'URL偺僷儔儊乕僞
	Dim l_inCrsSubmit	'僒僽儈僢僩儃僞儞

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Dim l_dbinfo 'String

		'DB僐僱僋僔儑儞庢摼
		Set l_db = New DbAccess
		Set l_cmn = New Common
		Set l_cku = New CheckUtil
		Set l_chu = New CharUtil

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_secId = Session("User").Item("SECTION_ID")	'僙僋僔儑儞ID

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

	End Function

	'/****************************************************************
	'/* 挔昜堦棗夋柺偵昞帵偡傞儗僐乕僪傪拪弌偡傞
	'/* return丗Scripting.Dictionary 昞帵儕僗僩(DemandListMdl宆偺攝楍)
	'/****************************************************************
	Public Function GetList()

		Dim l_rs  		'ADODB.Recordset
		Dim l_dcmn		'DemandCommon

		Dim l_cbArray(5)	'SQL暥攝楍
		Dim l_strsql		'専嶕忦審SQL暥
		Dim l_sortflg		'僜乕僩僼儔僌
		Dim l_sortsql		'僜乕僩SQL暥

		Set l_dlb = New DemListBaseMaster
		Set l_dcmn = New DemandCommon
		l_sortflg = 0

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

		'僋儘僗専嶕夋柺偐傜慗堏
		If Session("DemandSearchInfo").Item("crssubmit") <> "" Then
			If Not CheckSearch Then
				Response.Redirect "search_cross.asp"
			End If

			'挔昜斣崋
			If Session("DemandSearchInfo").Item("listcd") <> "" Then
				l_strsql = " AND LB.LIST_CD='" & Session("DemandSearchInfo").Item("listcd") & "'"
				l_sortflg = 1
			End If
			'挔昜斣崋巬斣
			If Session("DemandSearchInfo").Item("listeda") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_EDA='" & Session("DemandSearchInfo").Item("listeda") & "'"
				If l_sortflg = 1 Then
					l_sortflg = 2
				End If
			End If
			'挔昜柤
			If Session("DemandSearchInfo").Item("listname") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_NAME LIKE '" & Session("DemandSearchInfo").Item("listname") & "%'"
				l_sortflg = 1
			End If
			'暘椶侾
			If Session("DemandSearchInfo").Item("csclass1") <> "" Then
				l_strsql = l_strsql & " AND LB.CLASS1='" & Session("DemandSearchInfo").Item("csclass1") & "'"
			End If
			'暘椶俀
			If Session("DemandSearchInfo").Item("csclass2") <> "" Then
				l_strsql = l_strsql & " AND LB.CLASS2='" & Session("DemandSearchInfo").Item("csclass2") & "'"
			End If
			'暘椶俁
			If Session("DemandSearchInfo").Item("csclass3") <> "" Then
				l_strsql = l_strsql & " AND LB.CLASS3='" & Session("DemandSearchInfo").Item("csclass3") & "'"
			End If

			'僇僥僑儕侾
			If Session("DemandSearchInfo").Item("checkbox1") <> "" Then
				l_cbArray(0) = Chksql(Session("DemandSearchInfo").Item("checkbox1"),"LB.CATEGORY1")
				l_strsql = l_strsql & l_cbArray(0)
				l_sortflg = 1
			End If
			'僇僥僑儕俀
			If Session("DemandSearchInfo").Item("checkbox2") <> "" Then
				l_cbArray(1) = Chksql(Session("DemandSearchInfo").Item("checkbox2"),"LB.CATEGORY2")
				l_strsql = l_strsql & l_cbArray(1)
				l_sortflg = 1
			End If
			'僇僥僑儕俁
			If Session("DemandSearchInfo").Item("checkbox3") <> "" Then
				l_cbArray(2) = Chksql(Session("DemandSearchInfo").Item("checkbox3"),"LB.CATEGORY3")
				l_strsql = l_strsql & l_cbArray(2)
				l_sortflg = 1
			End If
			'僇僥僑儕係
			If Session("DemandSearchInfo").Item("checkbox4") <> "" Then
				l_cbArray(3) = Chksql(Session("DemandSearchInfo").Item("checkbox4"),"LB.CATEGORY4")
				l_strsql = l_strsql & l_cbArray(3)
				l_sortflg = 1
			End If
			'僇僥僑儕俆
			If Session("DemandSearchInfo").Item("checkbox5") <> "" Then
				l_cbArray(4) = Chksql(Session("DemandSearchInfo").Item("checkbox5"),"LB.CATEGORY5")
				l_strsql = l_strsql & l_cbArray(4)
				l_sortflg = 1
			End If

			'挔昜斣崋
			l_inListCd = Session("DemandSearchInfo").Item("listcd")
			'挔昜斣崋巬斣
			l_inListEda = Session("DemandSearchInfo").Item("listeda")
			'挔昜柤
			l_inListName = Session("DemandSearchInfo").Item("listname")
			'暘椶侾
			l_inClass1Cd = Session("DemandSearchInfo").Item("csclass1")
			l_inClass1 = l_cmn.GetCodename(l_db,CD_CLASS1,Session("DemandSearchInfo").Item("csclass1"))
			'暘椶俀
			l_inClass2Cd = Session("DemandSearchInfo").Item("csclass2")
			l_inClass2 = l_cmn.GetCodename(l_db,CD_CLASS2,Session("DemandSearchInfo").Item("csclass2"))
			'暘椶俁
			l_inClass3Cd = Session("DemandSearchInfo").Item("csclass3")
			l_inClass3 = l_cmn.GetCodename(l_db,CD_CLASS3,Session("DemandSearchInfo").Item("csclass3"))
			'僇僥僑儕侾
			l_inCategory1 = Session("DemandSearchInfo").Item("checkbox1")
			l_inCategory1Name = Chkname(Session("DemandSearchInfo").Item("checkbox1"),CD_CATEGORY1)
			'僇僥僑儕俀
			l_inCategory2 = Session("DemandSearchInfo").Item("checkbox2")
			l_inCategory2Name = Chkname(Session("DemandSearchInfo").Item("checkbox2"),CD_CATEGORY2)
			'僇僥僑儕俁
			l_inCategory3 = Session("DemandSearchInfo").Item("checkbox3")
			l_inCategory3Name = Chkname(Session("DemandSearchInfo").Item("checkbox3"),CD_CATEGORY3)
			'僇僥僑儕係
			l_inCategory4 = Session("DemandSearchInfo").Item("checkbox4")
			l_inCategory4Name = Chkname(Session("DemandSearchInfo").Item("checkbox4"),CD_CATEGORY4)
			'僇僥僑儕俆
			l_inCategory5 = Session("DemandSearchInfo").Item("checkbox5")
			l_inCategory5Name = Chkname(Session("DemandSearchInfo").Item("checkbox5"),CD_CATEGORY5)
			'僒僽儈僢僩儃僞儞
			l_inCrsSubmit = Session("DemandSearchInfo").Item("crssubmit")

		'嵍儊僯儏乕専嶕偐傜慗堏帪
		Else
			'挔昜斣崋
			If Session("DemandSearchInfo").Item("listcd") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_CD='" & Session("DemandSearchInfo").Item("listcd") & "'"
				l_sortflg = 1
			End If
			'挔昜斣崋巬斣
			If Session("DemandSearchInfo").Item("listeda") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_EDA='" & Session("DemandSearchInfo").Item("listeda") & "'"
				If l_sortflg = 1 Then
					l_sortflg = 2
				End If
			End If
			'挔昜柤曄姺
			Session("DemandSearchInfo").Item("listname") = l_chu.Asc_chk(Session("DemandSearchInfo").Item("listname"),4)
			'挔昜柤
			If Session("DemandSearchInfo").Item("listname") <> "" Then
				l_strsql = l_strsql & " AND LB.LIST_NAME LIKE '" & Session("DemandSearchInfo").Item("listname") & "%'"
				l_sortflg = 1
			End If

			'挔昜斣崋
			l_inMenuListCd = Session("DemandSearchInfo").Item("listcd")				'挔昜斣崋巬斣
			l_inMenuListEda = Session("DemandSearchInfo").Item("listeda")			'挔昜柤
			l_inMenuListName = Session("DemandSearchInfo").Item("listname")
			l_inListSave = Session("DemandSearchInfo").Item("sessave")			'僙僢僔儑儞僙乕僽
			l_sortkey = Session("DemandSearchInfo").Item("sortkey")
			'僜乕僩僉乕
			l_seqdesc = Session("DemandSearchInfo").Item("seqdesc")
			'
			l_sortdesc = ""
			'僜乕僩弴
		End If

		'僜乕僩偺愝掕
		If l_sortflg = 0 Then
			l_sortsql = " ORDER BY LB.OPEN_PERIOD_START DESC," & "LB.LIST_CD DESC," & "LB.LIST_EDA"
		End If
		If l_sortflg = 1 Then
			l_sortsql = " ORDER BY LB.LIST_EDA"
		End If

		'DB傛傝堦棗傪庢摼偡傞
		Set l_rs = l_dlb.SearchDemandForm(l_db,l_strsql,l_sortsql,l_dcmn.GetSectionKind(l_db,l_sysId,l_coId,l_secId))

		l_url = "form_list.asp"

		'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
'		l_rsPageCount = l_rs.PageCount		'儁乕僕僒僀僘愝掕
'		l_rsRecordCount = l_rs.RecordCount	'儗僐乕僪審悢愝掕

		'庢摼偟偨儗僐乕僪傪曇廤偡傞
		Dim l_retList	'Scripting.Dictionary
		Dim l_retRec
		Dim l_i
		Set l_retList = CreateObject("Scripting.Dictionary")

		l_i = 0
		Do Until l_rs.eof
			Set l_retRec = l_dcmn.EditRec(l_db,l_rs)
			l_retList.add CStr(l_i), l_retRec
			l_i = l_i + 1
			l_rs.MoveNext
		Loop

		l_rsPageCount = Fix(l_retList.Count / MAXROW_DEMAND_FORM_LIST + 0.99)		'儁乕僕僒僀僘愝掕
		l_rsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕


		Set GetList = l_retList

	End Function

	'/********************************************
	'/* 僇僥僑儕専嶕梡SQL暥
	'/********************************************
	Public Function Chksql(l_inchkb,l_incg)
		Dim l_Arraychk
		Dim l_count
		Dim l_strsql

		'僠僃僢僋儃僞儞攝楍嶌惉
		l_Arraychk = Split(l_inchkb,", ")

		For l_count = 0 to UBound(l_Arraychk)
			'SQL暥偺嶌惉
			If l_strsql <> "" Then
				l_strsql = l_strsql & " OR " & l_incg & " LIKE '%" & l_Arraychk(l_count) & "%'"
			Else
				l_strsql = " AND (" & l_incg & " LIKE '%" & l_Arraychk(l_count) & "%'"
			End If

			If l_count = UBound(l_Arraychk) Then
				l_strsql = l_strsql & ")"
				Exit For
			End If
				Next

		Chksql = l_strsql
	End Function

	'/********************************************
	'/* 専嶕寢壥昞帵梡僇僥僑儕柤偺嶌惉
	'/********************************************
	Public Function Chkname(l_inchkb,l_incg)
		Dim l_Arraycode
		Dim l_cnt
		Dim l_name

		'僠僃僢僋儃僞儞攝楍嶌惉
		l_Arraycode = Split(l_inchkb,", ")

		Redim l_Arrayname(UBound(l_Arraycode)+1)
		'柤慜攝楍嶌惉
		For l_cnt = 0 to UBound(l_Arraycode)
			l_Arrayname(l_cnt) = l_cmn.GetCodeName(l_db,l_incg,l_Arraycode(l_cnt))
		Next

		'柤慜偺寢崌
		l_name = Join(l_Arrayname," ")
		Chkname = l_name
	End Function

	'/********************************************
	'/* 擖椡僠僃僢僋
	'/********************************************
	Public Function CheckSearch
		Dim l_objbasp
		Dim l_errarray(5)
		Dim l_element
		Dim l_arraycount

		Set l_objbasp = Server.CreateObject("basp21")
		l_element = 0

		CheckSearch = true
		'挔昜僐乕僪僠僃僢僋
		If Session("DemandSearchInfo").Item("listcd") <> "" Then
			If Not l_cku.IsNumericAlpha(Session("DemandSearchInfo").Item("listcd")) Then
				l_errarray(l_element) = IG11001E
				l_element = l_element + 1
				CheckSearch = false
			End If
		End If

		'挔昜巬斣僠僃僢僋
		If Session("DemandSearchInfo").Item("listeda") <> "" Then
			If l_cku.number_chk(l_objbasp,Session("DemandSearchInfo").Item("listeda")) = 0 Then
				l_errarray(l_element) = IG11021E
				l_element = l_element + 1
				CheckSearch = false
			End If
		End If

		'挔昜斣崋丄巬斣憡娭僠僃僢僋丂2006/02/28
		If Session("DemandSearchInfo").Item("listeda") <> "" And _
			(Session("DemandSearchInfo").Item("listcd") = "" Or _
			IsNull(Session("DemandSearchInfo").Item("listcd"))) Then
			l_errarray(l_element) = IG11022E
			l_element = l_element + 1
			CheckSearch = false
		End If

		'挔昜柤曄姺
		Session("DemandSearchInfo").Item("listname") = l_chu.Asc_chk(Session("DemandSearchInfo").Item("listname"),4)

		ReDim l_reerrarray(l_element)

		For l_arraycount = 0 to l_element
			l_reerrarray(l_arraycount) = l_errarray(l_arraycount)
		Next

		Session("ErrMsg") = l_reerrarray
	End Function

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

End Class

'/******************************************************
'/帒椏惪媮偺嵟怴挔昜堦棗丄挔昜堦棗僨乕僞曐帩梡僋儔僗
'/(帒椏惪媮偺堦棗侾儗僐乕僪偺撪梕傪曐帩偡傞偨傔偺僋儔僗)
'/******************************************************
Class DemandMdl
	Dim l_DemManage		'挔昜娗棟斣崋(NUMBER)
	Dim l_DemName		'挔昜柤(VARCHAR2)
	Dim l_DembgColor	'挔昜柤攚宨怓
	Dim l_DemImage		'岞奐夋憸IMG(VARCHAR2)
	Dim l_DemNo		'挔昜No(CHAR)
	Dim l_DemKind		'暘椶侾(VARCHAR2)
	Dim l_DemPrice		'攝晍扨壙()
	Dim l_DemLimit		'巊梡婜尷(DATE)
	Dim l_DemListCd		'挔昜斣崋
	Dim l_DemListEda	'挔昜斣崋巬斣
	Dim l_DemOpenStart	'岞奐奐巒擔
End Class
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -