formlistmain.asp

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

<%
'/************************************
'/挔昜堦棗儊僀儞僋儔僗
'/************************************
Class FormListMain
	Dim l_db				'DBAccess DB傾僋僙僗梡
	Dim l_cutil				'暥帤儐乕僥傿儕僥傿
	Dim l_chkUtil			'嫟捠僋儔僗(CheckUtil)
	Dim l_cmn				'嫟捠僋儔僗(Common)
	Dim l_pctrl				'PageControl(儁乕僕僐儞僩儘乕儖)
	Dim l_rsPageCount		'儁乕僕僒僀僘(儁乕僕惂屼梡)
	Dim l_rsRecordCount		'儗僐乕僪審悢(儁乕僕惂屼梡)
	Dim l_page				'尰嵼偺儁乕僕悢(儁乕僕惂屼梡)
	Dim l_flmdl				'専嶕忦審曐帩(FormListMdl)
	Dim l_fmcmn
	Dim l_authListManage

	'/********************************************
	'/* 弶婜張棟
	'/********************************************
	Public Function Init()
		Set l_chkUtil = New CheckUtil
		Set l_cutil = New CharUtil
		Set l_cmn = New Common
		Set l_fmcmn = New FmCommon
		Set l_pctrl = New PageControl
		Set l_flmdl = New FormListMdl

		Call l_cmn.SearchSession()

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

		'僙僢僔儑儞傛傝儐乕僓乕忣曬庢摼
		l_flmdl.l_sysId = Session("User").Item("SYSTEM_ID")	'僔僗僥儉ID
		l_flmdl.l_coId = Session("User").Item("COMPANY_ID")	'夛幮ID
		l_flmdl.l_userId = Session("User").Item("USER_ID")	'儐乕僓乕ID
		l_flmdl.l_secId = Session("User").Item("SECTION_ID")	'晹栧ID
		l_flmdl.l_cos_coId = l_cmn.GetCustomerCompIdRec(l_db,l_flmdl.l_sysId)	'庢堷愭夛幮ID
		'尰嵼偺儁乕僕悢愝掕(僷儔儊乕僞偵儁乕僕偑側偗傟偽1傪愝掕)
		l_page = Request.QueryString("page")
		If l_page = "" Then
			l_page = 1
		End If

	End Function

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

		Dim l_lb	'FmListBaseMaster
		Dim l_rs  	'ADODB.Recordset
		Dim l_ma	'MenuAuthMaster
		Dim l_rsMa	'ADODB.Recordset
		Dim l_result
		Dim l_basp
		
		Set l_basp = Server.CreateObject("basp21")
 
		'擖椡抣愝掕
		Call l_cmn.SetSearchInfoSession("SearchInfo")


		'娗棟尃尷傪庢摼偡傞("1"丗娗棟尃尷偁傝(塣梡娗棟尃尷偑偁傞応崌)丄"0"丗娗棟尃尷側偟)
		l_authListManage = l_fmcmn.GetMenuAuth()

		'夋柺昞帵偡傞専嶕忦審傪庢摼偡傞
		If IsObject(Session("SearchInfo")) Then
			If Session("SearchInfo").Item("menulistcd") <> "" Then
				l_flmdl.l_inMenuListCd = Replace(l_cutil.html_chg(l_basp,Session("SearchInfo").Item("menulistcd")),"""","&quot;")	'儊僯儏乕挔昜斣崋
			Else
				l_flmdl.l_inMenuListCd = Session("SearchInfo").Item("menulistcd")
			End If
			If Session("SearchInfo").Item("listcd") <> "" Then
				l_flmdl.l_inListCd = Replace(l_cutil.html_chg(l_basp,Session("SearchInfo").Item("listcd")),"""","&quot;")			'挔昜斣崋
			Else
				l_flmdl.l_inListCd = Session("SearchInfo").Item("listcd")
			End If
			l_flmdl.l_inListEda = Replace(l_cutil.html_chg(l_basp,Session("SearchInfo").Item("listeda")),"""","&quot;")			'挔昜斣崋巬斣
			l_flmdl.l_inListName = Session("SearchInfo").Item("listname")		'挔昜柤
			l_flmdl.l_inPdTemplate = Session("SearchInfo").Item("pdtemplate")	'僥儞僾儗乕僩
			l_flmdl.l_inPdListStatus = Session("SearchInfo").Item("pdliststatus")	'挔昜僗僥乕僞僗
			l_flmdl.l_inPdSel = Session("SearchInfo").Item("pdsel")				'庡娗晹栧
			l_flmdl.l_inPdFromYear = Session("SearchInfo").Item("pdfromyear")	'嶌惉擔(擭)FROM
			l_flmdl.l_inPdFromMonth = Session("SearchInfo").Item("pdfrommonth")	'嶌惉擔(寧)FROM
			l_flmdl.l_inPdFromDay = Session("SearchInfo").Item("pdfromday")		'嶌惉擔(擔)FROM
			l_flmdl.l_inPdToYear = Session("SearchInfo").Item("pdtoyear")		'嶌惉擔(擭)TO
			l_flmdl.l_inPdToMonth = Session("SearchInfo").Item("pdtomonth")		'嶌惉擔(寧)TO
			l_flmdl.l_inPdToDay = Session("SearchInfo").Item("pdtoday")			'嶌惉擔(擔)TO
			l_flmdl.l_sortkey = Session("SearchInfo").Item("sortkey")			'僜乕僩僉乕
			l_flmdl.l_sortdesc = Session("SearchInfo").Item("sortdesc")			'僜乕僩弴

			'擖椡僠僃僢僋
			l_result = CheckInput(l_flmdl)
		Else
			l_flmdl.l_inPdListStatus = LSTS_DRAFT	'挔昜僗僥乕僞僗(壓彂偒)
			l_flmdl.l_sortkey = SORT_KEY1			'僜乕僩僉乕(嶌惉擔(搊榐擔)乯
			l_flmdl.l_sortdesc = FLG_ON				'僜乕僩弴(崀弴)
		End If

		Dim l_retList	'Scripting.Dictionary
		Set l_retList = CreateObject("Scripting.Dictionary")

		'専嶕忦審傪曇廤偡傞(堦棗忋晹偺専嶕忦審昞帵曇廤)
		Call EditHead

		If l_result Then

			'DB傛傝堦棗傪庢摼偡傞
			Set l_lb = New FmListBaseMaster
			Set l_rs = l_lb.SearchListBase(l_db, l_cutil, l_flmdl.l_sysId, l_flmdl.l_coId, l_flmdl.l_secId, l_authListManage, Session("SearchInfo"))

			'庢摼偟偨儗僐乕僪傪曇廤偡傞
			Dim l_retRec, l_cnt
			l_cnt = 0

			Do Until l_rs.eof
				Set l_retRec = EditRec(l_rs,l_authListManage)
				l_retList.add CStr(l_cnt), l_retRec
				l_cnt = l_cnt + 1
				l_rs.MoveNext
			Loop
		End If

		'儁乕僕惂屼梡偺僒僀僘丄審悢傪愝掕
		l_rsPageCount = Fix(l_retList.Count / MAXROW_FORM_LIST + 0.99)		'儁乕僕僒僀僘愝掕
		l_rsRecordCount = l_retList.Count	'儗僐乕僪審悢愝掕

		Set GetList = l_retList

	End Function

	'/********************************************
	'/* 専嶕忦審偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/* return丗FormListMdl 曇廤寢壥
	'/********************************************
	Public Function EditHead()
		Dim l_fromymd
		Dim l_toymd

		'儊僯儏乕挔昜斣崋
		l_flmdl.l_srhMenuListCd = l_flmdl.l_inMenuListCd
		'挔昜斣崋
		l_flmdl.l_srhListCdDsp = l_cutil.editCdEda(l_flmdl.l_inListCd, l_flmdl.l_inListEda)
		'挔昜柤
		l_flmdl.l_srhListName = l_flmdl.l_inListName
		'僥儞僾儗乕僩
		l_flmdl.l_srhTemplateName = l_cmn.GetCodeName(l_db, CD_TEMPLATE, l_flmdl.l_inPdTemplate)
		'挔昜忬嫷柤徧
		l_flmdl.l_srhListStatusName = l_cmn.GetCodeName(l_db, CD_LIST_STATUS, l_flmdl.l_inPdListStatus)
		'庡娗晹栧柤徧
		l_flmdl.l_srhSelName = l_cmn.GetSectionName(l_db, l_cmn.GetCustomerCompIdRec(l_db,l_flmdl.l_sysId),l_flmdl.l_inPdSel)
		'嶌惉擔(FROM擔晅(yyyy/mm/dd)乣TO擔晅(yyyy/mm/dd))
		'2006/03/07 擔晅庢摼曄峏
		'l_fromymd = l_cutil.strToStrYMD(l_flmdl.l_inPdFromYear, l_flmdl.l_inPdFromMonth, l_flmdl.l_inPdFromDay)
		'l_toymd = l_cutil.strToStrYMD(l_flmdl.l_inPdToYear, l_flmdl.l_inPdToMonth, l_flmdl.l_inPdToDay)
		If l_flmdl.l_inPdFromYear <> "" Or l_flmdl.l_inPdFromMonth <> "" Or l_flmdl.l_inPdFromDay <> "" Then
			l_fromymd = l_flmdl.l_inPdFromYear & "/" & l_flmdl.l_inPdFromMonth & "/" & l_flmdl.l_inPdFromDay
		End If
		If l_flmdl.l_inPdToYear <> "" Or l_flmdl.l_inPdToMonth <> "" Or l_flmdl.l_inPdToDay <> "" Then
			l_toymd = l_flmdl.l_inPdToYear & "/" & l_flmdl.l_inPdToMonth & "/" & l_flmdl.l_inPdToDay
		End If

		'2006/03/07 擔晅昞帵曄峏
		If l_fromymd <> "" And l_toymd <> "" Then
			l_flmdl.l_srhRegYmdDsp = "丂嶌惉擔丗" & l_fromymd & "乣" & l_toymd

		Else
			If l_fromymd <> "" Then
				l_flmdl.l_srhRegYmdDsp = "丂嶌惉擔(奐巒)丗" & l_fromymd
			End If

			If l_toymd <> "" Then
				l_flmdl.l_srhRegYmdDsp = "丂嶌惉擔(廔椆)丗" & l_toymd
			End If
		End If
		'l_flmdl.l_srhRegYmdDsp = l_fromymd
		'If l_toymd <> "" Then	'TO擔晅偑擖椡偝傟偰偄偨傜"乣TO擔晅"傪昞帵
		'	l_flmdl.l_srhRegYmdDsp = l_flmdl.l_srhRegYmdDsp & "乣" & l_toymd
		'End If

	End Function

	'/********************************************
	'/* 挔昜堦棗偵昞帵偡傞儗僐乕僪傪曇廤偡傞
	'/* param丗ADODB.Recordset 挔昜婎杮忣曬儗僐乕僪
	'/*        l_authListManage 娗棟尃尷
	'/* return丗FormListMdl 曇廤寢壥
	'/********************************************
	Public Function EditRec(l_rs,l_authListManage)
		Dim l_rec				'FormListMdl
		Set l_rec = New FormListMdl
		Dim l_rsCodeRec 	'僐乕僪儅僗僞寢壥曐帩

		Dim l_dbSectionId
		l_dbSectionId = l_rs.Fields.Item("SECTION_ID")

		'嶌惉擔
		l_rec.l_regYmdDsp = CStr(l_cutil.dtToStrYMD(l_rs.Fields.Item("REG_YMD")))
		
		'挔昜斣崋(挔昜斣崋-挔昜斣崋巬斣)
		l_rec.l_listCdDsp = CStr(l_cutil.editCdEda(l_rs.Fields("LIST_CD"), l_rs.Fields.Item("LIST_EDA")))
		l_rec.l_listCd = l_rs.Fields("LIST_CD")
		l_rec.l_listEda = l_rs.Fields("LIST_Eda")
		'挔昜柤
		if l_rs.Fields("SECRET_FLG") = FLG_ON and l_rs.Fields.Item("SECRET_PASSWORD") <> "" _
		  and l_authListManage <> FLG_ON and l_dbSectionId <> Session("User").Item("SECTION_ID") Then
			'晹奜旈愝掕偺応崌(岞奐尃尷亖"1")偐偮丄娗棟尃尷偑側偄偐偮丄帺晹栧埲奜偺
			'挔昜柤偵[旕岞奐挔昜]偲昞帵
			l_rec.l_listName = SECRET_LIST_NAME
			l_rec.l_secretFlg = FLG_ON
		Else
			'偦傟埲奜偼挔昜婎杮忣曬僥乕僽儖偺挔昜柤傪昞帵
			If IsObject(l_rs.Fields.Item("LIST_NAME")) Then
				l_rec.l_listName = l_rs.Fields.Item("LIST_NAME")
			Else
				l_rec.l_listName = ""
			End If
			l_rec.l_secretFlg = FLG_OFF
		End If

		'庡娗晹柤徧
'		l_rec.l_sectionName = CStr(l_cmn.GetSectionName(l_db, l_dbSectionId))
		l_rec.l_sectionName = l_rs.Fields.Item("SECTION_NAME")
		'暘椶柤徧(挔昜婎杮忣曬.暘椶侾偺柤徧)